source: fmts/trunk/kids/C0X_1_0_0_T2.KID@ 1279

Last change on this file since 1279 was 1273, checked in by George Lilly, 13 years ago

initial load of ftms project files and test data
File size: 27.4 KB
Line 
1KIDS Distribution saved on Oct 30, 2011@11:45:44
2version which imports some rdf files YAY!!!!
3**KIDS**:C0X*1.0*0^
4
5**INSTALL NAME**
6C0X*1.0*0
7"BLD",7885,0)
8C0X*1.0*0^^0^3111030^n
9"BLD",7885,4,0)
10^9.64PA^172.201^2
11"BLD",7885,4,172.101,0)
12172.101
13"BLD",7885,4,172.101,222)
14y^y^f^^^^n
15"BLD",7885,4,172.201,0)
16172.201
17"BLD",7885,4,172.201,222)
18y^y^f^^^^n
19"BLD",7885,4,"B",172.101,172.101)
20
21"BLD",7885,4,"B",172.201,172.201)
22
23"BLD",7885,6.3)
242
25"BLD",7885,"KRN",0)
26^9.67PA^779.2^20
27"BLD",7885,"KRN",.4,0)
28.4
29"BLD",7885,"KRN",.401,0)
30.401
31"BLD",7885,"KRN",.402,0)
32.402
33"BLD",7885,"KRN",.403,0)
34.403
35"BLD",7885,"KRN",.5,0)
36.5
37"BLD",7885,"KRN",.84,0)
38.84
39"BLD",7885,"KRN",3.6,0)
403.6
41"BLD",7885,"KRN",3.8,0)
423.8
43"BLD",7885,"KRN",9.2,0)
449.2
45"BLD",7885,"KRN",9.8,0)
469.8
47"BLD",7885,"KRN",9.8,"NM",0)
48^9.68A^1^1
49"BLD",7885,"KRN",9.8,"NM",1,0)
50C0XMAIN^^0^B76730608
51"BLD",7885,"KRN",9.8,"NM","B","C0XMAIN",1)
52
53"BLD",7885,"KRN",19,0)
5419
55"BLD",7885,"KRN",19.1,0)
5619.1
57"BLD",7885,"KRN",101,0)
58101
59"BLD",7885,"KRN",409.61,0)
60409.61
61"BLD",7885,"KRN",771,0)
62771
63"BLD",7885,"KRN",779.2,0)
64779.2
65"BLD",7885,"KRN",870,0)
66870
67"BLD",7885,"KRN",8989.51,0)
688989.51
69"BLD",7885,"KRN",8989.52,0)
708989.52
71"BLD",7885,"KRN",8994,0)
728994
73"BLD",7885,"KRN","B",.4,.4)
74
75"BLD",7885,"KRN","B",.401,.401)
76
77"BLD",7885,"KRN","B",.402,.402)
78
79"BLD",7885,"KRN","B",.403,.403)
80
81"BLD",7885,"KRN","B",.5,.5)
82
83"BLD",7885,"KRN","B",.84,.84)
84
85"BLD",7885,"KRN","B",3.6,3.6)
86
87"BLD",7885,"KRN","B",3.8,3.8)
88
89"BLD",7885,"KRN","B",9.2,9.2)
90
91"BLD",7885,"KRN","B",9.8,9.8)
92
93"BLD",7885,"KRN","B",19,19)
94
95"BLD",7885,"KRN","B",19.1,19.1)
96
97"BLD",7885,"KRN","B",101,101)
98
99"BLD",7885,"KRN","B",409.61,409.61)
100
101"BLD",7885,"KRN","B",771,771)
102
103"BLD",7885,"KRN","B",779.2,779.2)
104
105"BLD",7885,"KRN","B",870,870)
106
107"BLD",7885,"KRN","B",8989.51,8989.51)
108
109"BLD",7885,"KRN","B",8989.52,8989.52)
110
111"BLD",7885,"KRN","B",8994,8994)
112
113"FIA",172.101)
114C0X TRIPLE
115"FIA",172.101,0)
116^C0X(101,
117"FIA",172.101,0,0)
118172.101I
119"FIA",172.101,0,1)
120y^y^f^^^^n
121"FIA",172.101,0,10)
122
123"FIA",172.101,0,11)
124
125"FIA",172.101,0,"RLRO")
126
127"FIA",172.101,172.101)
1280
129"FIA",172.201)
130C0X STRING
131"FIA",172.201,0)
132^C0X(201,
133"FIA",172.201,0,0)
134172.201
135"FIA",172.201,0,1)
136y^y^f^^^^n
137"FIA",172.201,0,10)
138
139"FIA",172.201,0,11)
140
141"FIA",172.201,0,"RLRO")
142
143"FIA",172.201,172.201)
1440
145"FIA",172.201,172.2011)
1460
147"IX",172.101,172.101,"G",0)
148172.101^G^REGULAR INDEX OF THE GRAPH FIELD^R^^F^IR^I^172.101^^^^^LS
149"IX",172.101,172.101,"G",1)
150S ^C0X(101,"G",X,DA)=""
151"IX",172.101,172.101,"G",2)
152K ^C0X(101,"G",X,DA)
153"IX",172.101,172.101,"G",2.5)
154K ^C0X(101,"G")
155"IX",172.101,172.101,"G",11.1,0)
156^.114IA^1^1
157"IX",172.101,172.101,"G",11.1,1,0)
1581^F^172.101^.02^^1^F
159"IX",172.101,172.101,"G",11.1,1,3)
160
161"IX",172.101,172.101,"OPS",0)
162172.101^OPS^REGULAR INDEX OF OBJECT PREDICATE SUBJECT^R^^R^IR^I^172.101^^^^^LS
163"IX",172.101,172.101,"OPS",1)
164S ^C0X(101,"OPS",X(1),X(2),X(3),DA)=""
165"IX",172.101,172.101,"OPS",2)
166K ^C0X(101,"OPS",X(1),X(2),X(3),DA)
167"IX",172.101,172.101,"OPS",2.5)
168K ^C0X(101,"OPS")
169"IX",172.101,172.101,"OPS",11.1,0)
170^.114IA^3^3
171"IX",172.101,172.101,"OPS",11.1,1,0)
1721^F^172.101^.05^^1^F
173"IX",172.101,172.101,"OPS",11.1,1,3)
174
175"IX",172.101,172.101,"OPS",11.1,2,0)
1762^F^172.101^.04^^2^F
177"IX",172.101,172.101,"OPS",11.1,2,3)
178
179"IX",172.101,172.101,"OPS",11.1,3,0)
1803^F^172.101^.03^^3^F
181"IX",172.101,172.101,"OPS",11.1,3,3)
182
183"IX",172.101,172.101,"OSP",0)
184172.101^OSP^REGULAR INDEX OF OBJECT SUBJECT PREDICATE^R^^R^IR^I^172.101^^^^^LS
185"IX",172.101,172.101,"OSP",1)
186S ^C0X(101,"OSP",X(1),X(2),X(3),DA)=""
187"IX",172.101,172.101,"OSP",2)
188K ^C0X(101,"OSP",X(1),X(2),X(3),DA)
189"IX",172.101,172.101,"OSP",2.5)
190K ^C0X(101,"OSP")
191"IX",172.101,172.101,"OSP",11.1,0)
192^.114IA^3^3
193"IX",172.101,172.101,"OSP",11.1,1,0)
1941^F^172.101^.05^^1^F
195"IX",172.101,172.101,"OSP",11.1,1,3)
196
197"IX",172.101,172.101,"OSP",11.1,2,0)
1982^F^172.101^.03^^2^F
199"IX",172.101,172.101,"OSP",11.1,2,3)
200
201"IX",172.101,172.101,"OSP",11.1,3,0)
2023^F^172.101^.04^^3^F
203"IX",172.101,172.101,"OSP",11.1,3,3)
204
205"IX",172.101,172.101,"PSO",0)
206172.101^PSO^REGULAR INDEX OF PREDICATE SUBJECT OBJECT^R^^R^IR^I^172.101^^^^^LS
207"IX",172.101,172.101,"PSO",1)
208S ^C0X(101,"PSO",X(1),X(2),X(3),DA)=""
209"IX",172.101,172.101,"PSO",2)
210K ^C0X(101,"PSO",X(1),X(2),X(3),DA)
211"IX",172.101,172.101,"PSO",2.5)
212K ^C0X(101,"PSO")
213"IX",172.101,172.101,"PSO",11.1,0)
214^.114IA^3^3
215"IX",172.101,172.101,"PSO",11.1,1,0)
2161^F^172.101^.04^^1^F
217"IX",172.101,172.101,"PSO",11.1,1,3)
218
219"IX",172.101,172.101,"PSO",11.1,2,0)
2202^F^172.101^.03^^2^F
221"IX",172.101,172.101,"PSO",11.1,2,3)
222
223"IX",172.101,172.101,"PSO",11.1,3,0)
2243^F^172.101^.05^^3^F
225"IX",172.101,172.101,"PSO",11.1,3,3)
226
227"IX",172.101,172.101,"SPO",0)
228172.101^SPO^REGULAR INDEX OF SUBJECT PREDICATE OBJECT^R^^R^IR^I^172.101^^^^^LS
229"IX",172.101,172.101,"SPO",1)
230S ^C0X(101,"SPO",X(1),X(2),X(3),DA)=""
231"IX",172.101,172.101,"SPO",2)
232K ^C0X(101,"SPO",X(1),X(2),X(3),DA)
233"IX",172.101,172.101,"SPO",2.5)
234K ^C0X(101,"SPO")
235"IX",172.101,172.101,"SPO",11.1,0)
236^.114IA^3^3
237"IX",172.101,172.101,"SPO",11.1,1,0)
2381^F^172.101^.03^^1^F
239"IX",172.101,172.101,"SPO",11.1,1,3)
240
241"IX",172.101,172.101,"SPO",11.1,2,0)
2422^F^172.101^.04^^2^F
243"IX",172.101,172.101,"SPO",11.1,2,3)
244
245"IX",172.101,172.101,"SPO",11.1,3,0)
2463^F^172.101^.05^^3^F
247"IX",172.101,172.101,"SPO",11.1,3,3)
248
249"IX",172.201,172.201,"B",0)
250172.201^B^regular B index for strings to support long strings^R^^F^IR^I^172.201^^^^^LS
251"IX",172.201,172.201,"B",1)
252S ^C0X(201,"B",$E(X,1,240),DA)=""
253"IX",172.201,172.201,"B",2)
254K ^C0X(201,"B",$E(X,1,240),DA)
255"IX",172.201,172.201,"B",2.5)
256K ^C0X(201,"B")
257"IX",172.201,172.201,"B",11.1,0)
258^.114IA^1^1
259"IX",172.201,172.201,"B",11.1,1,0)
2601^F^172.201^.01^240^1^F
261"MBREQ")
2620
263"QUES","XPF1",0)
264Y
265"QUES","XPF1","??")
266^D REP^XPDH
267"QUES","XPF1","A")
268Shall I write over your |FLAG| File
269"QUES","XPF1","B")
270YES
271"QUES","XPF1","M")
272D XPF1^XPDIQ
273"QUES","XPF2",0)
274Y
275"QUES","XPF2","??")
276^D DTA^XPDH
277"QUES","XPF2","A")
278Want my data |FLAG| yours
279"QUES","XPF2","B")
280YES
281"QUES","XPF2","M")
282D XPF2^XPDIQ
283"QUES","XPI1",0)
284YO
285"QUES","XPI1","??")
286^D INHIBIT^XPDH
287"QUES","XPI1","A")
288Want KIDS to INHIBIT LOGONs during the install
289"QUES","XPI1","B")
290NO
291"QUES","XPI1","M")
292D XPI1^XPDIQ
293"QUES","XPM1",0)
294PO^VA(200,:EM
295"QUES","XPM1","??")
296^D MG^XPDH
297"QUES","XPM1","A")
298Enter the Coordinator for Mail Group '|FLAG|'
299"QUES","XPM1","B")
300
301"QUES","XPM1","M")
302D XPM1^XPDIQ
303"QUES","XPO1",0)
304Y
305"QUES","XPO1","??")
306^D MENU^XPDH
307"QUES","XPO1","A")
308Want KIDS to Rebuild Menu Trees Upon Completion of Install
309"QUES","XPO1","B")
310NO
311"QUES","XPO1","M")
312D XPO1^XPDIQ
313"QUES","XPZ1",0)
314Y
315"QUES","XPZ1","??")
316^D OPT^XPDH
317"QUES","XPZ1","A")
318Want to DISABLE Scheduled Options, Menu Options, and Protocols
319"QUES","XPZ1","B")
320NO
321"QUES","XPZ1","M")
322D XPZ1^XPDIQ
323"QUES","XPZ2",0)
324Y
325"QUES","XPZ2","??")
326^D RTN^XPDH
327"QUES","XPZ2","A")
328Want to MOVE routines to other CPUs
329"QUES","XPZ2","B")
330NO
331"QUES","XPZ2","M")
332D XPZ2^XPDIQ
333"RTN")
3341
335"RTN","C0XMAIN")
3360^1^B76730608
337"RTN","C0XMAIN",1,0)
338C0XMAIN ; GPL - Fileman Triples entry point routine ;10/13/11 17:05
339"RTN","C0XMAIN",2,0)
340 ;;0.1;C0X;nopatch;noreleasedate;Build 2
341"RTN","C0XMAIN",3,0)
342 ;Copyright 2011 George Lilly. Licensed under the terms of the GNU
343"RTN","C0XMAIN",4,0)
344 ;General Public License See attached copy of the License.
345"RTN","C0XMAIN",5,0)
346 ;
347"RTN","C0XMAIN",6,0)
348 ;This program is free software; you can redistribute it and/or modify
349"RTN","C0XMAIN",7,0)
350 ;it under the terms of the GNU General Public License as published by
351"RTN","C0XMAIN",8,0)
352 ;the Free Software Foundation; either version 2 of the License, or
353"RTN","C0XMAIN",9,0)
354 ;(at your option) any later version.
355"RTN","C0XMAIN",10,0)
356 ;
357"RTN","C0XMAIN",11,0)
358 ;This program is distributed in the hope that it will be useful,
359"RTN","C0XMAIN",12,0)
360 ;but WITHOUT ANY WARRANTY; without even the implied warranty of
361"RTN","C0XMAIN",13,0)
362 ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
363"RTN","C0XMAIN",14,0)
364 ;GNU General Public License for more details.
365"RTN","C0XMAIN",15,0)
366 ;
367"RTN","C0XMAIN",16,0)
368 ;You should have received a copy of the GNU General Public License along
369"RTN","C0XMAIN",17,0)
370 ;with this program; if not, write to the Free Software Foundation, Inc.,
371"RTN","C0XMAIN",18,0)
372 ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
373"RTN","C0XMAIN",19,0)
374 ;
375"RTN","C0XMAIN",20,0)
376 Q
377"RTN","C0XMAIN",21,0)
378 ;
379"RTN","C0XMAIN",22,0)
380INITFARY(ZFARY) ; INITIALIZE FILE NUMBERS AND OTHER USEFUL THINGS
381"RTN","C0XMAIN",23,0)
382 ; FOR THE DEFAULT TRIPLE STORE. USE OTHER VALUES FOR SUPPORTING ADDITIONAL
383"RTN","C0XMAIN",24,0)
384 ; TRIPLE STORES
385"RTN","C0XMAIN",25,0)
386 S @ZFARY@("C0XTFN")=172.101 ; TRIPLES FILE NUMBER
387"RTN","C0XMAIN",26,0)
388 S @ZFARY@("C0XSFN")=172.201 ; TRIPLES STRINGS FILE NUMBER
389"RTN","C0XMAIN",27,0)
390 S @ZFARY@("C0XTN")=$NA(^C0X(101)) ; TRIPLES GLOBAL NAME
391"RTN","C0XMAIN",28,0)
392 S @ZFARY@("C0XSN")=$NA(^C0X(201)) ; STRING FILE GLOBAL NAME
393"RTN","C0XMAIN",29,0)
394 S @ZFARY@("C0XDIR")="/home/glilly/all_smart_patient_data/smart-rdf/"
395"RTN","C0XMAIN",30,0)
396 D USEFARY(ZFARY)
397"RTN","C0XMAIN",31,0)
398 Q
399"RTN","C0XMAIN",32,0)
400 ;
401"RTN","C0XMAIN",33,0)
402USEFARY(ZFARY) ; INITIALIZES VARIABLES SAVED IN ARRAY ZFARY
403"RTN","C0XMAIN",34,0)
404 N ZI S ZI=""
405"RTN","C0XMAIN",35,0)
406 F S ZI=$O(@ZFARY@(ZI)) Q:ZI="" D
407"RTN","C0XMAIN",36,0)
408 . ;N ZX
409"RTN","C0XMAIN",37,0)
410 . S ZX="S "_ZI_"="""_@ZFARY@(ZI)_""""
411"RTN","C0XMAIN",38,0)
412 . ;W !,ZX
413"RTN","C0XMAIN",39,0)
414 . X ZX
415"RTN","C0XMAIN",40,0)
416 Q
417"RTN","C0XMAIN",41,0)
418 ;
419"RTN","C0XMAIN",42,0)
420IMPORT(FNAME,FDIR,FURL,FARY) ; EXTRINSIC THAT READS A FILE FROM THE STANDARD
421"RTN","C0XMAIN",43,0)
422 ; DIRECTORY, LOADS IT INTO THE TRIPLESTORE AS TEXT, AND RETURNS THE
423"RTN","C0XMAIN",44,0)
424 ; NODE NAME OF THE TEXT TRIPLE
425"RTN","C0XMAIN",45,0)
426 ; FDIR IS THE OPTIONAL DIRECTORY (DEFAUTS TO STANDARD DIR)
427"RTN","C0XMAIN",46,0)
428 ; FURL IS THE OPTIONAL URI FOR ACCESSING THE FILE FROM THE TRIPLE STORE
429"RTN","C0XMAIN",47,0)
430 ; FARY IS THE OPTIONAL FILE ARRAY OF THE TRIPLE STORE TO USE
431"RTN","C0XMAIN",48,0)
432 I '$D(FARY) D ;
433"RTN","C0XMAIN",49,0)
434 . D INITFARY("C0XFARY")
435"RTN","C0XMAIN",50,0)
436 . S FARY="C0XFARY"
437"RTN","C0XMAIN",51,0)
438 D USEFARY(FARY)
439"RTN","C0XMAIN",52,0)
440 N ZD,ZTMP
441"RTN","C0XMAIN",53,0)
442 I '$D(FDIR) S FDIR=C0XDIR ; DIRECTORY OF THE RDF FILE
443"RTN","C0XMAIN",54,0)
444 I '$D(FURL) D ;
445"RTN","C0XMAIN",55,0)
446 . N ZN2 S ZN2=$TR(FNAME,".","_") ; REMOVE THE DOT FROM THE NAME
447"RTN","C0XMAIN",56,0)
448 . S FURL=FDIR_ZN2
449"RTN","C0XMAIN",57,0)
450 N ZTMP
451"RTN","C0XMAIN",58,0)
452 S ZTMP=$NA(^TMP("C0X",$J,"FILEIN",1)) ; WHERE TO PUT THE INCOMING FILE
453"RTN","C0XMAIN",59,0)
454 K @ZTMP ; MAKE SURE IT'S CLEAR
455"RTN","C0XMAIN",60,0)
456 W !,"STARTED: ",$$NOW^XLFDT
457"RTN","C0XMAIN",61,0)
458 W !,"READING IN: ",FNAME
459"RTN","C0XMAIN",62,0)
460 I '$$FILEIN(ZTMP,FDIR,FNAME,4) D Q ; QUIT IF NO SUCCESS
461"RTN","C0XMAIN",63,0)
462 . W !,"ERROR READING FILE: ",FDIR,FNAME
463"RTN","C0XMAIN",64,0)
464 S ZRDF=$NA(^TMP("C0X",$J,"FILEIN")) ; WITHOUT THE SUBSCRIPT
465"RTN","C0XMAIN",65,0)
466 W !,$O(@ZRDF@(""),-1)," LINES READ"
467"RTN","C0XMAIN",66,0)
468 N ZGRAPH,ZSUBJECT
469"RTN","C0XMAIN",67,0)
470 S ZGRAPH="_:G"_$$LKY9 ; RANDOM GRAPH NAME
471"RTN","C0XMAIN",68,0)
472 S ZSUBJECT=$$ANONS ; RANDOM ANOYMOUS SUBJECT
473"RTN","C0XMAIN",69,0)
474 D ADD(ZGRAPH,ZSUBJECT,"fmts:url",FURL)
475"RTN","C0XMAIN",70,0)
476 N ZTXTNM
477"RTN","C0XMAIN",71,0)
478 S ZTXTNM="_TXT_INCOMING_RDF_FILE_"_$$LKY9 ; NAME FOR TEXT NODE
479"RTN","C0XMAIN",72,0)
480 D ADD(ZGRAPH,ZSUBJECT,"fmts:rdfSource",ZTXTNM)
481"RTN","C0XMAIN",73,0)
482 D UPDIE(.C0XFDA) ; TRY IT OUT
483"RTN","C0XMAIN",74,0)
484 K C0XCNT ;RESET FOR NEXT TIME
485"RTN","C0XMAIN",75,0)
486 D PROCESS(.G,ZRDF,FURL,ZGRAPH) ; PARSE AND INSERT THE RDF
487"RTN","C0XMAIN",76,0)
488 Q
489"RTN","C0XMAIN",77,0)
490 ;
491"RTN","C0XMAIN",78,0)
492FILEIN(ZINTMP,ZDIR,ZFNAME,ZLVL) ; READS A FILE INTO ZINTMP USING FTG^%ZISH
493"RTN","C0XMAIN",79,0)
494 ; ZINTMP IS PASSED BY NAME AND INCLUDES THE NEW SUBSCRIPT
495"RTN","C0XMAIN",80,0)
496 ; IE ^TMP("C0X","FILEIN",1)
497"RTN","C0XMAIN",81,0)
498 ; ZLVL IN THIS CASE WOULD BE 3 INCREMENTING THE 1
499"RTN","C0XMAIN",82,0)
500 ; EXTRINSIC WHICH RETURNS THE RESULT OF FTG^%ZISH
501"RTN","C0XMAIN",83,0)
502 S OK=$$FTG^%ZISH(ZDIR,FNAME,ZINTMP,ZLVL)
503"RTN","C0XMAIN",84,0)
504 Q OK
505"RTN","C0XMAIN",85,0)
506 ;
507"RTN","C0XMAIN",86,0)
508TESTPROC ; TEST PROCESS WITH EXISTING SMALL RDF FILE
509"RTN","C0XMAIN",87,0)
510 S ZIN=$NA(^TMP("C0X",12226,"FILEIN"))
511"RTN","C0XMAIN",88,0)
512 S ZGRAPH="/test/rdfFile"
513"RTN","C0XMAIN",89,0)
514 S ZM="/test/rdfFile/meta"
515"RTN","C0XMAIN",90,0)
516 D PROCESS(.G,ZIN,ZGRAPH,ZM)
517"RTN","C0XMAIN",91,0)
518 Q
519"RTN","C0XMAIN",92,0)
520 ;
521"RTN","C0XMAIN",93,0)
522PROCESS(ZRTN,ZRDF,ZGRF,ZMETA) ; PROCESS AN INCOMING RDF FILE
523"RTN","C0XMAIN",94,0)
524 ; ZRTN IS PASS BY REFERENCE AND RETURNS MESSAGES ABOUT THE PROCESSING
525"RTN","C0XMAIN",95,0)
526 ; ZRDF IS PASSED BY NAME AND IS THE GLOBAL CONTAINING THE RDF FILE
527"RTN","C0XMAIN",96,0)
528 ; ZGRF IS THE NAME OF THE GRAPH TO USE IN THE TRIPLE STORE FOR RESULTS
529"RTN","C0XMAIN",97,0)
530 ; ZMETA IS OPTIONAL AND IS THE NAME OF THE GRAPH TO STORE METADATA
531"RTN","C0XMAIN",98,0)
532 ;
533"RTN","C0XMAIN",99,0)
534 ; -- first parse the rdf file with the MXML parser
535"RTN","C0XMAIN",100,0)
536 S C0XDOCID=$$PARSE^C0CNHIN(ZRDF,"C0XARRAY") ; PARSE WITH MXML
537"RTN","C0XMAIN",101,0)
538 ; -- assign the MXLM dom global name to ZDOM
539"RTN","C0XMAIN",102,0)
540 S ZDOM=$NA(^TMP("MXMLDOM",$J,C0XDOCID))
541"RTN","C0XMAIN",103,0)
542 W !,$O(@ZDOM@(""),-1)," XML NODES PARSED"
543"RTN","C0XMAIN",104,0)
544 ; -- populate the metagraph to point to the graph with status unfinished
545"RTN","C0XMAIN",105,0)
546 S METAS=$$ANONS ; GET AN ANONOMOUS RANDOM SUBJECT
547"RTN","C0XMAIN",106,0)
548 I '$D(ZMETA) S ZMETA="_:G"_$$LKY9 ; RANDOM GRAPH NAME FOR METAGRAPH
549"RTN","C0XMAIN",107,0)
550 D ADD(ZMETA,METAS,"fmts:about",ZGRF) ; POINT THE META TO THE GRAPH
551"RTN","C0XMAIN",108,0)
552 D ADD(ZMETA,METAS,"fmts:status","unfinished") ; mark as unfinished
553"RTN","C0XMAIN",109,0)
554 S C0XDATE=$$FMDTOUTC^C0CUTIL($$NOW^XLFDT,"DT")
555"RTN","C0XMAIN",110,0)
556 D ADD(ZMETA,METAS,"fmts:dateTime",C0XDATE)
557"RTN","C0XMAIN",111,0)
558 D UPDIE(.C0XFDA) ; commit the metagraph changes to the triple store
559"RTN","C0XMAIN",112,0)
560 ; --
561"RTN","C0XMAIN",113,0)
562 ; -- pull out the vocabularies in the RDF statement. marked with xmlns:
563"RTN","C0XMAIN",114,0)
564 ; -- put them in a local variable for quick reference
565"RTN","C0XMAIN",115,0)
566 ; -- TODO: create a graph for vocabularies and validate incoming against it
567"RTN","C0XMAIN",116,0)
568 ;
569"RTN","C0XMAIN",117,0)
570 S C0XVOC=""
571"RTN","C0XMAIN",118,0)
572 N ZI,ZJ,ZK S ZI=""
573"RTN","C0XMAIN",119,0)
574 F S ZI=$O(@ZDOM@(1,"A",ZI)) Q:ZI="" D ; FOR EACH xmlns
575"RTN","C0XMAIN",120,0)
576 . S ZVOC=$P(ZI,"xmlns:",2)
577"RTN","C0XMAIN",121,0)
578 . I ZVOC'="" S C0XVOC(ZVOC)=$G(@ZDOM@(1,"A",ZI))
579"RTN","C0XMAIN",122,0)
580 ;W !,"VOCABS:" ZWR C0XVOC
581"RTN","C0XMAIN",123,0)
582 ;
583"RTN","C0XMAIN",124,0)
584 ; -- look for children called rdf:Description. quit if none. not an rdf file
585"RTN","C0XMAIN",125,0)
586 ;
587"RTN","C0XMAIN",126,0)
588 S ZI=$O(@ZDOM@(1,"C",""))
589"RTN","C0XMAIN",127,0)
590 I $G(@ZDOM@(1,"C",ZI))'="rdf:Description" D Q ; not an rdf file
591"RTN","C0XMAIN",128,0)
592 . W !,"Error. Not an RDF file. Cannot process."
593"RTN","C0XMAIN",129,0)
594 ;
595"RTN","C0XMAIN",130,0)
596 ; -- now process the rdf description children
597"RTN","C0XMAIN",131,0)
598 ;
599"RTN","C0XMAIN",132,0)
600 S ZI=""
601"RTN","C0XMAIN",133,0)
602 S (C0XSUB,C0XPRE,C0XOBJ)="" ; INITIALIZE subject, object and predicate
603"RTN","C0XMAIN",134,0)
604 F S ZI=$O(@ZDOM@(1,"C",ZI)) Q:ZI="" D ;
605"RTN","C0XMAIN",135,0)
606 . ; -- we are skipping any child that is not rdf:Description
607"RTN","C0XMAIN",136,0)
608 . ; -- TODO: check to see if this is right in general
609"RTN","C0XMAIN",137,0)
610 . ;
611"RTN","C0XMAIN",138,0)
612 . IF $G(@ZDOM@(1,"C",ZI))'="rdf:Description" D Q ;
613"RTN","C0XMAIN",139,0)
614 . . W !,"SKIPPING NODE: ",ZI
615"RTN","C0XMAIN",140,0)
616 . ; -- now looking for the subject for the triples
617"RTN","C0XMAIN",141,0)
618 . S ZX=$G(@ZDOM@(ZI,"A","rdf:about"))
619"RTN","C0XMAIN",142,0)
620 . I ZX'="" D ; we have the subject
621"RTN","C0XMAIN",143,0)
622 . . ;W " about: ",ZX
623"RTN","C0XMAIN",144,0)
624 . . S C0XSUB=ZX
625"RTN","C0XMAIN",145,0)
626 . E D ;
627"RTN","C0XMAIN",146,0)
628 . . S ZX=$G(@ZDOM@(ZI,"A","rdf:nodeID")) ; node id is another style of subject
629"RTN","C0XMAIN",147,0)
630 . . I ZX'="" D ;
631"RTN","C0XMAIN",148,0)
632 . . . S C0XSUB=ZX
633"RTN","C0XMAIN",149,0)
634 . I C0XSUB="" S C0XSUB=$$ANONS ; DEFAULT TO BLANK SUBJECT
635"RTN","C0XMAIN",150,0)
636 . ;
637"RTN","C0XMAIN",151,0)
638 . ; -- we now have the subject. the children of this node have the rest
639"RTN","C0XMAIN",152,0)
640 . ;
641"RTN","C0XMAIN",153,0)
642 . S ZJ="" ; for the children of the rdf:Description nodes
643"RTN","C0XMAIN",154,0)
644 . F S ZJ=$O(@ZDOM@(ZI,"C",ZJ)) Q:ZJ="" D ; for each child
645"RTN","C0XMAIN",155,0)
646 . . S C0XPRE=@ZDOM@(ZJ) ; the predicate without a prefix
647"RTN","C0XMAIN",156,0)
648 . . S ZX=$G(@ZDOM@(ZJ,"A","xmlns")) ; name space
649"RTN","C0XMAIN",157,0)
650 . . I ZX'="" S C0XPRE=ZX_C0XPRE ; add the namespace prefix
651"RTN","C0XMAIN",158,0)
652 . . I C0XPRE[":" D ; expand using vocabulary
653"RTN","C0XMAIN",159,0)
654 . . . N ZB,ZA
655"RTN","C0XMAIN",160,0)
656 . . . S ZB=$P(C0XPRE,":",1)
657"RTN","C0XMAIN",161,0)
658 . . . S ZA=$P(C0XPRE,":",2)
659"RTN","C0XMAIN",162,0)
660 . . . I $G(C0XVOC(ZB))'="" D ;
661"RTN","C0XMAIN",163,0)
662 . . . . S C0XPRE=C0XVOC(ZB)_ZA ; expanded
663"RTN","C0XMAIN",164,0)
664 . . S ZY=$G(@ZDOM@(ZJ,"A","rdf:resource")) ; potential object
665"RTN","C0XMAIN",165,0)
666 . . I ZY'="" D Q ;
667"RTN","C0XMAIN",166,0)
668 . . . S C0XOBJ=ZY ; object
669"RTN","C0XMAIN",167,0)
670 . . . D ADD(ZGRF,C0XSUB,C0XPRE,C0XOBJ) ; finally. our first real triple
671"RTN","C0XMAIN",168,0)
672 . . ; -- this is an else because of the quit above
673"RTN","C0XMAIN",169,0)
674 . . S ZX=$G(@ZDOM@(ZJ,"A","rdf:nodeID")) ; fishing for nodeId object
675"RTN","C0XMAIN",170,0)
676 . . I ZX'="" D Q ; got one
677"RTN","C0XMAIN",171,0)
678 . . . S C0XOBJ=ZX ; we are using the incoming nodeIDs as object/subject
679"RTN","C0XMAIN",172,0)
680 . . . ; without change... this could be foolish .. look at it again later
681"RTN","C0XMAIN",173,0)
682 . . . D ADD(ZGRF,C0XSUB,C0XPRE,C0XOBJ) ; go for it and add a node
683"RTN","C0XMAIN",174,0)
684 . . S C0XOBJ=$G(@ZDOM@(ZJ,"T",1)) ; hopefully an object is here
685"RTN","C0XMAIN",175,0)
686 . . I C0XOBJ="" D Q ; not a happy situation
687"RTN","C0XMAIN",176,0)
688 . . . W !,"ERROR, NO OBJECT FOUND FOR NODE: ",ZJ
689"RTN","C0XMAIN",177,0)
690 . . D ADD(ZGRF,C0XSUB,C0XPRE,C0XOBJ) ; go for it and add a node
691"RTN","C0XMAIN",178,0)
692 W !,"INSERTING ",C0XCNT," TRIPLES"
693"RTN","C0XMAIN",179,0)
694 D UPDIE(.C0XFDA) ; commit the updates to the file
695"RTN","C0XMAIN",180,0)
696 ; next, mark the graph as finished
697"RTN","C0XMAIN",181,0)
698 W !," ENDED AT: ",$$NOW^XLFDT
699"RTN","C0XMAIN",182,0)
700 Q
701"RTN","C0XMAIN",183,0)
702 ;
703"RTN","C0XMAIN",184,0)
704SHOW(ZN) ;
705"RTN","C0XMAIN",185,0)
706 ZWR ^TMP("MXMLDOM",$J,1,ZN,*)
707"RTN","C0XMAIN",186,0)
708 Q
709"RTN","C0XMAIN",187,0)
710 ;
711"RTN","C0XMAIN",188,0)
712ANONS() ; RETURNS AN ANONOMOUS SUBJECT
713"RTN","C0XMAIN",189,0)
714 Q "_S:"_$$LKY9
715"RTN","C0XMAIN",190,0)
716 ;
717"RTN","C0XMAIN",191,0)
718NEWG(NGRAPH,NMETA) ; CREATES A NEW META GRAPH, MARKS IT AS UNFINISHED
719"RTN","C0XMAIN",192,0)
720 ; THEN CREATES A NEW GRAPH AND POINTS THE METAGRAPH TO IT
721"RTN","C0XMAIN",193,0)
722 ; NGRAPH AND NMETA ARE PASSED BY REFERENCE AND ARE THE RETURN
723"RTN","C0XMAIN",194,0)
724 S NGRAPH="G"_$$LKY9
725"RTN","C0XMAIN",195,0)
726 S NMETA=NGRAPH_"A"
727"RTN","C0XMAIN",196,0)
728 Q
729"RTN","C0XMAIN",197,0)
730 ;
731"RTN","C0XMAIN",198,0)
732ADD(ZG,ZS,ZP,ZO,FARY) ; ADD A TRIPLE TO THE TRIPLESTORE. ALL VALUES ARE TEXT
733"RTN","C0XMAIN",199,0)
734 ; THE FDA IS SET UP BUT THE FILES ARE NOT UPDATED. CALL UPDIE TO COMPLETE
735"RTN","C0XMAIN",200,0)
736 I '$D(FARY) D ;
737"RTN","C0XMAIN",201,0)
738 . D INITFARY("C0XFARY")
739"RTN","C0XMAIN",202,0)
740 . S FARY="C0XFARY"
741"RTN","C0XMAIN",203,0)
742 D USEFARY(FARY)
743"RTN","C0XMAIN",204,0)
744 I '$D(C0XCNT) S C0XCNT=0
745"RTN","C0XMAIN",205,0)
746 N ZNODE
747"RTN","C0XMAIN",206,0)
748 S ZNODE="N"_$$LKY17
749"RTN","C0XMAIN",207,0)
750 N ZNARY ; GET READY TO CALL IENOFA
751"RTN","C0XMAIN",208,0)
752 S ZNARY("ZG",ZG)=""
753"RTN","C0XMAIN",209,0)
754 S ZNARY("ZS",ZS)=""
755"RTN","C0XMAIN",210,0)
756 S ZNARY("ZP",ZP)=""
757"RTN","C0XMAIN",211,0)
758 S ZNARY("ZO",ZO)=""
759"RTN","C0XMAIN",212,0)
760 D IENOFA(.ZIENS,.ZNARY,FARY) ; RESOLVE/ADD STRINGS
761"RTN","C0XMAIN",213,0)
762 ;S ZGIEN=$$IENOF(ZG) ; LAYGO TO GET IEN
763"RTN","C0XMAIN",214,0)
764 ;S ZSIEN=$$IENOF(ZS)
765"RTN","C0XMAIN",215,0)
766 ;S ZPIEN=$$IENOF(ZP)
767"RTN","C0XMAIN",216,0)
768 ;S ZOIEN=$$IENOF(ZO)
769"RTN","C0XMAIN",217,0)
770 ;I $D(C0XFDA) D UPDIE ; ADD THE STRINGS IF NEEDED
771"RTN","C0XMAIN",218,0)
772 S C0XCNT=C0XCNT+1
773"RTN","C0XMAIN",219,0)
774 S C0XFDA(C0XTFN,"?+"_C0XCNT_",",.01)=ZNODE
775"RTN","C0XMAIN",220,0)
776 S C0XFDA(C0XTFN,"?+"_C0XCNT_",",.02)=$O(ZIENS("IEN","ZG",""))
777"RTN","C0XMAIN",221,0)
778 S C0XFDA(C0XTFN,"?+"_C0XCNT_",",.03)=$O(ZIENS("IEN","ZS",""))
779"RTN","C0XMAIN",222,0)
780 S C0XFDA(C0XTFN,"?+"_C0XCNT_",",.04)=$O(ZIENS("IEN","ZP",""))
781"RTN","C0XMAIN",223,0)
782 S C0XFDA(C0XTFN,"?+"_C0XCNT_",",.05)=$O(ZIENS("IEN","ZO",""))
783"RTN","C0XMAIN",224,0)
784 ; REMEMBER TO CALL UPDIE WHEN YOU'RE DONE
785"RTN","C0XMAIN",225,0)
786 Q
787"RTN","C0XMAIN",226,0)
788 ;
789"RTN","C0XMAIN",227,0)
790LKY9() ;EXTRINIC THAT RETURNS A RANDOM 9 DIGIT NUMBER. USED FOR GENERATING
791"RTN","C0XMAIN",228,0)
792 ; UNIQUE NODE AND GRAPH NAMES
793"RTN","C0XMAIN",229,0)
794 N ZN,ZI
795"RTN","C0XMAIN",230,0)
796 S ZN=""
797"RTN","C0XMAIN",231,0)
798 F ZI=1:1:9 D ;
799"RTN","C0XMAIN",232,0)
800 . S ZN=ZN_$R(10)
801"RTN","C0XMAIN",233,0)
802 Q ZN
803"RTN","C0XMAIN",234,0)
804 ;
805"RTN","C0XMAIN",235,0)
806LKY17() ;EXTRINIC THAT RETURNS A RANDOM 9 DIGIT NUMBER. USED FOR GENERATING
807"RTN","C0XMAIN",236,0)
808 ; UNIQUE NODE AND GRAPH NAMES
809"RTN","C0XMAIN",237,0)
810 N ZN,ZI
811"RTN","C0XMAIN",238,0)
812 S ZN=""
813"RTN","C0XMAIN",239,0)
814 F ZI=1:1:17 D ;
815"RTN","C0XMAIN",240,0)
816 . S ZN=ZN_$R(10)
817"RTN","C0XMAIN",241,0)
818 Q ZN
819"RTN","C0XMAIN",242,0)
820 ;
821"RTN","C0XMAIN",243,0)
822IENOF(ZSTRING,FARY) ; EXTRINSIC WHICH RETURNS THE IEN OF ZS IN THE STRINGS FILE
823"RTN","C0XMAIN",244,0)
824 I '$D(FARY) D ;
825"RTN","C0XMAIN",245,0)
826 . D INITFARY("C0XFARY")
827"RTN","C0XMAIN",246,0)
828 . S FARY="C0XFARY"
829"RTN","C0XMAIN",247,0)
830 N ZIEN
831"RTN","C0XMAIN",248,0)
832 S ZIEN=$O(@C0XSN@("B",ZSTRING,""))
833"RTN","C0XMAIN",249,0)
834 I ZIEN="" D ;
835"RTN","C0XMAIN",250,0)
836 . S C0XFDA2(C0XSFN,"+1,",.01)=ZSTRING
837"RTN","C0XMAIN",251,0)
838 . D UPDIE(.C0XFDA2)
839"RTN","C0XMAIN",252,0)
840 . S ZIEN=$O(@C0XSN@("B",ZSTRING,""))
841"RTN","C0XMAIN",253,0)
842 . K C0XFDA2
843"RTN","C0XMAIN",254,0)
844 Q ZIEN
845"RTN","C0XMAIN",255,0)
846 ;
847"RTN","C0XMAIN",256,0)
848IENOFA(ZOUTARY,ZINARY,FARY) ; RESOLVE STRINGS TO IEN IN STRINGS FILE
849"RTN","C0XMAIN",257,0)
850 ; OR ADD THEM IF
851"RTN","C0XMAIN",258,0)
852 ; MISSING. ZINARY AND ZOUTARY ARE PASSED BY REFERENCE
853"RTN","C0XMAIN",259,0)
854 ; ZINARY LOOKS LIKE ZINARY("VAR","VAL")=""
855"RTN","C0XMAIN",260,0)
856 ; RETURNS IN ZOUTARY OF THE FORM ZOUTARY("IEN","VAR",IEN)=""
857"RTN","C0XMAIN",261,0)
858 I '$D(FARY) D ;
859"RTN","C0XMAIN",262,0)
860 . D INITFARY("C0XFARY")
861"RTN","C0XMAIN",263,0)
862 . S FARY="C0XFARY"
863"RTN","C0XMAIN",264,0)
864 K ZOUTARY ; START WITH CLEAN RESULTS
865"RTN","C0XMAIN",265,0)
866 K C0XFDA2 ; USE A SEPARATE FDA FOR THIS
867"RTN","C0XMAIN",266,0)
868 N ZI S ZI=""
869"RTN","C0XMAIN",267,0)
870 N ZV,ZIEN
871"RTN","C0XMAIN",268,0)
872 N ZCNT S ZCNT=0
873"RTN","C0XMAIN",269,0)
874 F S ZI=$O(ZINARY(ZI)) Q:ZI="" D ; LOOK FOR MISSING STRINGS
875"RTN","C0XMAIN",270,0)
876 . S ZV=$O(ZINARY(ZI,""))
877"RTN","C0XMAIN",271,0)
878 . I $O(@C0XSN@("B",ZV,""))="" D ;
879"RTN","C0XMAIN",272,0)
880 . . S ZCNT=ZCNT+1
881"RTN","C0XMAIN",273,0)
882 . . S C0XFDA2(C0XSFN,"+"_ZCNT_",",.01)=ZV
883"RTN","C0XMAIN",274,0)
884 I $D(C0XFDA2) D ;
885"RTN","C0XMAIN",275,0)
886 . D UPDIE(.C0XFDA2) ; ADD MISSING STRINGS
887"RTN","C0XMAIN",276,0)
888 . K C0XFDA2 ; CLEAN UP
889"RTN","C0XMAIN",277,0)
890 F S ZI=$O(ZINARY(ZI)) Q:ZI="" D ; NOT GET ALL IENS
891"RTN","C0XMAIN",278,0)
892 . S ZV=$O(ZINARY(ZI,""))
893"RTN","C0XMAIN",279,0)
894 . S ZIEN=$O(@C0XSN@("B",ZV,"")) ; THEY SHOULD BE THERE NOW
895"RTN","C0XMAIN",280,0)
896 . I ZIEN="" D ;
897"RTN","C0XMAIN",281,0)
898 . . W !,"ERROR ADDING STRING: ",ZV
899"RTN","C0XMAIN",282,0)
900 . . B
901"RTN","C0XMAIN",283,0)
902 . S ZOUTARY("IEN",ZI,ZIEN)=""
903"RTN","C0XMAIN",284,0)
904 Q
905"RTN","C0XMAIN",285,0)
906 ;
907"RTN","C0XMAIN",286,0)
908UPDIE(ZFDA) ; INTERNAL ROUTINE TO CALL UPDATE^DIE AND CHECK FOR ERRORS
909"RTN","C0XMAIN",287,0)
910 ; ZFDA IS PASSED BY REFERENCE
911"RTN","C0XMAIN",288,0)
912 ;ZWR ZFDA
913"RTN","C0XMAIN",289,0)
914 ;B
915"RTN","C0XMAIN",290,0)
916 K ZERR
917"RTN","C0XMAIN",291,0)
918 D CLEAN^DILF
919"RTN","C0XMAIN",292,0)
920 D UPDATE^DIE("","ZFDA","","ZERR")
921"RTN","C0XMAIN",293,0)
922 I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST,
923"RTN","C0XMAIN",294,0)
924 ; INVOKE THE ERROR TRAP IF TASKED
925"RTN","C0XMAIN",295,0)
926 ;. W "ERROR",!
927"RTN","C0XMAIN",296,0)
928 ;. ZWR ZERR
929"RTN","C0XMAIN",297,0)
930 ;. B
931"RTN","C0XMAIN",298,0)
932 K ZFDA
933"RTN","C0XMAIN",299,0)
934 Q
935"RTN","C0XMAIN",300,0)
936 ;
937"SEC","^DIC",172.101,172.101,0,"AUDIT")
938@
939"SEC","^DIC",172.101,172.101,0,"DD")
940@
941"SEC","^DIC",172.101,172.101,0,"DEL")
942@
943"SEC","^DIC",172.101,172.101,0,"LAYGO")
944@
945"SEC","^DIC",172.101,172.101,0,"RD")
946@
947"SEC","^DIC",172.101,172.101,0,"WR")
948@
949"SEC","^DIC",172.201,172.201,0,"AUDIT")
950@
951"SEC","^DIC",172.201,172.201,0,"DD")
952@
953"SEC","^DIC",172.201,172.201,0,"DEL")
954@
955"SEC","^DIC",172.201,172.201,0,"LAYGO")
956@
957"SEC","^DIC",172.201,172.201,0,"RD")
958@
959"SEC","^DIC",172.201,172.201,0,"WR")
960@
961"VER")
9628.0^22.0
963"^DD",172.101,172.101,0)
964FIELD^^.05^5
965"^DD",172.101,172.101,0,"DDA")
966N
967"^DD",172.101,172.101,0,"DT")
9683111013
969"^DD",172.101,172.101,0,"ID",.02)
970S %I=Y,Y=$S('$D(^(0)):"",$D(^C0X(201,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""),C=$P(^DD(172.201,.01,0),U,2) D Y^DIQ:Y]"" W " ",Y,@("$E("_DIC_"%I,0),0)") S Y=%I K %I
971"^DD",172.101,172.101,0,"ID",.03)
972S %I=Y,Y=$S('$D(^(0)):"",$D(^C0X(201,+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""),C=$P(^DD(172.201,.01,0),U,2) D Y^DIQ:Y]"" W " ",Y,@("$E("_DIC_"%I,0),0)") S Y=%I K %I
973"^DD",172.101,172.101,0,"ID",.04)
974S %I=Y,Y=$S('$D(^(0)):"",$D(^C0X(201,+$P(^(0),U,4),0))#2:$P(^(0),U,1),1:""),C=$P(^DD(172.201,.01,0),U,2) D Y^DIQ:Y]"" W " ",Y,@("$E("_DIC_"%I,0),0)") S Y=%I K %I
975"^DD",172.101,172.101,0,"ID",.05)
976S %I=Y,Y=$S('$D(^(0)):"",$D(^C0X(201,+$P(^(0),U,5),0))#2:$P(^(0),U,1),1:""),C=$P(^DD(172.201,.01,0),U,2) D Y^DIQ:Y]"" W " ",Y,@("$E("_DIC_"%I,0),0)") S Y=%I K %I
977"^DD",172.101,172.101,0,"IX","B",172.101,.01)
978
979"^DD",172.101,172.101,0,"NM","C0X TRIPLE")
980
981"^DD",172.101,172.101,.01,0)
982NODEID^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X
983"^DD",172.101,172.101,.01,.1)
984TRIPLE NODE ID
985"^DD",172.101,172.101,.01,1,0)
986^.1
987"^DD",172.101,172.101,.01,1,1,0)
988172.101^B
989"^DD",172.101,172.101,.01,1,1,1)
990S ^C0X(101,"B",$E(X,1,30),DA)=""
991"^DD",172.101,172.101,.01,1,1,2)
992K ^C0X(101,"B",$E(X,1,30),DA)
993"^DD",172.101,172.101,.01,3)
994Answer must be 3-30 characters in length
995"^DD",172.101,172.101,.01,"DT")
9963111013
997"^DD",172.101,172.101,.02,0)
998GRAPH^P172.201^C0X(201,^0;2^Q
999"^DD",172.101,172.101,.02,.1)
1000TRIPLE GRAPH
1001"^DD",172.101,172.101,.02,3)
1002Answer must be 3-240 characters in length
1003"^DD",172.101,172.101,.02,"DT")
10043111013
1005"^DD",172.101,172.101,.03,0)
1006SUBJECT^P172.201^C0X(201,^0;3^Q
1007"^DD",172.101,172.101,.03,.1)
1008TRIPLE SUBJECT
1009"^DD",172.101,172.101,.03,"DT")
10103111013
1011"^DD",172.101,172.101,.04,0)
1012PREDICATE^P172.201^C0X(201,^0;4^Q
1013"^DD",172.101,172.101,.04,.1)
1014TRIPLE PREDICATE
1015"^DD",172.101,172.101,.04,"DT")
10163111013
1017"^DD",172.101,172.101,.05,0)
1018OBJECT^P172.201^C0X(201,^0;5^Q
1019"^DD",172.101,172.101,.05,.1)
1020TRIPLE OBJECT
1021"^DD",172.101,172.101,.05,"DT")
10223111013
1023"^DD",172.201,172.201,0)
1024FIELD^^1^2
1025"^DD",172.201,172.201,0,"DDA")
1026N
1027"^DD",172.201,172.201,0,"DT")
10283111013
1029"^DD",172.201,172.201,0,"NM","C0X STRING")
1030
1031"^DD",172.201,172.201,0,"PT",172.101,.02)
1032
1033"^DD",172.201,172.201,0,"PT",172.101,.03)
1034
1035"^DD",172.201,172.201,0,"PT",172.101,.04)
1036
1037"^DD",172.201,172.201,0,"PT",172.101,.05)
1038
1039"^DD",172.201,172.201,.01,0)
1040STRING^RF^^0;1^K:$L(X)>240!($L(X)<1)!'(X=X) X
1041"^DD",172.201,172.201,.01,.1)
1042TRIPLE STRING
1043"^DD",172.201,172.201,.01,1,0)
1044^.1^^0
1045"^DD",172.201,172.201,.01,3)
1046Answer must be 1-240 characters in length
1047"^DD",172.201,172.201,.01,"DT")
10483111028
1049"^DD",172.201,172.201,1,0)
1050TEXT^172.2011^^1;0
1051"^DD",172.201,172.2011,0)
1052TEXT SUB-FIELD^^.01^1
1053"^DD",172.201,172.2011,0,"DT")
10543111013
1055"^DD",172.201,172.2011,0,"NM","TEXT")
1056
1057"^DD",172.201,172.2011,0,"UP")
1058172.201
1059"^DD",172.201,172.2011,.01,0)
1060TEXT^Wx^^0;1
1061"^DD",172.201,172.2011,.01,.1)
1062LONGER TEXT
1063"^DD",172.201,172.2011,.01,"DT")
10643111013
1065"^DIC",172.101,172.101,0)
1066C0X TRIPLE^172.101
1067"^DIC",172.101,172.101,0,"GL")
1068^C0X(101,
1069"^DIC",172.101,"B","C0X TRIPLE",172.101)
1070
1071"^DIC",172.201,172.201,0)
1072C0X STRING^172.201
1073"^DIC",172.201,172.201,0,"GL")
1074^C0X(201,
1075"^DIC",172.201,"B","C0X STRING",172.201)
1076
1077**END**
1078**END**
Note: See TracBrowser for help on using the repository browser.