Changeset 1609 for fmts/trunk/p/C0XGET3.m

Timestamp:

Feb 21, 2013, 7:57:31 PM (12 years ago)

Author:

Sam Habiel

Message:

Medications: Can now add a fake prescription to the record

File:

• fmts/trunk/p/C0XGET3.m (modified) (2 diffs)

fmts/trunk/p/C0XGET3.m

@@ -1 @@
-C0XGET3 ; VEN/SMH - Sam's Getters... let's try to make them simple ;2013-02-04  12:00 PM
+C0XGET3 ; VEN/SMH - Sam's Getters... let's try to make them simple ;2013-02-20  11:50 AM
  ;;1.1;FILEMAN TRIPLE STORE;
  ;
@@ -33 +33 @@
  Q:$L(EP) $$GSPO1(G,O,EP) ; if we have an extended predicate, recurse
  Q ^C0X(201,O,0) ; this is the end point of the recursion.
+ ;
+GSPO(R,G,S,P) ; Public Proc; Get Objects for a Graph/Subject/Predicate combination
+ ; Supports forward relational navigation for predicates using "." as separator
+ ; R is global style RPC reference
+ ; Extended Predicates are assumed to have only one object
+ ; This routine doesn't process multiple objects for the extended predicate.
+ N EP S EP=$P(P,".",2,99) ; Extended Predicate
+ S P=$P(P,".") ; Predicate becomes the first piece
+ N O S O=""
+ F  S O=$O(^C0X(101,"GSPO",$$IEN(G),$$IEN(S),$$IEN(P),O)) Q:O=""  D  ; For each object
+ . I $L(EP) D  ; If we have an extended predicate...
+ . . I EP="*" N P S P="" F  S P=$O(^C0X(101,"GSPO",$$IEN(G),$$IEN(O),P)) Q:P=""  D  ; If all predicates (EP=*) for each predicate
+ . . . S @R@(O,$$NSP^C0XUTIL(P))=$$GSPO1(G,O,P) ; Return (Object, namespaced predicate)=value
+ . . E  S @R@(O)=$$GSPO1(G,O,EP)  ; If Extended Predicate, resolve the predicate to get ultimate object
+ . E  S @R@(O)=^C0X(201,O,0) ; Otherwise, just return the object
+ QUIT