CIAZGRPC.m

CIAZGRPC ;MSC/IND/DKM - Generic Retrieval RPC's;09-Dec-2011 10:12;PLS

 ;;1.4;GENERIC RETRIEVAL UTILITY;;Feb 14, 2008

 ;;Copyright 2000-2011, Medsphere Systems Corporation

 ;=================================================================

 ; RPC: CIAZG USER

 ; Returns info about user as IEN^Name

USERGET(DATA) ;

 S DATA=DUZ_U_$$GET1^DIQ(200,DUZ,.01)_U_$$HASKEY^BEHOUSCX("CIAZGRU")

 Q

 ; RPC: CIAZG DEFINITION DELETE

 ; Deletes a definition and its associated items and subdefinitions.

DEFNDEL(DATA,DEFN) ;

 S DATA=$$DEFNDEL^CIAZGUTL(DEFN)

 Q

 ; RPC: CIAZG DEFINITION CLONE

 ; Clones a definition

DEFNCLN(DATA,DEFN) ;

 S DEFN=$$DEFNCLN^CIAZGUTL(DEFN)

 I DEFN S DATA=0_U_DEFN

 E  S DATA="-1^Failed to clone the specified entry."

 Q

 ; RPC: CIAZG DEFINITION CHILD

 ; Create a new child definition

DEFNSUB(DATA,DEFN,FLD,SOURCE) ;

 S DATA=$$DEFNSUB^CIAZGUTL(DEFN,FLD,SOURCE)

 Q

 ; RPC: CIAZG DEFINITION CLEANUP

 ; Cleanup orphaned child definitions

DEFNCLP(DATA) ;

 D DEFNDLO^CIAZGUTL

 S DATA=1

 Q

 ; RPC: CIAZG DEFINITION CRITERIA

 ; Get criteria for definition

DEFNCRT(DATA,DEFN) ;

 N ARY,CNT,VTP,X

 D GETITEMS^CIAZGRU(DEFN,20,.ARY)

 S (CNT,ARY)=0

 F  S ARY=$O(ARY(ARY)) Q:'ARY  D

 .S X=ARY(ARY,0),VTP=+$P($G(^CIAZG(19950.44,+$P(X,U,5),0)),U,2)

 .Q:'VTP!'$P(X,U,6)

 .S $P(ARY(ARY),U,4)=VTP

 .D ADDCRT(ARY(ARY)),ADDCRT(ARY(ARY,-1)),ADDCRT(ARY(ARY,0))

 .D ADDCRTW(10),ADDCRTW(20)

 Q

ADDCRTW(MLT) ;

 N X,Y

 S X=+$P($G(ARY(ARY,MLT,0)),U,4)

 D ADDCRT(X)

 F Y=1:1:X D ADDCRT(ARY(ARY,MLT,Y,0))

 Q

ADDCRT(VAL) ;

 S CNT=CNT+1,DATA(CNT)=VAL

 Q

 Q

 ; RPC: CIAZG QUERY FETCH

 ; Fetch query result in XML format

 ;   DATA:  Global to receive data

 ;   RSLT:  Query result IEN

 ;   STRT:  Last record retrieved

 ;   COUNT: # of record to retrieve (-1=all,0=none,>0=#)

 ;   META:  If nonzero, include metadata

RSLTGET(DATA,RSLT,STRT,COUNT,META) ;

 D RSLTGET^CIAZGUTL(.DATA,.RSLT,.STRT,.COUNT,.META)

 Q

 ; RPC: CIAZG QUERY ABORT

 ; Abort a query

RSLTABR(DATA,RSLT) ;

 S DATA=$$RSLTABR^CIAZGUTL(RSLT)

 Q

 ; RPC: CIAZG ITEMS CLEANUP

ITEMSCLP(DATA,ITEMS) ;

 D ITEMDLO^CIAZGUTL(.ITEMS)

 S DATA=1

 Q

 ; RPC: CIAZG QUERY RUN

 ; Run the specified query

 ;   DEFN: IEN of query definition

 ;   VALS: Value list for user-supplied criteria

 ;   WHEN: Optional date/time to run

 ; COHORT: Optional selection cohort

QRYRUN(DATA,DEFN,VALS,WHEN,COHORT) ;

 N CRT,GBL

 D GETCRT^CIAZGRU(DEFN,.CRT,.VALS)

 S:$G(COHORT) GBL=$NA(^XTMP("CIAZGRU",COHORT,"IEN"))

 S DATA=$$SUBMIT^CIAZGRU(DEFN,.WHEN,.CRT,.GBL)

 Q

 ; RPC: CIAZG QUERY RERUN

 ; Rerun a query

 ;   RSLT: IEN of query result

 ;   WHEN: Optional date/time to run

QRYAGN(DATA,RSLT,WHEN,COHORT) ;

 N CRT,PRT,SRT,DEFN,GBL,X

 S DATA=0

 Q:'$D(^XTMP("CIAZGRU",RSLT,0))

 S DEFN=$P(^(0),U,3)

 Q:'$D(^CIAZG(19950.41,DEFN,0))

 F X="CRT","SRT","PRT" M @X=^XTMP("CIAZGRU",RSLT,X)

 S:$G(COHORT) GBL=$NA(^XTMP("CIAZGRU",COHORT,"IEN"))

 S DATA=$$SUBMIT2^CIAZGRU(DEFN,.WHEN,.CRT,.SRT,.PRT,.GBL)

 Q

 ; RPC: CIAZG JOIN FIELDS

 ; Return a list of fields that point from one file (FROM)

 ; to a second file (TO) and that have a standard xref.

 ; Returns list in the format:

 ;   <field #>^<field name>^<xref>

FLDJOIN(DATA,TO,FROM) ;

 D FLDJOIN^CIAZGUTL(.TO,.FROM,.DATA)

 Q

CIAZGRPC  ;MSC/IND/DKM - Generic Retrieval RPC's;09-Dec-2011 10:12;PLS

 +1       ;;1.4;GENERIC RETRIEVAL UTILITY;;Feb 14, 2008

 +2       ;;Copyright 2000-2011, Medsphere Systems Corporation

 +3       ;=================================================================

 +4       ; RPC: CIAZG USER

 +5       ; Returns info about user as IEN^Name

USERGET(DATA) ;

 +1        SET DATA=DUZ_U_$$GET1^DIQ(200,DUZ,.01)_U_$$HASKEY^BEHOUSCX("CIAZGRU")

 +2        QUIT 

 +3       ; RPC: CIAZG DEFINITION DELETE

 +4       ; Deletes a definition and its associated items and subdefinitions.

DEFNDEL(DATA,DEFN) ;

 +1        SET DATA=$$DEFNDEL^CIAZGUTL(DEFN)

 +2        QUIT 

 +3       ; RPC: CIAZG DEFINITION CLONE

 +4       ; Clones a definition

DEFNCLN(DATA,DEFN) ;

 +1        SET DEFN=$$DEFNCLN^CIAZGUTL(DEFN)

 +2        IF DEFN

               SET DATA=0_U_DEFN

 +3       IF '$TEST

               SET DATA="-1^Failed to clone the specified entry."

 +4        QUIT 

 +5       ; RPC: CIAZG DEFINITION CHILD

 +6       ; Create a new child definition

DEFNSUB(DATA,DEFN,FLD,SOURCE) ;

 +1        SET DATA=$$DEFNSUB^CIAZGUTL(DEFN,FLD,SOURCE)

 +2        QUIT 

 +3       ; RPC: CIAZG DEFINITION CLEANUP

 +4       ; Cleanup orphaned child definitions

DEFNCLP(DATA) ;

 +1        DO DEFNDLO^CIAZGUTL

 +2        SET DATA=1

 +3        QUIT 

 +4       ; RPC: CIAZG DEFINITION CRITERIA

 +5       ; Get criteria for definition

DEFNCRT(DATA,DEFN) ;

 +1        NEW ARY,CNT,VTP,X

 +2        DO GETITEMS^CIAZGRU(DEFN,20,.ARY)

 +3        SET (CNT,ARY)=0

 +4        FOR 

               SET ARY=$ORDER(ARY(ARY))

               IF 'ARY

                   QUIT 

               Begin DoDot:1

 +5                SET X=ARY(ARY,0)

                   SET VTP=+$PIECE($GET(^CIAZG(19950.44,+$PIECE(X,U,5),0)),U,2)

 +6                IF 'VTP!'$PIECE(X,U,6)

                       QUIT 

 +7                SET $PIECE(ARY(ARY),U,4)=VTP

 +8                DO ADDCRT(ARY(ARY))

                   DO ADDCRT(ARY(ARY,-1))

                   DO ADDCRT(ARY(ARY,0))

 +9                DO ADDCRTW(10)

                   DO ADDCRTW(20)

               End DoDot:1

 +10       QUIT 

ADDCRTW(MLT) ;

 +1        NEW X,Y

 +2        SET X=+$PIECE($GET(ARY(ARY,MLT,0)),U,4)

 +3        DO ADDCRT(X)

 +4        FOR Y=1:1:X

               DO ADDCRT(ARY(ARY,MLT,Y,0))

 +5        QUIT 

ADDCRT(VAL) ;

 +1        SET CNT=CNT+1

           SET DATA(CNT)=VAL

 +2        QUIT 

 +3        QUIT 

 +4       ; RPC: CIAZG QUERY FETCH

 +5       ; Fetch query result in XML format

 +6       ;   DATA:  Global to receive data

 +7       ;   RSLT:  Query result IEN

 +8       ;   STRT:  Last record retrieved

 +9       ;   COUNT: # of record to retrieve (-1=all,0=none,>0=#)

 +10      ;   META:  If nonzero, include metadata

RSLTGET(DATA,RSLT,STRT,COUNT,META) ;

 +1        DO RSLTGET^CIAZGUTL(.DATA,.RSLT,.STRT,.COUNT,.META)

 +2        QUIT 

 +3       ; RPC: CIAZG QUERY ABORT

 +4       ; Abort a query

RSLTABR(DATA,RSLT) ;

 +1        SET DATA=$$RSLTABR^CIAZGUTL(RSLT)

 +2        QUIT 

 +3       ; RPC: CIAZG ITEMS CLEANUP

ITEMSCLP(DATA,ITEMS) ;

 +1        DO ITEMDLO^CIAZGUTL(.ITEMS)

 +2        SET DATA=1

 +3        QUIT 

 +4       ; RPC: CIAZG QUERY RUN

 +5       ; Run the specified query

 +6       ;   DEFN: IEN of query definition

 +7       ;   VALS: Value list for user-supplied criteria

 +8       ;   WHEN: Optional date/time to run

 +9       ; COHORT: Optional selection cohort

QRYRUN(DATA,DEFN,VALS,WHEN,COHORT) ;

 +1        NEW CRT,GBL

 +2        DO GETCRT^CIAZGRU(DEFN,.CRT,.VALS)

 +3        IF $GET(COHORT)

               SET GBL=$NAME(^XTMP("CIAZGRU",COHORT,"IEN"))

 +4        SET DATA=$$SUBMIT^CIAZGRU(DEFN,.WHEN,.CRT,.GBL)

 +5        QUIT 

 +6       ; RPC: CIAZG QUERY RERUN

 +7       ; Rerun a query

 +8       ;   RSLT: IEN of query result

 +9       ;   WHEN: Optional date/time to run

QRYAGN(DATA,RSLT,WHEN,COHORT) ;

 +1        NEW CRT,PRT,SRT,DEFN,GBL,X

 +2        SET DATA=0

 +3        IF '$DATA(^XTMP("CIAZGRU",RSLT,0))

               QUIT 

 +4        SET DEFN=$PIECE(^(0),U,3)

 +5        IF '$DATA(^CIAZG(19950.41,DEFN,0))

               QUIT 

 +6        FOR X="CRT","SRT","PRT"

               MERGE @X=^XTMP("CIAZGRU",RSLT,X)

 +7        IF $GET(COHORT)

               SET GBL=$NAME(^XTMP("CIAZGRU",COHORT,"IEN"))

 +8        SET DATA=$$SUBMIT2^CIAZGRU(DEFN,.WHEN,.CRT,.SRT,.PRT,.GBL)

 +9        QUIT 

 +10      ; RPC: CIAZG JOIN FIELDS

 +11      ; Return a list of fields that point from one file (FROM)

 +12      ; to a second file (TO) and that have a standard xref.

 +13      ; Returns list in the format:

 +14      ;   <field #>^<field name>^<xref>

FLDJOIN(DATA,TO,FROM) ;

 +1        DO FLDJOIN^CIAZGUTL(.TO,.FROM,.DATA)

 +2        QUIT