BMXADOVJ ; IHS/CIHA/GIS - RPC CALL: GENERATE DATA FOR AN ADO DATASET ;
;;4.0;BMX;;JUN 28, 2010
; THIS ROUTINE MANAGES THE JOINS
;
;
;
; THE FIFTH PARAMETER OF SS^BMXADO CONTAINS THE JOIN INSTRUCTIONS
; SYNTAX: DESCENDANT SCHEMA IEN (DETAILS FILE), JOIN FIELD FROM MASTER FILE
; THE FIRST "," PIECE STATES THAT THE MASTER FILE IS JOINED BY ITS .02 FIELD TO THE DETAILS FILE
; THE SECOND "," PIECE STARTES THAT THE DETAILS FILE IS DEFINED BY SCHEMA #6
; AN OPTIONAL 3RD "," PIECE MAY CONTAIN A SECONDARY VSTG TO MORE PRECISELY DEFINE JOIN ITERATION
; E.G., "...~6.,.02,AA~1/1/2004~2/1/2004~~~~~|WT|R"
; IN THIS CASE, THE SECONDARY VSTG SPECIFIES THAT THE AA INDEX BE USED TO CONTROL THE ITERATOR
; THE START AND STOP DATES ARE IN EFFECT BUT MAX IS IGNORED/IRRELEVANT
; THE 1ST "|" PIECE OF THE PARAM SECTION WILL BE AUTOMATICALLY STUFFED WITH PATEINT DFN(S) DURING ITERATION
; IF MULTIPLE JOINS ARE REQUESTED, THEY ARE SPARATED BY THE '@JOIN@' DELIMTER
; "E.G., 6,.02@JOIN@1,.03@JOIN@2,.02@JOIN@9,SUB"
; IN THIS EXAPLE THE MASTER FILE IS JOIND TO THE DETAILS FILES ASSOCIATED WITH SCHEMAS 6, 1, AND 9
; NOTE THAT THE 3RD JOIN DEINED IN THE STRING SPECIFIES A SUBFILE REALTION RATHER THAN A "POINTER" RELATION
; IF A SECOND RECORD SET IS CREATED TO FULFILL A JOIN REQUEST, IT WILL ONLY CONTAIN THE ROWS NECESSARY TO COMPLETE THE JOIN
;
JOIN(SMASTER,JSTG) ;EP - APPEND ADDITIONAL ANRS TO FULFILL JOIN REQUESTS
N TMP,JOIN,JINST,FMASTER
I '$L($G(JSTG)) Q ; JOIN STRING MUST NOT BE NULL
S FMASTER=$P($G(^BMXADO(+$G(SMASTER),0)),U,2) I 'FMASTER Q ; MASTER SCHEMA & FILE MUST EXIST
S TMP=$NA(^TMP("BMX JOIN",$J)) K @TMP ; JOIN INFO TEMP STORAGE ARRAY
S @TMP@(0,SMASTER)=$$RANGE ; GET DATA NODE RANGE FOR THE MASTER ANR
I '$D(@TMP@(0)) Q ; DATA MUST EXIST IN THE MASTER FILE OR QUIT
F JOIN=1:1 S JINST=$P(JSTG,"@JOIN@",JOIN) Q:JINST="" D J(SMASTER,JINST) ; MAIN LOOP FOR DOING JOINS
K @TMP
Q
;
RANGE() ; GET DATA NODE RANGE FOR LAST SCHEMA ENTERED
N X,FIRST,LAST,Y
S (X,LAST)=$O(@OUT@(999999999),-1)
F S X=$O(@OUT@(X),-1) Q:'X S Y=@OUT@(X) Q:Y'[$C(30) S FIRST=X
I '$G(FIRST) Q ""
S FIRST=FIRST+1
Q (FIRST_U_LAST)
;
J(SMASTER,JSTG) ; JOIN DETAILS FILE TO MASTER FILE
; SMASTER=MASTER SCHMA IEN, SDETAIL=DETAILS SCHEMA IEN
N JARR,SEC,ERR,JIEN,SUB,IX,PARENT,JFLD,DFLD,NODE,X,STOP,VSTG2,SDETAIL,JFLD
S SDETAIL=$P(JSTG,C),JFLD=$P(JSTG,C,2),DFLD=$P(JSTG,C,3),VSTG2=$P(JSTG,C,4,999)
I JFLD="SUB" S JFLD=.001,DFLD=.0001
I JFLD=.001,DFLD=.0001 S SUB=1,VSTG2="~~~~~SIT~BMXADOVJ~" ; MAKE SUBFILE ITERATOR VSTG
D IEN(SMASTER,SDETAIL,JFLD) ; GET A LIST OF JOIN IENS FROM THE MASTER FILE
I '$D(@TMP@(1)) Q ; NO MASTER FILE IENS FOR JOINS, SO QUIT
N FIEN,DAS,SIEN,VSTG,JSTG
S DAS="",SIEN=SDETAIL,VSTG=VSTG2
S FIEN=$P($G(^BMXADO(SIEN,0)),U,2) I 'FIEN Q
D JEP^BMXADO ; BUILD THE JOIN ANR
Q
;
IEN(SMASTER,SDETAIL,JFLD) ; GET THE MASTER FILE IENS FOR BUILDING THE JOIN DATA SET
N FIEN,%,FIRST,LAST,NODE,DA,IEN
I JFLD["IEN" S JFLD=+JFLD
S FIEN=$P($G(^BMXADO(SMASTER,0)),U,2) I 'FIEN Q
S %=$G(@TMP@(0,SMASTER)) I '$L(%) Q
S FIRST=+%,LAST=$P(%,U,2),NODE=FIRST-.1
F S NODE=$O(@OUT@(NODE)) Q:'NODE Q:NODE>LAST D
. S DA=+@OUT@(NODE)
. I 'DA Q
. I JFLD=.001 S @TMP@(1,SDETAIL,DA)="" Q
. S IEN=$$GET1^DIQ(FIEN,(DA_C),JFLD,"I") I 'IEN Q
. S @TMP@(1,SDETAIL,IEN)=""
. Q
Q
;
JFLD ; EP-STUFF JOIN FIELD IDS INTO THE INTRO SEGMENT OF THE SCHEMA
N NODE,%
S NODE=999999999999
F S NODE=$O(@OUT@(NODE),-1) Q:'NODE I @OUT@(NODE)["@@@meta@@@" Q
I 'NODE Q
S %=$P(@OUT@(NODE),U),$P(%,"|",4)=$G(JFLD),$P(%,"|",5)=$G(DFLD)
S @OUT@(NODE)=%_U
Q
;
BMXADOVJ ; IHS/CIHA/GIS - RPC CALL: GENERATE DATA FOR AN ADO DATASET ;
+1 ;;4.0;BMX;;JUN 28, 2010
+2 ; THIS ROUTINE MANAGES THE JOINS
+3 ;
+4 ;
+5 ;
+6 ; THE FIFTH PARAMETER OF SS^BMXADO CONTAINS THE JOIN INSTRUCTIONS
+7 ; SYNTAX: DESCENDANT SCHEMA IEN (DETAILS FILE), JOIN FIELD FROM MASTER FILE
+8 ; THE FIRST "," PIECE STATES THAT THE MASTER FILE IS JOINED BY ITS .02 FIELD TO THE DETAILS FILE
+9 ; THE SECOND "," PIECE STARTES THAT THE DETAILS FILE IS DEFINED BY SCHEMA #6
+10 ; AN OPTIONAL 3RD "," PIECE MAY CONTAIN A SECONDARY VSTG TO MORE PRECISELY DEFINE JOIN ITERATION
+11 ; E.G., "...~6.,.02,AA~1/1/2004~2/1/2004~~~~~|WT|R"
+12 ; IN THIS CASE, THE SECONDARY VSTG SPECIFIES THAT THE AA INDEX BE USED TO CONTROL THE ITERATOR
+13 ; THE START AND STOP DATES ARE IN EFFECT BUT MAX IS IGNORED/IRRELEVANT
+14 ; THE 1ST "|" PIECE OF THE PARAM SECTION WILL BE AUTOMATICALLY STUFFED WITH PATEINT DFN(S) DURING ITERATION
+15 ; IF MULTIPLE JOINS ARE REQUESTED, THEY ARE SPARATED BY THE '@JOIN@' DELIMTER
+16 ; "E.G., 6,.02@JOIN@1,.03@JOIN@2,.02@JOIN@9,SUB"
+17 ; IN THIS EXAPLE THE MASTER FILE IS JOIND TO THE DETAILS FILES ASSOCIATED WITH SCHEMAS 6, 1, AND 9
+18 ; NOTE THAT THE 3RD JOIN DEINED IN THE STRING SPECIFIES A SUBFILE REALTION RATHER THAN A "POINTER" RELATION
+19 ; IF A SECOND RECORD SET IS CREATED TO FULFILL A JOIN REQUEST, IT WILL ONLY CONTAIN THE ROWS NECESSARY TO COMPLETE THE JOIN
+20 ;
JOIN(SMASTER,JSTG) ;EP - APPEND ADDITIONAL ANRS TO FULFILL JOIN REQUESTS
+1 NEW TMP,JOIN,JINST,FMASTER
+2 ; JOIN STRING MUST NOT BE NULL
IF '$LENGTH($GET(JSTG))
QUIT
+3 ; MASTER SCHEMA & FILE MUST EXIST
SET FMASTER=$PIECE($GET(^BMXADO(+$GET(SMASTER),0)),U,2)
IF 'FMASTER
QUIT
+4 ; JOIN INFO TEMP STORAGE ARRAY
SET TMP=$NAME(^TMP("BMX JOIN",$JOB))
KILL @TMP
+5 ; GET DATA NODE RANGE FOR THE MASTER ANR
SET @TMP@(0,SMASTER)=$$RANGE
+6 ; DATA MUST EXIST IN THE MASTER FILE OR QUIT
IF '$DATA(@TMP@(0))
QUIT
+7 ; MAIN LOOP FOR DOING JOINS
FOR JOIN=1:1
SET JINST=$PIECE(JSTG,"@JOIN@",JOIN)
IF JINST=""
QUIT
DO J(SMASTER,JINST)
+8 KILL @TMP
+9 QUIT
+10 ;
RANGE() ; GET DATA NODE RANGE FOR LAST SCHEMA ENTERED
+1 NEW X,FIRST,LAST,Y
+2 SET (X,LAST)=$ORDER(@OUT@(999999999),-1)
+3 FOR
SET X=$ORDER(@OUT@(X),-1)
IF 'X
QUIT
SET Y=@OUT@(X)
IF Y'[$CHAR(30)
QUIT
SET FIRST=X
+4 IF '$GET(FIRST)
QUIT ""
+5 SET FIRST=FIRST+1
+6 QUIT (FIRST_U_LAST)
+7 ;
J(SMASTER,JSTG) ; JOIN DETAILS FILE TO MASTER FILE
+1 ; SMASTER=MASTER SCHMA IEN, SDETAIL=DETAILS SCHEMA IEN
+2 NEW JARR,SEC,ERR,JIEN,SUB,IX,PARENT,JFLD,DFLD,NODE,X,STOP,VSTG2,SDETAIL,JFLD
+3 SET SDETAIL=$PIECE(JSTG,C)
SET JFLD=$PIECE(JSTG,C,2)
SET DFLD=$PIECE(JSTG,C,3)
SET VSTG2=$PIECE(JSTG,C,4,999)
+4 IF JFLD="SUB"
SET JFLD=.001
SET DFLD=.0001
+5 ; MAKE SUBFILE ITERATOR VSTG
IF JFLD=.001
IF DFLD=.0001
SET SUB=1
SET VSTG2="~~~~~SIT~BMXADOVJ~"
+6 ; GET A LIST OF JOIN IENS FROM THE MASTER FILE
DO IEN(SMASTER,SDETAIL,JFLD)
+7 ; NO MASTER FILE IENS FOR JOINS, SO QUIT
IF '$DATA(@TMP@(1))
QUIT
+8 NEW FIEN,DAS,SIEN,VSTG,JSTG
+9 SET DAS=""
SET SIEN=SDETAIL
SET VSTG=VSTG2
+10 SET FIEN=$PIECE($GET(^BMXADO(SIEN,0)),U,2)
IF 'FIEN
QUIT
+11 ; BUILD THE JOIN ANR
DO JEP^BMXADO
+12 QUIT
+13 ;
IEN(SMASTER,SDETAIL,JFLD) ; GET THE MASTER FILE IENS FOR BUILDING THE JOIN DATA SET
+1 NEW FIEN,%,FIRST,LAST,NODE,DA,IEN
+2 IF JFLD["IEN"
SET JFLD=+JFLD
+3 SET FIEN=$PIECE($GET(^BMXADO(SMASTER,0)),U,2)
IF 'FIEN
QUIT
+4 SET %=$GET(@TMP@(0,SMASTER))
IF '$LENGTH(%)
QUIT
+5 SET FIRST=+%
SET LAST=$PIECE(%,U,2)
SET NODE=FIRST-.1
+6 FOR
SET NODE=$ORDER(@OUT@(NODE))
IF 'NODE
QUIT
IF NODE>LAST
QUIT
Begin DoDot:1
+7 SET DA=+@OUT@(NODE)
+8 IF 'DA
QUIT
+9 IF JFLD=.001
SET @TMP@(1,SDETAIL,DA)=""
QUIT
+10 SET IEN=$$GET1^DIQ(FIEN,(DA_C),JFLD,"I")
IF 'IEN
QUIT
+11 SET @TMP@(1,SDETAIL,IEN)=""
+12 QUIT
End DoDot:1
+13 QUIT
+14 ;
JFLD ; EP-STUFF JOIN FIELD IDS INTO THE INTRO SEGMENT OF THE SCHEMA
+1 NEW NODE,%
+2 SET NODE=999999999999
+3 FOR
SET NODE=$ORDER(@OUT@(NODE),-1)
IF 'NODE
QUIT
IF @OUT@(NODE)["@@@meta@@@"
QUIT
+4 IF 'NODE
QUIT
+5 SET %=$PIECE(@OUT@(NODE),U)
SET $PIECE(%,"|",4)=$GET(JFLD)
SET $PIECE(%,"|",5)=$GET(DFLD)
+6 SET @OUT@(NODE)=%_U
+7 QUIT
+8 ;
