Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PXVRPC7

PXVRPC7.m

Go to the documentation of this file. 
  1. PXVRPC7 ;BPFO/LMT - PCE RPCs for V Immunization ;07/12/16  14:44
  1.  ;;1.0;PCE PATIENT CARE ENCOUNTER;**216**;Aug 12, 1996;Build 11
  1.  ;
  1.  ;
  1.  ; Reference to ENCODE^VPRJSON supported by ICR #6411
  1.  ;
  1. RPC(PXRSLT,PXFILTER,PXLIST,PXBEFORE,PXDEM) ; entry point for RPC
  1.  ;
  1.  ; Returns immunization records from the V Immunization and V Immunization Deleted file.
  1.  ; There are two methods for defining the criteria to determine which records to return.
  1.  ;
  1.  ;    1. A specific list of record IENs can be passed in, and only those records will
  1.  ;       be returned (if they exist on the system). When called in this way, the list
  1.  ;       of records should be passed in PXLIST, and PXFILTER should not be defined (if
  1.  ;       both PXLIST and PXFILTER are defined, only the records listed in PXLIST will
  1.  ;       be returned, and the search criteria in PXFILTER will be ignored).
  1.  ;
  1.  ;       If an invalid IEN was passed in, the following error will be returned:
  1.  ;          "Record with IEN #xxx does not exist."
  1.  ;       If the record could not be returned for some other reason, the following
  1.  ;       error will be returned:
  1.  ;          "Unable to return record with IEN #xxx."
  1.  ;
  1.  ;    2. A time range (and other filter criteria) can be passed in PXFILTER, and a list
  1.  ;       of records that meet that criteria will be returned. Any record added, edited,
  1.  ;       or deleted (if PXFILTER("INC DELETE")=1) within that time range will be
  1.  ;       returned.
  1.  ;
  1.  ;       To limit the number of records returned, PXFILTER("MAX") can be set to the maximum
  1.  ;       number of records to be returned. The RPC will return a value called "Bookmark".
  1.  ;       That value can be used to call the RPC again, this time passing in the "Boomark"
  1.  ;       value in PXFILTER("BOOKMARK") (all other parameters should be defined exactly as when
  1.  ;       previously called), and the RPC will return the next n number of records that meet
  1.  ;       the search criteria, and starting where the previous call left off. So for example,
  1.  ;       if there are 1,000 records that meet the search criteria, and PXFILTER("MAX") is
  1.  ;       set to return a maximum of 100 records, the RPC will need to be called 10 times in
  1.  ;       order to return all 1,000 records. Each subsequent time the RPC is called, the caller
  1.  ;       would set PXFILTER("BOOKMARK") to the bookmark value returned in the previous call.
  1.  ;       The caller would know when they reach the end and that there are no more records
  1.  ;       to be returned, when the RPC returns TOTAL ITEMS=0.
  1.  ;
  1.  ; Note: All date/time references are to be in FileMan format.
  1.  ;
  1.  ;Input:
  1.  ;  PXRSLT   - Return value passed by reference (Required)
  1.  ;  PXFILTER - Search criteria (Optional)
  1.  ;     ("START")       - Start date/time to begin search from (Defaults to T-1)
  1.  ;     ("STOP")        - Stop date/time to end search (if time is not specified,
  1.  ;                       midnight is assumed). (Defaults to T-1)
  1.  ;    ("DATA SRC EXC") - A semi-colon delimited list of Data Source names (in external format)
  1.  ;                       (e.g., SRC1;SRC2;SRCn) (Optional).
  1.  ;                       Any immunization record whose DATA SOURCE matches one of the data names
  1.  ;                       in this list will be filtered out, and will not be returned.
  1.  ;     ("MAX")         - The maximum number of records to return (defaults to 99)
  1.  ;     ("BOOKMARK")    - If wanting to get the next n number of records, the
  1.  ;                       bookmark value returned in the previous call should be passed here. (Optional)
  1.  ;     ("INC DELETE")  - Flag to control if records should also be returned from the V
  1.  ;                       IMMUNIZATION DELETED file. (defaults to "1")
  1.  ;                       1 - Include records from both the V IMMUNIZATION and V IMMUNIZATION DELETED files
  1.  ;                       0 - Only include records from the V IMMUNIZATION file.
  1.  ;  PXLIST - A list of record numbers (IENs) to return (Optional)
  1.  ;           To specify an IEN from the V IMMUNIZATION file, set PXLIST(IEN)=""
  1.  ;           To specify an IEN from the V IMMUNIZATION DELETED file, set PXLIST(IEN_"D")="" (e.g., PXLIST("123D")="")
  1.  ;  PXBEFORE - A date in FileMan format (Optional)
  1.  ;             It is used when the caller wants to see how the records being returned changed since that date. When
  1.  ;             populated, it is used in a number of ways:
  1.  ;             1. Additions: If a record was added after that date, and later edited, we will
  1.  ;                return the record as if it's a new record (i.e., TYPE="ADD") (even though it's truly an
  1.  ;                edited record), as from that date's perspective this is a new record.
  1.  ;             2. Edits: a) We will return two versions of an edited record. One, will
  1.  ;                be the way the record existed on that date (i.e., TYPE="UPDATE-BEFORE"). Two, will be the
  1.  ;                current state of the record (i.e., TYPE="UPDATE-AFTER"). b) if no significant changes have been made to this record since
  1.  ;                that date (i.e., the record was edited after that date, but none of the fields that are returned
  1.  ;                in this call were modified with that edit), then we will not return this record, as nothing
  1.  ;                significant changed since that date.
  1.  ;             3. Deletes: a) If a record was added after that date and later deleted, we won't return the record,
  1.  ;                as on that date the record did not exist, and the current record is deleted, so nothing
  1.  ;                really changed since that date. b) If a record was edited after that date and then deleted,
  1.  ;                the deleted record will be returned the way it existed on that date, as from that date's perspective
  1.  ;                that is what the deleted record looked like.
  1.  ;     PXDEM - Return patient demographics? (1=Yes/0=No) (Defaults to "1").
  1.  ;
  1.  ; Currently only JSON is supported.
  1.  ;            PXFORMAT - In what format to return the data "JSON"/"DELIMITED". (Defaults to "JSON")
  1.  ;
  1.  ;Returns:
  1.  ;  Each item returned will contain an immunization object, and if demographics are requested, a patient object.
  1.  ;
  1.  ;  The immunization object can be called: IMM-ADD, IMM-DELETE, IMM-UPDATE, IMM-UPDATE-BEFORE, or IMM-UPDATE-AFTER.
  1.  ;     IMM-ADD - Used when the immunization record is a "new" record.
  1.  ;     IMM-DELETE - Used when the immunizatin record is a deleted record.
  1.  ;     IMM-UPDATE - Used wehn the immunizatin record was edited (and the caller did not pass in a date).
  1.  ;     IMM-UPDATE-BEFORE/IMM-UPDATE-AFTER - Used when the immunizatin record was edited and the called passed in a date.
  1.  ;          Two objects will be returned. The IMM-UPDATE-BEFORE object will be the way the record existed before that date,
  1.  ;          and the IMM-UPDATE-AFTER will be the current state of the record.
  1.  ;
  1.  ;  For more details on the fields and attributes of the immunization and patient objects, please see the documentation.
  1.  ;
  1.  N DFN,PXBOOKMARK,PXBYLIST,PXCNT,PXDATASRC,PXERRCNT,PXEXDS,PXFILE,PXI,PXINCDEL,PXMAX,PXNEWBOOKMARK,PXSTART,PXSTOP,PXTIME,PXVIMM,PXX
  1.  N PXFORMAT  ; currently, only JSON is supported. But in the future, perhaps change this to a paramater and also support other formats.
  1.  ;
  1.  S PXRSLT=$NA(^TMP("PXVRPC7-R",$J))
  1.  K ^TMP("PXVRPC7",$J),^TMP("PXVRPC7-R",$J)
  1.  ;
  1.  I $G(PXFORMAT)'?1(1"JSON",1"DELIMITED") S PXFORMAT="JSON"
  1.  I $G(PXDEM)'?1(1"0",1"1") S PXDEM=1
  1.  S PXBEFORE=$G(PXBEFORE)
  1.  ;
  1.  S PXCNT=0
  1.  S PXERRCNT=0
  1.  ;
  1.  S PXBYLIST=0
  1.  I $O(PXLIST(""))'="" S PXBYLIST=1
  1.  ;
  1.  S PXBEFORE=$G(PXBEFORE)
  1.  ;
  1.  S PXI=""
  1.  I PXBYLIST F  S PXI=$O(PXLIST(PXI)) Q:PXI=""  D
  1.  . S PXVIMM=+PXI
  1.  . I 'PXVIMM D  Q
  1.  . . S PXERRCNT=PXERRCNT+1
  1.  . . S ^TMP("PXVRPC7",$J,"ERRORS",PXERRCNT)="Record with IEN #"_PXI_" does not exist."
  1.  . S PXFILE=$E(PXI,$L(PXI))
  1.  . S PXFILE=$S(PXFILE="D":9000080.11,1:9000010.11)
  1.  . I PXFILE=9000010.11,'$D(^AUPNVIMM(PXVIMM,0)) D  Q
  1.  . . S PXERRCNT=PXERRCNT+1
  1.  . . S ^TMP("PXVRPC7",$J,"ERRORS",PXERRCNT)="Record with IEN #"_PXI_" does not exist."
  1.  . I PXFILE=9000080.11,'$D(^AUPDVIMM(PXVIMM,0)) D  Q
  1.  . . S PXERRCNT=PXERRCNT+1
  1.  . . S ^TMP("PXVRPC7",$J,"ERRORS",PXERRCNT)="Record with IEN #"_PXI_" does not exist."
  1.  . I '$$GETREC("PXVRPC7",.PXCNT,PXVIMM,PXFILE,$G(PXDEM),$G(PXBEFORE)) D
  1.  . . S PXERRCNT=PXERRCNT+1
  1.  . . S ^TMP("PXVRPC7",$J,"ERRORS",PXERRCNT)="Unable to return record with IEN #"_PXI_"."
  1.  ;
  1.  I 'PXBYLIST D
  1.  . ;S DFN=$G(PXFILTER("DFN"))
  1.  . S PXSTART=$G(PXFILTER("START"))
  1.  . I PXSTART="" S PXSTART=$$FMADD^XLFDT(DT,-1)
  1.  . S PXSTOP=$G(PXFILTER("STOP"))
  1.  . I PXSTOP="" S PXSTOP=$$FMADD^XLFDT(DT,-1)
  1.  . I PXSTART,PXSTOP,PXSTOP<PXSTART D
  1.  . . S PXX=PXSTART,PXSTART=PXSTOP,PXSTOP=PXX
  1.  . I PXSTOP,$P(PXSTOP,".",2)="" S PXSTOP=PXSTOP_".24"
  1.  . S PXEXDS=$G(PXFILTER("DATA SRC EXC"))
  1.  . F PXX=1:1:99 S PXDATASRC=$P(PXEXDS,";",PXX) Q:PXDATASRC=""  S PXEXDS(+$O(^PX(839.7,"B",PXDATASRC,0)))=""
  1.  . S PXMAX=+$G(PXFILTER("MAX"))
  1.  . I PXMAX'>0 S PXMAX=99
  1.  . S PXBOOKMARK=$G(PXFILTER("BOOKMARK"))
  1.  . S PXINCDEL=$G(PXFILTER("INC DELETE"))
  1.  . I PXINCDEL'?1(1"0",1"1") S PXINCDEL=1
  1.  . ;
  1.  . S PXTIME=PXSTART-.000000001
  1.  . I PXBOOKMARK'="" S PXTIME=$P(PXBOOKMARK,U,1)
  1.  . I $P(PXBOOKMARK,U,3)'="D" F  S PXTIME=$O(^AUPNVIMM("AT",PXTIME)) Q:('PXTIME)!(PXTIME>PXSTOP)!(PXCNT'<PXMAX)  D
  1.  . . S PXVIMM=0
  1.  . . I PXBOOKMARK'="" S PXVIMM=$P(PXBOOKMARK,U,2) S PXBOOKMARK=""
  1.  . . F  S PXVIMM=$O(^AUPNVIMM("AT",PXTIME,PXVIMM)) Q:('PXVIMM)!(PXCNT'<PXMAX)  D
  1.  . . . S PXNEWBOOKMARK=PXTIME_U_PXVIMM
  1.  . . . I '$D(^AUPNVIMM(PXVIMM,0)) Q
  1.  . . . S PXDATASRC=$P($G(^AUPNVIMM(PXVIMM,812)),U,3)
  1.  . . . I $D(PXEXDS(+PXDATASRC)) Q
  1.  . . . S PXX=$$GETREC("PXVRPC7",.PXCNT,PXVIMM,9000010.11,$G(PXDEM),$G(PXBEFORE))
  1.  . ;
  1.  . ; SEARCH DELETED FILE
  1.  . S PXTIME=PXSTART-.000000001
  1.  . I $P(PXBOOKMARK,U,3)="D" S PXTIME=$P(PXBOOKMARK,U,1)
  1.  . I PXINCDEL F  S PXTIME=$O(^AUPDVIMM("DD",PXTIME)) Q:('PXTIME)!(PXTIME>PXSTOP)!(PXCNT'<PXMAX)  D
  1.  . . S PXVIMM=0
  1.  . . I $P(PXBOOKMARK,U,3)="D" S PXVIMM=$P(PXBOOKMARK,U,2) S PXBOOKMARK=""
  1.  . . F  S PXVIMM=$O(^AUPDVIMM("DD",PXTIME,PXVIMM)) Q:('PXVIMM)!(PXCNT'<PXMAX)  D
  1.  . . . S PXNEWBOOKMARK=PXTIME_U_PXVIMM_U_"D"
  1.  . . . I '$D(^AUPDVIMM(PXVIMM,0)) Q
  1.  . . . ;if record was added after PXBEFORE, don't include this record
  1.  . . . I PXBEFORE,$P($G(^AUPDVIMM(PXVIMM,12)),U,5)>PXBEFORE Q
  1.  . . . S PXDATASRC=$P($G(^AUPDVIMM(PXVIMM,812)),U,3)
  1.  . . . I $D(PXEXDS(+PXDATASRC)) Q
  1.  . . . S PXX=$$GETREC("PXVRPC7",.PXCNT,PXVIMM,9000080.11,$G(PXDEM),$G(PXBEFORE))
  1.  ;
  1.  S ^TMP("PXVRPC7",$J,"FACILITY ID")=$$STA^XUAF4($$KSP^XUPARAM("INST"))
  1.  S ^TMP("PXVRPC7",$J,"TOTAL ITEMS")=PXCNT
  1.  I 'PXBYLIST S ^TMP("PXVRPC7",$J,"BOOKMARK")=$G(PXNEWBOOKMARK)
  1.  ;
  1.  I $G(PXFORMAT)="JSON" D JSON("PXVRPC7")
  1.  ;
  1.  K ^TMP("PXVRPC7",$J)
  1.  ;
  1.  Q
  1.  ;
  1. JSON(PXSUB) ; return data in JSON format
  1.  ;
  1.  N PXATT,PXCAT,PXCNT,PXCNT2,PXCODE,PXCODES,PXCODESYS,PXFLD,PXFLDS,PXFLDSUB,PXGBL,PXNODE,PXPIECE,PXSUBTMP,PXTEMP,PXVAL
  1.  ;
  1.  S PXFLDS("IMM","PATIENT")="IEN^NAME"
  1.  S PXFLDS("IMM","ORDERING PROVIDER")="IEN^NAME^NPI^VPID"
  1.  S PXFLDS("IMM","ENCOUNTER PROVIDER")="IEN^NAME^NPI^VPID"
  1.  S PXFLDS("IMM","DOCUMENTER")="IEN^NAME^NPI^VPID"
  1.  S PXFLDS("IMM","LOT NUMBER")="IEN^NAME"
  1.  S PXFLDS("IMM","MANUFACTURER")="IEN^NAME^MVX CODE"
  1.  S PXFLDS("IMM","INFO SOURCE")="IEN^HL7 CODE^NAME"
  1.  S PXFLDS("IMM","ADMIN ROUTE")="IEN^HL7 CODE^NAME"
  1.  S PXFLDS("IMM","ADMIN SITE")="IEN^HL7 CODE^NAME"
  1.  S PXFLDS("IMM","IMMUNIZATION")="IEN^NAME"
  1.  S PXFLDS("IMM","DATA SOURCE")="IEN^NAME"
  1.  S PXFLDS("IMM","FACILITY")="NAME^STATION NUMBER"
  1.  S PXFLDS("IMM","LOCATION")="IEN^NAME"
  1.  S PXFLDS("IMM","VIS OFFERED")="IEN^DATE OFFERED^NAME^EDITION DATE^LANGUAGE"
  1.  S PXFLDS("PAT","ETHNICITY")="HL7 CODE^NAME"
  1.  S PXFLDS("PAT","RACE")="HL7 CODE^NAME"
  1.  S PXFLDS("PAT","ADDRESS")="STREET 1^STREET 2^STREET 3^CITY^STATE^ZIP"
  1.  S PXFLDS("PAT","SUPPORT")="TYPE^NAME^RELATIONSHIP^PHONE^STREET 1^STREET 2^STREET 3^CITY^STATE^ZIP"
  1.  S PXFLDS("PAT","PLACE OF BIRTH")="CITY^STATE"
  1.  S PXFLDS("PAT","FACILITY")="NAME^STATION NUMBER"
  1.  ;
  1.  S PXSUBTMP="PXVRPC7-TMP"
  1.  K ^TMP(PXSUBTMP,$J)
  1.  ;
  1.  S PXGBL=$NA(^TMP(PXSUB,$J))
  1.  F  S PXGBL=$Q(@PXGBL) Q:PXGBL=""  Q:($QS(PXGBL,1)'=PXSUB)!($QS(PXGBL,2)'=$J)  D
  1.  . I $QS(PXGBL,3)'="ITEMS" D  Q
  1.  . . M ^TMP(PXSUBTMP,$J,$QS(PXGBL,3))=^TMP(PXSUB,$J,$QS(PXGBL,3))
  1.  . S PXCNT=$QS(PXGBL,4)
  1.  . S PXCAT=$QS(PXGBL,5)
  1.  . S PXFLD=$QS(PXGBL,6)
  1.  . S PXFLDSUB=$S(PXCAT="PATIENT":"PAT",1:"IMM")
  1.  . ;
  1.  . I PXFLDSUB="IMM",PXFLD="CODES" D  Q
  1.  . . S PXCODESYS=$QS(PXGBL,7)
  1.  . . S PXCODES=@PXGBL
  1.  . . K @PXGBL
  1.  . . F PXPIECE=1:1:99 S PXCODE=$P(PXCODES,U,PXPIECE) Q:PXCODE=""  D
  1.  . . . S ^TMP(PXSUBTMP,$J,"ITEMS",PXCNT,PXCAT,"CODING SYSTEM",PXCODESYS,PXPIECE)=PXCODE
  1.  . ;
  1.  . I PXFLDSUB="IMM",PXFLD="VACCINE GROUP" D  Q
  1.  . . S PXCNT2=$QS(PXGBL,7)
  1.  . . S ^TMP(PXSUBTMP,$J,"ITEMS",PXCNT,PXCAT,"VACCINE GROUPS",PXCNT2)=@PXGBL
  1.  . ;
  1.  . S PXVAL=$G(PXFLDS(PXFLDSUB,PXFLD))
  1.  . I PXVAL="" D  Q
  1.  . . S ^TMP(PXSUBTMP,$J,"ITEMS",PXCNT,PXCAT,PXFLD)=@PXGBL
  1.  . S PXTEMP=@PXGBL
  1.  . K @PXGBL
  1.  . S PXCNT2=$QS(PXGBL,7)
  1.  . S PXNODE=$NA(^TMP(PXSUBTMP,$J,"ITEMS",PXCNT,PXCAT,PXFLD))
  1.  . F PXPIECE=1:1:99 S PXATT=$P(PXVAL,U,PXPIECE) Q:PXATT=""  D
  1.  . . I PXCNT2>0 S @PXNODE@(PXCNT2,PXATT)=$P(PXTEMP,U,PXPIECE)
  1.  . . I PXCNT2'>0 S @PXNODE@(PXATT)=$P(PXTEMP,U,PXPIECE)
  1.  ;
  1.  D ENCODE^VPRJSON("^TMP("""_PXSUBTMP_""",$J)","^TMP("""_PXSUB_"-R"",$J)")  ;ICR 6411
  1.  ;
  1.  K ^TMP(PXSUBTMP,$J)
  1.  ;
  1.  Q
  1.  ;
  1. GETREC(PXSUB,PXCNT,PXVIMM,PXFILE,PXGETDEM,PXDATE) ; get one record and add it to ^TMP
  1.  ;
  1.  N DFN,PXADDDT,PXEDITED,PXIMMNODE,PXPATARR,PXRSLT,PXTYPE,PXVALID,PXVIMMARR
  1.  ;
  1.  ;shold we return this record as an add, update, or delete
  1.  S PXTYPE=$S(PXFILE=9000080.11:"D",1:"A")
  1.  I PXFILE=9000010.11 D
  1.  . S PXADDDT=$P($G(^AUPNVIMM(PXVIMM,12)),U,5)
  1.  . ;if record as added after PXDATE, treat it as an A, even if it was editted
  1.  . I PXDATE,PXADDDT>PXDATE Q
  1.  . S PXEDITED=$P($G(^AUPNVIMM(PXVIMM,801)),U,1)
  1.  . I PXEDITED=1 S PXTYPE="U"  ; EDITED FLAG
  1.  ;
  1.  ; For updates, when PXDATE is defined, send before/after
  1.  I PXTYPE="U",PXDATE S PXTYPE="UBA"
  1.  ;
  1.  S PXCNT=PXCNT+1
  1.  ;
  1.  I PXTYPE="UBA" D
  1.  . D VIMM^PXVRPC7A(.PXVIMMARR,PXVIMM,PXFILE,PXDATE)
  1.  . I '$$VALIDATE(.PXVIMMARR) D  Q
  1.  . . S PXTYPE="A"
  1.  . M ^TMP(PXSUB,$J,"ITEMS",PXCNT,"IMM-UPDATE-BEFORE")=PXVIMMARR
  1.  ;
  1.  S PXIMMNODE=$S(PXTYPE="A":"IMM-ADD",PXTYPE="D":"IMM-DELETE",PXTYPE="U":"IMM-UPDATE",1:"IMM-UPDATE-AFTER")
  1.  ;for IMM-ADD and IMM-UPDATE-AFTER, we want to get the current state of the record.
  1.  I PXTYPE'="D" S PXDATE=""
  1.  S PXRSLT=$NA(^TMP(PXSUB,$J,"ITEMS",PXCNT,PXIMMNODE))
  1.  K PXVIMMARR
  1.  D VIMM^PXVRPC7A(.PXVIMMARR,PXVIMM,PXFILE,PXDATE)
  1.  S PXVALID=$$VALIDATE(.PXVIMMARR)
  1.  I 'PXVALID,PXTYPE="UBA",$D(^TMP(PXSUB,$J,"ITEMS",PXCNT,"IMM-UPDATE-BEFORE")) D
  1.  . S PXTYPE="D"
  1.  . S PXIMMNODE="IMM-DELETE"
  1.  . M ^TMP(PXSUB,$J,"ITEMS",PXCNT,PXIMMNODE)=^TMP(PXSUB,$J,"ITEMS",PXCNT,"IMM-UPDATE-BEFORE")
  1.  . K ^TMP(PXSUB,$J,"ITEMS",PXCNT,"IMM-UPDATE-BEFORE")
  1.  ;
  1.  I PXVALID M ^TMP(PXSUB,$J,"ITEMS",PXCNT,PXIMMNODE)=PXVIMMARR
  1.  I '$D(^TMP(PXSUB,$J,"ITEMS",PXCNT)) D  Q 0
  1.  . S PXCNT=PXCNT-1
  1.  ;
  1.  ; for edits, compare before/after. if nothing changed, don't include this record.
  1.  I PXTYPE="UBA",$$COMPARE(PXSUB,PXCNT,"IMM-UPDATE-BEFORE","IMM-UPDATE-AFTER") D  Q 0
  1.  . K ^TMP(PXSUB,$J,"ITEMS",PXCNT)
  1.  . S PXCNT=PXCNT-1
  1.  ;
  1.  S DFN=+$G(^TMP(PXSUB,$J,"ITEMS",PXCNT,PXIMMNODE,"PATIENT"))
  1.  I DFN,$G(PXGETDEM) D
  1.  . ;K ^TMP(PXSUB,$J,PXCNT,PXIMMNODE,"PATIENT")
  1.  . D DEM^PXVRPC7A(.PXPATARR,DFN)
  1.  . M ^TMP(PXSUB,$J,"ITEMS",PXCNT,"PATIENT")=PXPATARR
  1.  Q 1
  1.  ;
  1. VALIDATE(PXVIMMARR) ;validate immun record has minimum fields populated
  1.  I '$G(PXVIMMARR("PATIENT")) Q 0
  1.  I '$D(^DPT(+PXVIMMARR("PATIENT"),0)) Q 0
  1.  I '$G(PXVIMMARR("ADMINISTERED DATE TIME")) Q 0
  1.  I '$G(PXVIMMARR("IMMUNIZATION")) Q 0
  1.  Q 1
  1.  ;
  1. COMPARE(PXSUB,PXCNT,PXSUB1,PXSUB2) ;
  1.  ; Compare the two arryas (PXSUB1 and PXSUB2).
  1.  ; Returns 1 - If they are equal
  1.  ;         0 - if they are not equal
  1.  ;
  1.  N PXGBL,PXGBL2,PXNUM,PXRSLT,PXX
  1.  ;
  1.  S PXRSLT=1
  1.  ;
  1.  S PXGBL=$NA(^TMP(PXSUB,$J,"ITEMS",PXCNT,PXSUB1))
  1.  F  S PXGBL=$Q(@PXGBL) Q:(PXGBL="")!('PXRSLT)  Q:($QS(PXGBL,1)'=PXSUB)!($QS(PXGBL,2)'=$J)!($QS(PXGBL,3)'="ITEMS")!($QS(PXGBL,4)'=PXCNT)!($QS(PXGBL,5)'=PXSUB1)  D
  1.  . S PXGBL2="^TMP("
  1.  . S PXNUM=$QL(PXGBL)
  1.  . F PXX=1:1:PXNUM D
  1.  . . I PXX=5 D  Q
  1.  . . . S PXGBL2=PXGBL2_","""_PXSUB2_""""
  1.  . . S PXGBL2=PXGBL2_$S(PXX=1:"",1:",")_""""_$QS(PXGBL,PXX)_""""
  1.  . S PXGBL2=PXGBL2_")"
  1.  . I $G(@PXGBL)'=$G(@PXGBL2) S PXRSLT=0
  1.  ;
  1.  Q PXRSLT
  1.  ;