Other components of KIDS build

2015-04-23 11:45:09 -07:00 · 2015-04-23 11:45:09 -07:00 · 172cc4abcc
parent 2d3b9d190d
commit 172cc4abcc
10 changed files with 116 additions and 0 deletions
--- a/Files/17.9001+M-UNIT
+++ b/Files/17.9001+M-UNIT
@ -0,0 +1,69 @@
+^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")="@"
--- a/Files/17.9001+M-UNIT
+++ b/Files/17.9001+M-UNIT
@ -0,0 +1,7 @@
+^XTMP("K2VC","EXPORT","DATA",17.9001,1,0)="TESTS FOR UNIT TEST ROUTINES"
+^XTMP("K2VC","EXPORT","DATA",17.9001,1,1,0)="^17.90011^5^5"
+^XTMP("K2VC","EXPORT","DATA",17.9001,1,1,1,0)="%utt1"
+^XTMP("K2VC","EXPORT","DATA",17.9001,1,1,2,0)="%utt2"
+^XTMP("K2VC","EXPORT","DATA",17.9001,1,1,3,0)="%utt3"
+^XTMP("K2VC","EXPORT","DATA",17.9001,1,1,4,0)="%utt4"
+^XTMP("K2VC","EXPORT","DATA",17.9001,1,1,5,0)="%utt5"
--- a/OPTION/ORD.zwr
+++ b/OPTION/ORD.zwr
@ -0,0 +1,2 @@
+^XTMP("K2VC","EXPORT","ORD",18,19)="19;18;;;OPT^XPDTA;OPTF1^XPDIA;OPTE1^XPDIA;OPTF2^XPDIA;;OPTDEL^XPDIA"
+^XTMP("K2VC","EXPORT","ORD",18,19,0)="OPTION"
--- a/OPTION/utMUNIT
+++ b/OPTION/utMUNIT
@ -0,0 +1,14 @@
+^XTMP("K2VC","EXPORT","KRN",19,IEN,-1)="0^2"
+^XTMP("K2VC","EXPORT","KRN",19,IEN,0)="utMUNIT GROUP EDIT^M-Unit Test Group Edit^^E^^^^^^^^TOOLKIT"
+^XTMP("K2VC","EXPORT","KRN",19,IEN,1,0)="^19.06^6^6^3031030^^^"
+^XTMP("K2VC","EXPORT","KRN",19,IEN,1,1,0)="This option can be used to maintain a listing of unit tests related to a"
+^XTMP("K2VC","EXPORT","KRN",19,IEN,1,2,0)="specific topic.  The Group identifies the topic, and the unit tests"
+^XTMP("K2VC","EXPORT","KRN",19,IEN,1,3,0)="related to that topic are added in the multiple.  Unit Tests can be run"
+^XTMP("K2VC","EXPORT","KRN",19,IEN,1,4,0)="by selecting a group, and all unit tests included in the multiple will be"
+^XTMP("K2VC","EXPORT","KRN",19,IEN,1,5,0)="used for the test.  In addition, any other references under the XTROU tag"
+^XTMP("K2VC","EXPORT","KRN",19,IEN,1,6,0)="in any of the included test routines will be included in the run."
+^XTMP("K2VC","EXPORT","KRN",19,IEN,30)="%ut(17.9001,"
+^XTMP("K2VC","EXPORT","KRN",19,IEN,31)="AEMQL"
+^XTMP("K2VC","EXPORT","KRN",19,IEN,50)=17.9001
+^XTMP("K2VC","EXPORT","KRN",19,IEN,51)=".01;1"
+^XTMP("K2VC","EXPORT","KRN",19,IEN,"U")="M-UNIT TEST GROUP EDIT"
--- a/OPTION/utMUNIT
+++ b/OPTION/utMUNIT
@ -0,0 +1,7 @@
+^XTMP("K2VC","EXPORT","KRN",19,IEN,-1)="0^3"
+^XTMP("K2VC","EXPORT","KRN",19,IEN,0)="utMUNIT GROUP RUN^Run M-Unit Tests From Test Groups^^R^^^^^^^^TOOLKIT"
+^XTMP("K2VC","EXPORT","KRN",19,IEN,1,0)="^^2^2^3031030^"
+^XTMP("K2VC","EXPORT","KRN",19,IEN,1,1,0)="Provides a means of initiating a unit test run from the menu system based"
+^XTMP("K2VC","EXPORT","KRN",19,IEN,1,2,0)="on entries in the M-UNIT TEST GROUP file (#17.9001)."
+^XTMP("K2VC","EXPORT","KRN",19,IEN,25)="PICKSET^%ut"
+^XTMP("K2VC","EXPORT","KRN",19,IEN,"U")="RUN M-UNIT TESTS FROM TEST GRO"
--- a/OPTION/utMUNIT.zwr
+++ b/OPTION/utMUNIT.zwr
@ -0,0 +1,9 @@
+^XTMP("K2VC","EXPORT","KRN",19,IEN,-1)="0^1"
+^XTMP("K2VC","EXPORT","KRN",19,IEN,0)="utMUNIT^M-Unit Tester^^B^^^^^^^^"
+^XTMP("K2VC","EXPORT","KRN",19,IEN,1,0)="^^1^1^3140805^"
+^XTMP("K2VC","EXPORT","KRN",19,IEN,1,1,0)="This is the context option for M-Unit Test functionality."
+^XTMP("K2VC","EXPORT","KRN",19,IEN,"RPC",0)="^19.05P^3^3"
+^XTMP("K2VC","EXPORT","KRN",19,IEN,"RPC",1,0)="utMUNIT-TEST GROUP LOAD"
+^XTMP("K2VC","EXPORT","KRN",19,IEN,"RPC",2,0)="utMUNIT-TEST LOAD"
+^XTMP("K2VC","EXPORT","KRN",19,IEN,"RPC",3,0)="utMUNIT-TEST NEXT"
+^XTMP("K2VC","EXPORT","KRN",19,IEN,"U")="M-UNIT TESTER"
--- a/PROCEDURE/ORD.zwr
+++ b/PROCEDURE/ORD.zwr
@ -0,0 +1,2 @@
+^XTMP("K2VC","EXPORT","ORD",16,8994)="8994;16;1;;;;;;;RPCDEL^XPDIA1"
+^XTMP("K2VC","EXPORT","ORD",16,8994,0)="REMOTE PROCEDURE"
--- a/PROCEDURE/utMUNIT-TEST
+++ b/PROCEDURE/utMUNIT-TEST
@ -0,0 +1,2 @@
+^XTMP("K2VC","EXPORT","KRN",8994,IEN,-1)="0^1"
+^XTMP("K2VC","EXPORT","KRN",8994,IEN,0)="utMUNIT-TEST GROUP LOAD^GUISET^%ut^4^^^^1"
--- a/PROCEDURE/utMUNIT-TEST
+++ b/PROCEDURE/utMUNIT-TEST
@ -0,0 +1,2 @@
+^XTMP("K2VC","EXPORT","KRN",8994,IEN,-1)="0^2"
+^XTMP("K2VC","EXPORT","KRN",8994,IEN,0)="utMUNIT-TEST LOAD^GUILOAD^%ut^4^^^^1"
--- a/PROCEDURE/utMUNIT-TEST
+++ b/PROCEDURE/utMUNIT-TEST
@ -0,0 +1,2 @@
+^XTMP("K2VC","EXPORT","KRN",8994,IEN,-1)="0^3"
+^XTMP("K2VC","EXPORT","KRN",8994,IEN,0)="utMUNIT-TEST NEXT^GUINEXT^%ut^4^^^^1"