^XTMP("K2VC","EXPORT","FIA",17.9001)="M-UNIT TEST GROUP"
^XTMP("K2VC","EXPORT","FIA",17.9001,0)="^%ut(17.9001,"
^XTMP("K2VC","EXPORT","FIA",17.9001,0,0)=17.9001
^XTMP("K2VC","EXPORT","FIA",17.9001,0,1)="y^y^f^^n^^y^o^n"
^XTMP("K2VC","EXPORT","FIA",17.9001,0,10)=""
^XTMP("K2VC","EXPORT","FIA",17.9001,0,11)=""
^XTMP("K2VC","EXPORT","FIA",17.9001,0,"RLRO")=""
^XTMP("K2VC","EXPORT","FIA",17.9001,0,"VR")="0.1^MASH"
^XTMP("K2VC","EXPORT","FIA",17.9001,17.9001)=0
^XTMP("K2VC","EXPORT","FIA",17.9001,17.90011)=0
^XTMP("K2VC","EXPORT","FIA",17.9001,17.90012)=0
^XTMP("K2VC","EXPORT","^DIC",17.9001,17.9001,0)="M-UNIT TEST GROUP^17.9001"
^XTMP("K2VC","EXPORT","^DIC",17.9001,17.9001,0,"GL")="^%ut(17.9001,"
^XTMP("K2VC","EXPORT","^DIC",17.9001,"B","M-UNIT TEST GROUP",17.9001)=""
^XTMP("K2VC","EXPORT","^DD",17.9001,17.9001,0)="FIELD^^2^3"
^XTMP("K2VC","EXPORT","^DD",17.9001,17.9001,0,"DT")=3140812
^XTMP("K2VC","EXPORT","^DD",17.9001,17.9001,0,"IX","B",17.9001,.01)=""
^XTMP("K2VC","EXPORT","^DD",17.9001,17.9001,0,"NM","MUNIT TEST GROUP")=""
^XTMP("K2VC","EXPORT","^DD",17.9001,17.9001,0,"VRPK")="MASH"
^XTMP("K2VC","EXPORT","^DD",17.9001,17.9001,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^XTMP("K2VC","EXPORT","^DD",17.9001,17.9001,.01,1,0)="^.1"
^XTMP("K2VC","EXPORT","^DD",17.9001,17.9001,.01,1,1,0)="17.9001^B"
^XTMP("K2VC","EXPORT","^DD",17.9001,17.9001,.01,1,1,1)="S ^%ut(17.9001,""B"",$E(X,1,30),DA)="""""
^XTMP("K2VC","EXPORT","^DD",17.9001,17.9001,.01,1,1,2)="K ^%ut(17.9001,""B"",$E(X,1,30),DA)"
^XTMP("K2VC","EXPORT","^DD",17.9001,17.9001,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^XTMP("K2VC","EXPORT","^DD",17.9001,17.9001,1,0)="TEST ROUTINE^17.90011^^1;0"
^XTMP("K2VC","EXPORT","^DD",17.9001,17.9001,2,0)="DESCRIPTION FOR GROUP^17.90012^^2;0"
^XTMP("K2VC","EXPORT","^DD",17.9001,17.9001,2,21,0)="^^3^3^3140812^"
^XTMP("K2VC","EXPORT","^DD",17.9001,17.9001,2,21,1,0)="This word processing field provides a location for the developer to enter"
^XTMP("K2VC","EXPORT","^DD",17.9001,17.9001,2,21,2,0)="a description of the purpose or function of the M-Unit Test Group,"
^XTMP("K2VC","EXPORT","^DD",17.9001,17.9001,2,21,3,0)="including if desired comments on the various routines in the group."
^XTMP("K2VC","EXPORT","^DD",17.9001,17.9001,2,23,0)="^^3^3^3140812^"
^XTMP("K2VC","EXPORT","^DD",17.9001,17.9001,2,23,1,0)="This word processing field provides a location for the developer to enter"
^XTMP("K2VC","EXPORT","^DD",17.9001,17.9001,2,23,2,0)="a description of the purpose or function of the M-Unit Test Group,"
^XTMP("K2VC","EXPORT","^DD",17.9001,17.9001,2,23,3,0)="including if desired comments on the various routines in the group."
^XTMP("K2VC","EXPORT","^DD",17.9001,17.9001,2,"DT")=3140812
^XTMP("K2VC","EXPORT","^DD",17.9001,17.90011,0)="TEST ROUTINE SUB-FIELD^^.01^1"
^XTMP("K2VC","EXPORT","^DD",17.9001,17.90011,0,"DT")=3140731
^XTMP("K2VC","EXPORT","^DD",17.9001,17.90011,0,"IX","B",17.90011,.01)=""
^XTMP("K2VC","EXPORT","^DD",17.9001,17.90011,0,"NM","TEST ROUTINE")=""
^XTMP("K2VC","EXPORT","^DD",17.9001,17.90011,0,"UP")=17.9001
^XTMP("K2VC","EXPORT","^DD",17.9001,17.90011,.01,0)="TEST ROUTINE^MF^^0;1^K:$L(X)>8!($L(X)<3) X"
^XTMP("K2VC","EXPORT","^DD",17.9001,17.90011,.01,1,0)="^.1"
^XTMP("K2VC","EXPORT","^DD",17.9001,17.90011,.01,1,1,0)="17.90011^B"
^XTMP("K2VC","EXPORT","^DD",17.9001,17.90011,.01,1,1,1)="S ^%ut(17.9001,DA(1),1,""B"",$E(X,1,30),DA)="""""
^XTMP("K2VC","EXPORT","^DD",17.9001,17.90011,.01,1,1,2)="K ^%ut(17.9001,DA(1),1,""B"",$E(X,1,30),DA)"
^XTMP("K2VC","EXPORT","^DD",17.9001,17.90011,.01,3)="This is a routine to be used for the MUnit Test Group.  Answer must be 3-8 characters in length."
^XTMP("K2VC","EXPORT","^DD",17.9001,17.90011,.01,"DT")=3140731
^XTMP("K2VC","EXPORT","^DD",17.9001,17.90012,0)="DESCRIPTION FOR GROUP SUB-FIELD^^.01^1"
^XTMP("K2VC","EXPORT","^DD",17.9001,17.90012,0,"DT")=3140812
^XTMP("K2VC","EXPORT","^DD",17.9001,17.90012,0,"NM","DESCRIPTION FOR GROUP")=""
^XTMP("K2VC","EXPORT","^DD",17.9001,17.90012,0,"UP")=17.9001
^XTMP("K2VC","EXPORT","^DD",17.9001,17.90012,.01,0)="DESCRIPTION FOR GROUP^W^^0;1^Q"
^XTMP("K2VC","EXPORT","^DD",17.9001,17.90012,.01,3)="Enter a description for the Unit Test Group"
^XTMP("K2VC","EXPORT","^DD",17.9001,17.90012,.01,21,0)="^.001^3^3^3140812^^"
^XTMP("K2VC","EXPORT","^DD",17.9001,17.90012,.01,21,1,0)="This word processing field provides a location for the developer to enter"
^XTMP("K2VC","EXPORT","^DD",17.9001,17.90012,.01,21,2,0)="a description of the purpose or function of the M-Unit Test Group,"
^XTMP("K2VC","EXPORT","^DD",17.9001,17.90012,.01,21,3,0)="including if desired comments on the various routines in the group."
^XTMP("K2VC","EXPORT","^DD",17.9001,17.90012,.01,23,0)="^^3^3^3140812^"
^XTMP("K2VC","EXPORT","^DD",17.9001,17.90012,.01,23,1,0)="This word processing field provides a location for the developer to enter"
^XTMP("K2VC","EXPORT","^DD",17.9001,17.90012,.01,23,2,0)="a description of the purpose or function of the M-Unit Test Group,"
^XTMP("K2VC","EXPORT","^DD",17.9001,17.90012,.01,23,3,0)="including if desired comments on the various routines in the group."
^XTMP("K2VC","EXPORT","^DD",17.9001,17.90012,.01,"DT")=3140812
^XTMP("K2VC","EXPORT","SEC","^DIC",17.9001,17.9001,0,"AUDIT")="@"
^XTMP("K2VC","EXPORT","SEC","^DIC",17.9001,17.9001,0,"DD")="@"
^XTMP("K2VC","EXPORT","SEC","^DIC",17.9001,17.9001,0,"DEL")="@"
^XTMP("K2VC","EXPORT","SEC","^DIC",17.9001,17.9001,0,"LAYGO")="@"
^XTMP("K2VC","EXPORT","SEC","^DIC",17.9001,17.9001,0,"RD")="@"
^XTMP("K2VC","EXPORT","SEC","^DIC",17.9001,17.9001,0,"WR")="@"