VPRJTPATID.m

VPRJTPATID ;KRM/CJE -- Unit Tests for GET/PUT Patient Identifiers and JPID utils
 ;
 ; Endpoints tested
 ;GET vpr/jpid/{jpid} PIDS^VPRJPR
 ;PUT vpr/jpid/{jpid} ASSOCIATE^VPRJPR
 ;PUT vpr/jpid ASSOCIATE^VPRJPR
 ;DELETE vpr/jpid/{jpid} DISASSOCIATE^VPRJPR
 ;DELETE vpr/{pid} DELPT^VPRJPR
 ;POST vpr/jpid/query JPIDQUERY^VPRJPR
 ;
STARTUP  ; Run once before all tests
 K ^VPRPTJ
 K ^VPRPTJ("JPID")
 K ^VPRPTX("count","patient","patient")
 K ^TMP
 Q
SHUTDOWN ; Run once after all tests
 K ^VPRPTJ("JPID")
 K ^VPRPTX("count","patient","patient")
 K ^TMP
 Q
ASSERT(EXPECT,ACTUAL,MSG) ; for convenience
 D EQ^VPRJT(EXPECT,ACTUAL,$G(MSG))
 Q
 ;
PATIDS ; Setup patient identifiers
 S ^VPRPTX("count","patient","patient")=1
 S ^VPRPTJ("JPID","52833885-af7c-4899-90be-b3a6630b2369")=""
 S ^VPRPTJ("JPID","52833885-af7c-4899-90be-b3a6630b2369","FEEE;3")=""
 S ^VPRPTJ("JPID","52833885-af7c-4899-90be-b3a6630b2369","SITE;3")=""
 S ^VPRPTJ("JPID","52833885-af7c-4899-90be-b3a6630b2369","1234V4321")=""
 S ^VPRPTJ("JPID","FEEE;3")="52833885-af7c-4899-90be-b3a6630b2369"
 S ^VPRPTJ("JPID","SITE;3")="52833885-af7c-4899-90be-b3a6630b2369"
 S ^VPRPTJ("JPID","1234V4321")="52833885-af7c-4899-90be-b3a6630b2369"
 Q
 ;
PATIDSNICN ; Setup patient identifiers
 S ^VPRPTX("count","patient","patient")=1
 S ^VPRPTJ("JPID","52833885-af7c-4899-90be-b3a6630b2369")=""
 S ^VPRPTJ("JPID","52833885-af7c-4899-90be-b3a6630b2369","SITE;3")=""
 S ^VPRPTJ("JPID","52833885-af7c-4899-90be-b3a6630b2369","SITE;3")=""
 S ^VPRPTJ("JPID","FEEE;3")="52833885-af7c-4899-90be-b3a6630b2369"
 S ^VPRPTJ("JPID","SITE;3")="52833885-af7c-4899-90be-b3a6630b2369"
 Q
 ;
NEWJPID ;; @TEST Creating a new JPID
 N JPID
 K ^VPRPTJ("JPID")
 K ^VPRPTX("count","patient","patient")
 K ^TMP
 S JPID=$$JPID^VPRJPR
 D NE^VPRJT("",$G(JPID),"JPID not created")
 D ASSERT(11,$D(^VPRPTJ("JPID",JPID)),"JPID existence index not created but should be")
 D ASSERT(1,$G(^VPRPTX("count","patient","patient")),"Patient count index not created but should be")
 D ASSERT(1,$D(^VPRPTJ("JPID",JPID,"JPID;"_JPID)),"Patient JPID not found in identifier list but should be")
 K ^VPRPTJ("JPID")
 K ^VPRPTX("count","patient","patient")
 K ^TMP
 Q
IDXJPID ;; @TEST Index a new JPID with one identifier
 N JPID
 K ^VPRPTJ("JPID")
 K ^VPRPTX("count","patient","patient")
 K ^TMP
 S JPID=$$JPID^VPRJPR
 D JPIDIDX^VPRJPR(JPID,"SITE;3")
 D NE^VPRJT("",$G(JPID),"JPID not created")
 D ASSERT(11,$D(^VPRPTJ("JPID",JPID)),"JPID existence index not created but should be")
 D ASSERT(1,$D(^VPRPTJ("JPID",JPID,"SITE;3")),"Patient identifier forward (JPID -> PID/ICN) index not updated correctly")
 D ASSERT(1,$D(^VPRPTJ("JPID",JPID,"JPID;"_JPID)),"Patient identifier forward (JPID -> JPID;{JPID}) index not updated correctly")
 D ASSERT(JPID,$G(^VPRPTJ("JPID","SITE;3")),"Patient identifier reverse (PID/ICN -> JPID) index not updated correctly")
 D ASSERT(JPID,$G(^VPRPTJ("JPID","JPID;"_JPID)),"Patient identifier reverse (JPID;{JPID} -> JPID index not updated correctly")
 D ASSERT(1,$G(^VPRPTX("count","patient","patient")),"Patient count index not created but should be")
 K ^VPRPTJ("JPID")
 K ^VPRPTX("count","patient","patient")
 K ^TMP
 Q
IDXJPID2 ;; @TEST Index a new JPID with two identifiers
 N JPID
 K ^VPRPTJ("JPID")
 K ^VPRPTX("count","patient","patient")
 K ^TMP
 S JPID=$$JPID^VPRJPR
 D JPIDIDX^VPRJPR(JPID,"SITE;3")
 D JPIDIDX^VPRJPR(JPID,"1234V4321")
 D NE^VPRJT("",$G(JPID),"JPID not created")
 D ASSERT(11,$D(^VPRPTJ("JPID",JPID)),"JPID existence index not created but should be")
 D ASSERT(1,$G(^VPRPTX("count","patient","patient")),"Patient count index not created but should be")
 D ASSERT(1,$D(^VPRPTJ("JPID",JPID,"SITE;3")),"Patient identifier forward (JPID -> PID/ICN) index not updated correctly")
 D ASSERT(JPID,$G(^VPRPTJ("JPID","SITE;3")),"Patient identifier reverse (PID/ICN -> JPID) index not updated correctly")
 D ASSERT(1,$D(^VPRPTJ("JPID",JPID,"1234V4321")),"Patient identifier forward (JPID -> PID/ICN) index not updated correctly")
 D ASSERT(JPID,$G(^VPRPTJ("JPID","1234V4321")),"Patient identifier reverse (PID/ICN -> JPID) index not updated correctly")
 K ^VPRPTJ("JPID")
 K ^VPRPTX("count","patient","patient")
 K ^TMP
 Q
DELJPID ;; @TEST Delete one Patient identifier from JPID Index
 N JPID
 K ^VPRPTJ("JPID")
 K ^VPRPTX("count","patient","patient")
 K ^TMP
 D PATIDS
 S JPID="52833885-af7c-4899-90be-b3a6630b2369"
 D JPIDDIDX^VPRJPR(JPID,"SITE;3")
 D ASSERT(11,$D(^VPRPTJ("JPID",JPID)),"JPID existence does not exist and should")
 D ASSERT(0,$D(^VPRPTJ("JPID",JPID,"SITE;3")),"Patient identifier forward (JPID -> PID/ICN) index exists but should not")
 D ASSERT(0,$D(^VPRPTJ("JPID","SITE;3")),"Patient identifier reverse (PID/ICN -> JPID) index exists but should not")
 D ASSERT(1,$G(^VPRPTX("count","patient","patient")),"Patient count index incorrect")
 K ^VPRPTJ("JPID")
 K ^VPRPTX("count","patient","patient")
 K ^TMP
 Q
 ;
DELJPID2 ;; @TEST Delete two Patient identifiers from JPID Index
 N JPID
 K ^VPRPTJ("JPID")
 K ^VPRPTX("count","patient","patient")
 K ^TMP
 D PATIDS
 S JPID="52833885-af7c-4899-90be-b3a6630b2369"
 D JPIDDIDX^VPRJPR(JPID,"SITE;3")
 D JPIDDIDX^VPRJPR(JPID,"1234V4321")
 D ASSERT(11,$D(^VPRPTJ("JPID",JPID)),"JPID existence index does not exist but should")
 D ASSERT(0,$D(^VPRPTJ("JPID",JPID,"SITE;3")),"Patient identifier forward (JPID -> PID/ICN) index exists but should not")
 D ASSERT(0,$D(^VPRPTJ("JPID","SITE;3")),"Patient identifier reverse (PID/ICN -> JPID) index exists but should not")
 D ASSERT(0,$D(^VPRPTJ("JPID",JPID,"1234V4321")),"Patient identifier forward (JPID -> PID/ICN) index exists but should not")
 D ASSERT(0,$D(^VPRPTJ("JPID","1234v4321")),"Patient identifier reverse (PID/ICN -> JPID) index exists but should not")
 D ASSERT(1,$G(^VPRPTX("count","patient","patient")),"Patient count index incorrect")
 K ^VPRPTJ("JPID")
 K ^VPRPTX("count","patient","patient")
 K ^TMP
 QUIT
 ;
DELJPIDA ;; @TEST Delete all Patient identifiers from JPID Index
 N JPID
 K ^VPRPTJ("JPID")
 K ^VPRPTX("count","patient","patient")
 K ^TMP
 D PATIDS
 S JPID="52833885-af7c-4899-90be-b3a6630b2369"
 D JPIDDIDX^VPRJPR(JPID,"FEEE;3")
 D JPIDDIDX^VPRJPR(JPID,"1234V4321")
 D JPIDDIDX^VPRJPR(JPID,"SITE;3")
 D ASSERT(0,$D(^VPRPTJ("JPID",JPID)),"JPID existence index exists but should not")
 D ASSERT(0,$D(^VPRPTJ("JPID",JPID,"SITE;3")),"Patient identifier forward (JPID -> PID/ICN) index exists but should not")
 D ASSERT(0,$D(^VPRPTJ("JPID","SITE;3")),"Patient identifier reverse (PID/ICN -> JPID) index exists but should not")
 D ASSERT(0,$D(^VPRPTJ("JPID",JPID,"1234V4321")),"Patient identifier forward (JPID -> PID/ICN) index exists but should not")
 D ASSERT(0,$D(^VPRPTJ("JPID","1234v4321")),"Patient identifier reverse (PID/ICN -> JPID) index exists but should not")
 D ASSERT(0,$D(^VPRPTJ("JPID",JPID,"SITE;3")),"Patient identifier forward (JPID -> PID/ICN) index exists but should not")
 D ASSERT(0,$D(^VPRPTJ("JPID","SITE;3")),"Patient identifier reverse (PID/ICN -> JPID) index exists but should not")
 D ASSERT(0,$G(^VPRPTX("count","patient","patient")),"Patient count index incorrect")
 K ^VPRPTJ("JPID")
 K ^VPRPTX("count","patient","patient")
 K ^TMP
 Q
JPID4PID ;; @TEST Retrieving a JPID for a PID/ICN
 N JPID,GJPID
 K ^VPRPTJ("JPID")
 K ^VPRPTX("count","patient","patient")
 K ^TMP
 D PATIDS
 S GJPID="52833885-af7c-4899-90be-b3a6630b2369"
 S JPID=$$JPID4PID^VPRJPR("SITE;3")
 D ASSERT(GJPID,JPID,"JPIDs do not match (PID1)")
 S JPID=$$JPID4PID^VPRJPR("SITE;3")
 D ASSERT(GJPID,JPID,"JPIDs do not match (PID2)")
 S JPID=$$JPID4PID^VPRJPR("1234V4321")
 D ASSERT(GJPID,JPID,"JPIDs do not match (ICN)")
 S JPID=$$JPID4PID^VPRJPR("")
 D ASSERT("",JPID,"JPID found when it shoudn't be")
 K ^VPRPTJ("JPID")
 K ^VPRPTX("count","patient","patient")
 K ^TMP
 Q
PID4JPID ;; @TEST Retrieving a list of PIDs for a JPID
 N JPID,PIDS
 K ^VPRPTJ("JPID")
 K ^VPRPTX("count","patient","patient")
 K ^TMP
 D PATIDS
 S JPID="52833885-af7c-4899-90be-b3a6630b2369"
 D PID4JPID^VPRJPR(.PIDS,JPID)
 D ASSERT("1234V4321",$G(PIDS(1)),"ICN not found")
 D ASSERT("FEEE;3",$G(PIDS(2)),"FEEE;3 PID not found")
 D ASSERT("SITE;3",$G(PIDS(3)),"SITE;3 PID not found")
 D ASSERT("",$G(PIDS(4)),"Too many PIDS returned")
 D PID4JPID^VPRJPR(.PIDS,"")
 D ASSERT(0,$D(PIDS),"PIDS array exists")
 K ^VPRPTJ("JPID")
 K ^VPRPTX("count","patient","patient")
 K ^TMP
 Q
ICN4JPID ;; @TEST Retrieving an ICN for a JPID
 N JPID,ICN
 K ^VPRPTJ("JPID")
 K ^VPRPTX("count","patient","patient")
 K ^TMP
 D PATIDS
 S JPID="52833885-af7c-4899-90be-b3a6630b2369"
 S ICN=$$ICN4JPID^VPRJPR(JPID)
 D ASSERT("1234V4321",$G(ICN),"ICN not found")
 S ICN=$$ICN4JPID^VPRJPR("")
 D ASSERT("",$G(ICN),"ICN found")
 K ^VPRPTJ("JPID")
 K ^VPRPTX("count","patient","patient")
 K ^TMP
 Q
PIDSNJPID ;; @TEST Error code is set if no jpid passed
 N DATA,ARG,HTTPERR
 K ^VPRPTJ("JPID")
 K ^VPRPTX("count","patient","patient")
 K ^TMP
 S ARG("jpid")=""
 D PIDS^VPRJPR(.DATA,.ARG)
 D ASSERT(0,$D(DATA),"Return from PIDS^VPRJPR and there should not be")
 D ASSERT(400,$G(^TMP("HTTPERR",$J,1,"error","code")),"An HTTP 400 error should have occured")
 D ASSERT(222,$G(^TMP("HTTPERR",$J,1,"error","errors",1,"reason")),"An 222 reason code should have occurred")
 K ^VPRPTJ("JPID")
 K ^VPRPTX("count","patient","patient")
 K ^TMP
 Q
PIDSNFJPID ;; @TEST Error code is set if no jpid found
 N DATA,ARG,HTTPERR
 K ^VPRPTJ("JPID")
 K ^VPRPTX("count","patient","patient")
 K ^TMP
 D PATIDS
 S ARG("jpid")="DOD;1234V4321"
 D PIDS^VPRJPR(.DATA,.ARG)
 D ASSERT(0,$D(DATA),"Return from PIDS^VPRJPR and there should not be")
 D ASSERT(404,$G(^TMP("HTTPERR",$J,1,"error","code")),"An HTTP 404 error should have occured")
 D ASSERT(224,$G(^TMP("HTTPERR",$J,1,"error","errors",1,"reason")),"An 224 reason code should have occurred")
 K ^VPRPTJ("JPID")
 K ^VPRPTX("count","patient","patient")
 K ^TMP
 Q
PIDSJPID ;; @TEST GET PIDs for a JPID
 N DATA,OBJECT,ARG,ERR,HTTPERR,JPID
 K ^VPRPTJ("JPID")
 K ^VPRPTX("count","patient","patient")
 K ^TMP
 D PATIDS
 S JPID="52833885-af7c-4899-90be-b3a6630b2369"
 S ARG("jpid")=JPID
 D PIDS^VPRJPR(.DATA,.ARG)
 D DECODE^VPRJSON("^TMP($J)","OBJECT","ERR")
 ; If we can't decode the JSON Fail the test
 D ASSERT(0,$D(ERR),"ERROR DECODING JSON")
 D ASSERT(1,$D(DATA),"No return from PIDS^VPRJPR and there should be")
 D ASSERT(JPID,$G(OBJECT("jpid")),"JPID doesn't exist")
 D ASSERT("1234V4321",$G(OBJECT("patientIdentifiers",1)),"ICN 1234V4321 does not exit")
 D ASSERT("FEEE;3",$G(OBJECT("patientIdentifiers",2)),"PID FEEE;3 does not exit")
 D ASSERT("SITE;3",$G(OBJECT("patientIdentifiers",3)),"PID SITE;3 does not exit")
 K ^VPRPTJ("JPID")
 K ^VPRPTX("count","patient","patient")
 K ^TMP
 Q
PIDSPID ;; @TEST GET PIDs for a PID
 N DATA,OBJECT,ARG,ERR,HTTPERR,JPID
 K ^VPRPTJ("JPID")
 K ^VPRPTX("count","patient","patient")
 K ^TMP
 D PATIDS
 S JPID="52833885-af7c-4899-90be-b3a6630b2369"
 S ARG("jpid")="SITE;3"
 D PIDS^VPRJPR(.DATA,.ARG)
 D DECODE^VPRJSON("^TMP($J)","OBJECT","ERR")
 ; If we can't decode the JSON Fail the test
 D ASSERT(0,$D(ERR),"ERROR DECODING JSON")
 D ASSERT(1,$D(DATA),"No return from PIDS^VPRJPR and there should be")
 D ASSERT(JPID,$G(OBJECT("jpid")),"JPID doesn't exist")
 D ASSERT("1234V4321",$G(OBJECT("patientIdentifiers",1)),"ICN 1234V4321 does not exit")
 D ASSERT("FEEE;3",$G(OBJECT("patientIdentifiers",2)),"PID FEEE;3 does not exit")
 D ASSERT("SITE;3",$G(OBJECT("patientIdentifiers",3)),"PID SITE;3 does not exit")
 K ^VPRPTJ("JPID")
 K ^VPRPTX("count","patient","patient")
 K ^TMP
 Q
PIDSICN ;; @TEST GET PIDs for an ICN
 N DATA,OBJECT,ARG,ERR,HTTPERR,JPID
 K ^VPRPTJ("JPID")
 K ^VPRPTX("count","patient","patient")
 K ^TMP
 D PATIDS
 S JPID="52833885-af7c-4899-90be-b3a6630b2369"
 S ARG("jpid")="1234V4321"
 D PIDS^VPRJPR(.DATA,.ARG)
 D DECODE^VPRJSON("^TMP($J)","OBJECT","ERR")
 ; If we can't decode the JSON Fail the test
 D ASSERT(0,$D(ERR),"ERROR DECODING JSON")
 D ASSERT(1,$D(DATA),"No return from PIDS^VPRJPR and there should be")
 D ASSERT(JPID,$G(OBJECT("jpid")),"JPID doesn't exist")
 D ASSERT("1234V4321",$G(OBJECT("patientIdentifiers",1)),"ICN 1234V4321 does not exit")
 D ASSERT("FEEE;3",$G(OBJECT("patientIdentifiers",2)),"PID FEEE;3 does not exit")
 D ASSERT("SITE;3",$G(OBJECT("patientIdentifiers",3)),"PID SITE;3 does not exit")
 K ^VPRPTJ("JPID")
 K ^VPRPTX("count","patient","patient")
 K ^TMP
 Q
ASSOCEJSON ;; @TEST Associate JSON decode error
 N BODY,ARG,ERR,JPID,HTTPERR
 K ^VPRPTJ("JPID")
 K ^VPRPTX("count","patient","patient")
 K ^TMP
 S BODY(1)="{""patientIdentifiers"": [""ASDF;123""],""test}"
 S JPID=$$ASSOCIATE^VPRJPR(.ARG,.BODY)
 D ASSERT("",JPID,"Return from ASSOCIATE^VPRJPR and there should not be")
 D ASSERT(400,$G(^TMP("HTTPERR",$J,1,"error","code")),"Error code does not exist")
 D ASSERT(202,$G(^TMP("HTTPERR",$J,1,"error","errors",1,"reason")),"Error reason does not exist")
 K ^VPRPTJ("JPID")
 K ^VPRPTX("count","patient","patient")
 K ^TMP
 Q
ASSOCEMISMATCH ;; @TEST Associate Mismatch JPID between body and passed argument error
 N BODY,ARG,ERR,JPID,HTTPERR
 K ^VPRPTJ("JPID")
 K ^VPRPTX("count","patient","patient")
 K ^TMP
 S BODY(1)="{""patientIdentifiers"": [""ASDF;123""],""jpid"": ""52833885-af7c-4899-90be-b3a6630b2369""}"
 S ARG("jpid")="52833885-af7c-4899-90be-b3a6630b2370"
 S JPID=$$ASSOCIATE^VPRJPR(.ARG,.BODY)
 D ASSERT("",JPID,"Return from ASSOCIATE^VPRJPR and there should not be")
 D ASSERT(400,$G(^TMP("HTTPERR",$J,1,"error","code")),"Error code does not exist")
 D ASSERT(205,$G(^TMP("HTTPERR",$J,1,"error","errors",1,"reason")),"Error reason does not exist")
 K ^VPRPTJ("JPID")
 K ^VPRPTX("count","patient","patient")
 K ^TMP
 Q
ASSOCENOID ;; @TEST Associate no patIdentifiers Object error
 N BODY,ARG,ERR,JPID,HTTPERR
 K ^VPRPTJ("JPID")
 K ^VPRPTX("count","patient","patient")
 K ^TMP
 S BODY(1)="{""jpid"": ""52833885-af7c-4899-90be-b3a6630b2369""}"
 S JPID=$$ASSOCIATE^VPRJPR(.ARG,.BODY)
 D ASSERT("",JPID,"Return from ASSOCIATE^VPRJPR and there should not be")
 D ASSERT(404,$G(^TMP("HTTPERR",$J,1,"error","code")),"Error code does not exist")
 D ASSERT(211,$G(^TMP("HTTPERR",$J,1,"error","errors",1,"reason")),"Error reason does not exist")
 K ^VPRPTJ("JPID")
 K ^VPRPTX("count","patient","patient")
 K ^TMP
 Q
 ;
ASSOCEASSOCP ;; @TEST Associate JPID with PID already known error
 N BODY,ARG,ERR,JPID,HTTPERR,NJPID,PATJPID
 K ^VPRPTJ("JPID")
 K ^VPRPTX("count","patient","patient")
 K ^TMP
 S BODY(1)="{""patientIdentifiers"": [""SITE;3""]}"
 D PATIDS
 S JPID=$$ASSOCIATE^VPRJPR(.ARG,.BODY)
 D ASSERT("",JPID,"Return from ASSOCIATE^VPRJPR and there should not be")
 D ASSERT(400,$G(^TMP("HTTPERR",$J,1,"error","code")),"Error code does not exist")
 D ASSERT(223,$G(^TMP("HTTPERR",$J,1,"error","errors",1,"reason")),"Error reason does not exist")
 D ASSERT("JPID Collision Detected",$G(^TMP("HTTPERR",$J,1,"error","errors",1,"message")),"Error message is not correct")
 ; Check to see if another JPID was created and set up in ^VPRPTJ("JPID"), as it should not be
 ; Test by checking for JPID format, ignoring the JPID set up in PATIDS. Should get back an ""
 S NJPID="",PATJPID="52833885-af7c-4899-90be-b3a6630b2369"
 F  S NJPID=$O(^VPRPTJ("JPID",NJPID)) Q:(NJPID="")!((NJPID?8LN1"-"4LN1"-"4LN1"-"4LN1"-"12LN)&(NJPID'=PATJPID))
 D ASSERT("",NJPID,"ASSOCIATE set up a new JPID, with a JPID collision, which should never happen")
 ; Now confirm that the VHIC JPID was also not created
 S NJPID=""
 F  S NJPID=$O(^VPRPTJ("JPID",NJPID)) Q:(NJPID="")!((NJPID?1"JPID;"8LN1"-"4LN1"-"4LN1"-"4LN1"-"12LN)&(NJPID'=PATJPID))
 D ASSERT("",NJPID,"ASSOCIATE set up a new JPID, with a JPID collision, which should never happen")
 D ASSERT(1,$G(^VPRPTX("count","patient","patient")),"The patient count should not have incremented")
 K ^VPRPTJ("JPID")
 K ^VPRPTX("count","patient","patient")
 K ^TMP
 QUIT
 ;
ASSOCEASSOCI ;; @TEST Associate JPID with ICN already known error
 N BODY,ARG,ERR,JPID,HTTPERR
 K ^VPRPTJ("JPID")
 K ^VPRPTX("count","patient","patient")
 K ^TMP
 S BODY(1)="{""patientIdentifiers"": [""1234V4321""]}"
 D PATIDS
 S JPID=$$ASSOCIATE^VPRJPR(.ARG,.BODY)
 D ASSERT("",JPID,"Return from ASSOCIATE^VPRJPR and there should not be")
 D ASSERT(400,$G(^TMP("HTTPERR",$J,1,"error","code")),"Error code does not exist")
 D ASSERT(223,$G(^TMP("HTTPERR",$J,1,"error","errors",1,"reason")),"Error reason does not exist")
 K ^VPRPTJ("JPID")
 K ^VPRPTX("count","patient","patient")
 K ^TMP
 Q
ASSOCNPID ;; @TEST Associate PID with new JPID
 N BODY,ARG,ERR,JPID,HTTPERR
 K ^VPRPTJ("JPID")
 K ^VPRPTX("count","patient","patient")
 K ^TMP
 S BODY(1)="{""patientIdentifiers"": [""SITE;3""]}"
 S JPID=$P($$ASSOCIATE^VPRJPR(.ARG,.BODY),"/",4)
 D ASSERT(1,$D(JPID),"No return from ASSOCIATE^VPRJPR and there should be")
 D ASSERT(10,$D(^VPRPTJ("JPID")),"JPID index does not exist")
 D ASSERT(11,$D(^VPRPTJ("JPID",JPID)),"JPID does not exist")
 D ASSERT(1,$D(^VPRPTJ("JPID",JPID,"SITE;3")),"JPID index for SITE;3 does not exist")
 D ASSERT(JPID,$G(^VPRPTJ("JPID","SITE;3")),"PID index for SITE;3 does not exist")
 K ^VPRPTJ("JPID")
 K ^VPRPTX("count","patient","patient")
 K ^TMP
 Q
ASSOCNICN ;; @TEST Associate ICN with new JPID
 N BODY,ARG,ERR,JPID,HTTPERR
 K ^VPRPTJ("JPID")
 K ^VPRPTX("count","patient","patient")
 K ^TMP
 S BODY(1)="{""patientIdentifiers"": [""1234V4321""]}"
 S JPID=$P($$ASSOCIATE^VPRJPR(.ARG,.BODY),"/",4)
 D ASSERT(1,$D(JPID),"No return from ASSOCIATE^VPRJPR and there should be")
 D ASSERT(10,$D(^VPRPTJ("JPID")),"JPID index does not exist")
 D ASSERT(11,$D(^VPRPTJ("JPID",JPID)),"JPID does not exist")
 D ASSERT(1,$D(^VPRPTJ("JPID",JPID,"1234V4321")),"JPID index for 1234V4321 does not exist")
 D ASSERT(JPID,$G(^VPRPTJ("JPID","1234V4321")),"PID index for 1234V4321 does not exist")
 K ^VPRPTJ("JPID")
 K ^VPRPTX("count","patient","patient")
 K ^TMP
 Q
ASSOCNALL ;; @TEST Associate array of Patient Identifiers with new JPID
 N BODY,ARG,ERR,JPID,HTTPERR
 K ^VPRPTJ("JPID")
 K ^VPRPTX("count","patient","patient")
 K ^TMP
 S BODY(1)="{""patientIdentifiers"": [""1234V4321"",""SITE;3"",""SITE;3"",""DOD;1234V4321""]}"
 S JPID=$P($$ASSOCIATE^VPRJPR(.ARG,.BODY),"/",4)
 D ASSERT(1,$D(JPID),"No return from ASSOCIATE^VPRJPR and there should be")
 D ASSERT(10,$D(^VPRPTJ("JPID")),"JPID index does not exist")
 D ASSERT(11,$D(^VPRPTJ("JPID",JPID)),"JPID does not exist")
 D ASSERT(1,$D(^VPRPTJ("JPID",JPID,"1234V4321")),"JPID index for 1234V4321 does not exist")
 D ASSERT(JPID,$G(^VPRPTJ("JPID","1234V4321")),"PID index for 1234V4321 does not exist")
 D ASSERT(1,$D(^VPRPTJ("JPID",JPID,"SITE;3")),"JPID index for SITE;3 does not exist")
 D ASSERT(JPID,$G(^VPRPTJ("JPID","SITE;3")),"PID index for SITE;3 does not exist")
 D ASSERT(1,$D(^VPRPTJ("JPID",JPID,"SITE;3")),"JPID index for SITE;3 does not exist")
 D ASSERT(JPID,$G(^VPRPTJ("JPID","SITE;3")),"PID index for SITE;3 does not exist")
 D ASSERT(1,$D(^VPRPTJ("JPID",JPID,"DOD;1234V4321")),"JPID index for DOD;1234V4321 does not exist")
 D ASSERT(JPID,$G(^VPRPTJ("JPID","DOD;1234V4321")),"PID index for DOD;1234V4321 does not exist")
 K ^VPRPTJ("JPID")
 K ^VPRPTX("count","patient","patient")
 K ^TMP
 Q
ASSOCPID ;; @TEST Associate PID with existing JPID
 N BODY,ARG,ERR,JPID,HTTPERR
 K ^VPRPTJ("JPID")
 K ^VPRPTX("count","patient","patient")
 K ^TMP
 S BODY(1)="{""patientIdentifiers"": [""DOD;1234V4321""],""jpid"": ""52833885-af7c-4899-90be-b3a6630b2369""}"
 D PATIDS
 S JPID=$P($$ASSOCIATE^VPRJPR(.ARG,.BODY),"/",4)
 D ASSERT(1,$D(JPID),"No return from ASSOCIATE^VPRJPR and there should be")
 D ASSERT(10,$D(^VPRPTJ("JPID")),"JPID index does not exist")
 D ASSERT(11,$D(^VPRPTJ("JPID",JPID)),"JPID does not exist")
 D ASSERT(1,$D(^VPRPTJ("JPID",JPID,"1234V4321")),"JPID index for 1234V4321 does not exist")
 D ASSERT(JPID,$G(^VPRPTJ("JPID","1234V4321")),"PID index for 1234V4321 does not exist")
 D ASSERT(1,$D(^VPRPTJ("JPID",JPID,"SITE;3")),"JPID index for SITE;3 does not exist")
 D ASSERT(JPID,$G(^VPRPTJ("JPID","SITE;3")),"PID index for SITE;3 does not exist")
 D ASSERT(1,$D(^VPRPTJ("JPID",JPID,"SITE;3")),"JPID index for SITE;3 does not exist")
 D ASSERT(JPID,$G(^VPRPTJ("JPID","SITE;3")),"PID index for SITE;3 does not exist")
 D ASSERT(1,$D(^VPRPTJ("JPID",JPID,"DOD;1234V4321")),"JPID index for DOD;1234V4321 does not exist")
 D ASSERT(JPID,$G(^VPRPTJ("JPID","DOD;1234V4321")),"PID index for DOD;1234V4321 does not exist")
 K ^VPRPTJ("JPID")
 K ^VPRPTX("count","patient","patient")
 K ^TMP
 Q
ASSOCICN ;; @TEST Associate ICN with existing JPID
 N BODY,ARG,ERR,JPID,HTTPERR
 K ^VPRPTJ("JPID")
 K ^VPRPTX("count","patient","patient")
 K ^TMP
 S BODY(1)="{""patientIdentifiers"": [""1234V4321""],""jpid"": ""52833885-af7c-4899-90be-b3a6630b2369""}"
 D PATIDSNICN
 S JPID=$P($$ASSOCIATE^VPRJPR(.ARG,.BODY),"/",4)
 D ASSERT(1,$D(JPID),"No return from ASSOCIATE^VPRJPR and there should be")
 D ASSERT(10,$D(^VPRPTJ("JPID")),"JPID index does not exist")
 D ASSERT(11,$D(^VPRPTJ("JPID",JPID)),"JPID does not exist")
 D ASSERT(1,$D(^VPRPTJ("JPID",JPID,"1234V4321")),"JPID index for 1234V4321 does not exist")
 D ASSERT(JPID,$G(^VPRPTJ("JPID","1234V4321")),"PID index for 1234V4321 does not exist")
 D ASSERT(1,$D(^VPRPTJ("JPID",JPID,"SITE;3")),"JPID index for SITE;3 does not exist")
 D ASSERT(JPID,$G(^VPRPTJ("JPID","SITE;3")),"PID index for SITE;3 does not exist")
 D ASSERT(1,$D(^VPRPTJ("JPID",JPID,"SITE;3")),"JPID index for SITE;3 does not exist")
 D ASSERT(JPID,$G(^VPRPTJ("JPID","SITE;3")),"PID index for SITE;3 does not exist")
 K ^VPRPTJ("JPID")
 K ^VPRPTX("count","patient","patient")
 K ^TMP
 Q
ASSOCBID ;; @TEST Associate a Bad patient identifer with existing JPID
 N BODY,ARG,ERR,JPID,HTTPERR
 K ^VPRPTJ("JPID")
 K ^VPRPTX("count","patient","patient")
 K ^TMP
 S BODY(1)="{""patientIdentifiers"": [""000000003""],""jpid"": ""52833885-af7c-4899-90be-b3a6630b2369""}"
 D PATIDSNICN
 S JPID=$P($$ASSOCIATE^VPRJPR(.ARG,.BODY),"/",4)
 D ASSERT(1,$D(JPID),"No return from ASSOCIATE^VPRJPR and there should be")
 D ASSERT(10,$D(^VPRPTJ("JPID")),"JPID index does not exist")
 D ASSERT(11,$D(^VPRPTJ("JPID",JPID)),"JPID does not exist")
 D ASSERT(400,$G(^TMP("HTTPERR",$J,1,"error","code")),"A 400 error should have occurred")
 D ASSERT(230,$G(^TMP("HTTPERR",$J,1,"error","errors",1,"reason")),"A 230 reason code should have occurred")
 D ASSERT(0,$D(^VPRPTJ("JPID",JPID,"000000003")),"JPID index for 000000003 does not exist")
 D ASSERT("",$G(^VPRPTJ("JPID","000000003")),"PID index for 000000003 does not exist")
 D ASSERT(1,$D(^VPRPTJ("JPID",JPID,"SITE;3")),"JPID index for SITE;3 does not exist")
 D ASSERT(JPID,$G(^VPRPTJ("JPID","SITE;3")),"PID index for SITE;3 does not exist")
 D ASSERT(1,$D(^VPRPTJ("JPID",JPID,"SITE;3")),"JPID index for SITE;3 does not exist")
 D ASSERT(JPID,$G(^VPRPTJ("JPID","SITE;3")),"PID index for SITE;3 does not exist")
 K ^VPRPTJ("JPID")
 K ^VPRPTX("count","patient","patient")
 K ^TMP
 Q
ASSOCBID2 ;; @TEST Associate a Bad patient identifer with existing JPID
 N BODY,ARG,ERR,JPID,HTTPERR
 K ^VPRPTJ("JPID")
 K ^VPRPTX("count","patient","patient")
 K ^TMP
 S BODY(1)="{""patientIdentifiers"": [""ASDF123"",""112233""],""jpid"": ""52833885-af7c-4899-90be-b3a6630b2369""}"
 D PATIDSNICN
 S JPID=$P($$ASSOCIATE^VPRJPR(.ARG,.BODY),"/",4)
 D ASSERT(1,$D(JPID),"No return from ASSOCIATE^VPRJPR and there should be")
 D ASSERT(10,$D(^VPRPTJ("JPID")),"JPID index does not exist")
 D ASSERT(11,$D(^VPRPTJ("JPID",JPID)),"JPID does not exist")
 D ASSERT(400,$G(^TMP("HTTPERR",$J,1,"error","code")),"A 400 error should have occurred")
 D ASSERT(230,$G(^TMP("HTTPERR",$J,1,"error","errors",1,"reason")),"A 230 reason code should have occurred")
 D ASSERT(0,$D(^VPRPTJ("JPID",JPID,"ASDF123")),"JPID index for ASDF123 does not exist")
 D ASSERT("",$G(^VPRPTJ("JPID","ASDF123")),"PID index for ASDF123 does not exist")
 D ASSERT(1,$D(^VPRPTJ("JPID",JPID,"SITE;3")),"JPID index for SITE;3 does not exist")
 D ASSERT(JPID,$G(^VPRPTJ("JPID","SITE;3")),"PID index for SITE;3 does not exist")
 D ASSERT(1,$D(^VPRPTJ("JPID",JPID,"SITE;3")),"JPID index for SITE;3 does not exist")
 D ASSERT(JPID,$G(^VPRPTJ("JPID","SITE;3")),"PID index for SITE;3 does not exist")
 K ^VPRPTJ("JPID")
 K ^VPRPTX("count","patient","patient")
 K ^TMP
 Q
ASSOCALL ;; @TEST Associate array of Patient Identifiers with existing JPID
 N BODY,ARG,ERR,JPID,HTTPERR
 K ^VPRPTJ("JPID")
 K ^VPRPTX("count","patient","patient")
 K ^TMP
 S BODY(1)="{""patientIdentifiers"": [""1234V4321"",""DOD;1234V4321"",""VLER;1234V4321""],""jpid"": ""52833885-af7c-4899-90be-b3a6630b2369""}"
 D PATIDSNICN
 S JPID=$P($$ASSOCIATE^VPRJPR(.ARG,.BODY),"/",4)
 D ASSERT(1,$D(JPID),"No return from ASSOCIATE^VPRJPR and there should be")
 D ASSERT(10,$D(^VPRPTJ("JPID")),"JPID index does not exist")
 D ASSERT(11,$D(^VPRPTJ("JPID",JPID)),"JPID does not exist")
 D ASSERT(1,$D(^VPRPTJ("JPID",JPID,"1234V4321")),"JPID index for 1234V4321 does not exist")
 D ASSERT(JPID,$G(^VPRPTJ("JPID","1234V4321")),"PID index for 1234V4321 does not exist")
 D ASSERT(1,$D(^VPRPTJ("JPID",JPID,"SITE;3")),"JPID index for SITE;3 does not exist")
 D ASSERT(JPID,$G(^VPRPTJ("JPID","SITE;3")),"PID index for SITE;3 does not exist")
 D ASSERT(1,$D(^VPRPTJ("JPID",JPID,"SITE;3")),"JPID index for SITE;3 does not exist")
 D ASSERT(JPID,$G(^VPRPTJ("JPID","SITE;3")),"PID index for SITE;3 does not exist")
 D ASSERT(1,$D(^VPRPTJ("JPID",JPID,"DOD;1234V4321")),"JPID index for DOD;1234V4321 does not exist")
 D ASSERT(JPID,$G(^VPRPTJ("JPID","DOD;1234V4321")),"PID index for DOD;1234V4321 does not exist")
 D ASSERT(1,$D(^VPRPTJ("JPID",JPID,"VLER;1234V4321")),"JPID index for VLER;1234V4321 does not exist")
 D ASSERT(JPID,$G(^VPRPTJ("JPID","VLER;1234V4321")),"PID index for VLER;1234V4321 does not exist")
 K ^VPRPTJ("JPID")
 K ^VPRPTX("count","patient","patient")
 K ^TMP
 Q
ASSOCALLP ;; @TEST Associate array of Patient Identifiers with existing JPID using a PID
 N BODY,ARG,ERR,JPID,HTTPERR
 K ^VPRPTJ("JPID")
 K ^VPRPTX("count","patient","patient")
 K ^TMP
 S BODY(1)="{""patientIdentifiers"": [""1234V4321"",""DOD;1234V4321"",""VLER;1234V4321""]}"
 S ARG("jpid")="SITE;3"
 D PATIDSNICN
 S JPID=$P($$ASSOCIATE^VPRJPR(.ARG,.BODY),"/",4)
 D ASSERT(1,$D(JPID),"No return from ASSOCIATE^VPRJPR and there should be")
 D ASSERT(10,$D(^VPRPTJ("JPID")),"JPID index does not exist")
 D ASSERT(11,$D(^VPRPTJ("JPID",JPID)),"JPID does not exist")
 D ASSERT(1,$D(^VPRPTJ("JPID",JPID,"1234V4321")),"JPID index for 1234V4321 does not exist")
 D ASSERT(JPID,$G(^VPRPTJ("JPID","1234V4321")),"PID index for 1234V4321 does not exist")
 D ASSERT(1,$D(^VPRPTJ("JPID",JPID,"SITE;3")),"JPID index for SITE;3 does not exist")
 D ASSERT(JPID,$G(^VPRPTJ("JPID","SITE;3")),"PID index for SITE;3 does not exist")
 D ASSERT(1,$D(^VPRPTJ("JPID",JPID,"SITE;3")),"JPID index for SITE;3 does not exist")
 D ASSERT(JPID,$G(^VPRPTJ("JPID","SITE;3")),"PID index for SITE;3 does not exist")
 D ASSERT(1,$D(^VPRPTJ("JPID",JPID,"DOD;1234V4321")),"JPID index for DOD;1234V4321 does not exist")
 D ASSERT(JPID,$G(^VPRPTJ("JPID","DOD;1234V4321")),"PID index for DOD;1234V4321 does not exist")
 D ASSERT(1,$D(^VPRPTJ("JPID",JPID,"VLER;1234V4321")),"JPID index for VLER;1234V4321 does not exist")
 D ASSERT(JPID,$G(^VPRPTJ("JPID","VLER;1234V4321")),"PID index for VLER;1234V4321 does not exist")
 K ^VPRPTJ("JPID")
 K ^VPRPTX("count","patient","patient")
 K ^TMP
 Q
DISAPID
DISAICN
 ; not implemented
 Q
DISAALL ;; @TEST Disassociate JPID (Delete JPID and Patient Data)
 N BODY,ARG,ERR,RETURN,JPID,HTTPERR
 K ^VPRPTJ("JPID")
 K ^VPRPTX("count","patient","patient")
 K ^TMP
 D PATIDS
 S JPID="52833885-af7c-4899-90be-b3a6630b2369"
 S ARG("jpid")=JPID
 D DISASSOCIATE^VPRJPR(.BODY,.ARG)
 D ASSERT(0,$D(^TMP("HTTPERR",$J)),"Error returned from DISASSOCIATE^VPRJPR")
 D ASSERT(0,$D(^VPRPTJ("JPID")),"JPID index exists")
 D ASSERT(0,$D(^VPRPTJ("JSON")),"Patient data JSON exists")
 D ASSERT(0,$D(^VPRPTJ("JPID",JPID)),"JPID does not exist")
 D ASSERT(0,$D(^VPRPTJ("JPID",JPID,"1234V4321")),"JPID index for 1234V4321 does not exist")
 D ASSERT(0,$D(^VPRPTJ("JPID","1234V4321")),"PID index for 1234V4321 does not exist")
 D ASSERT(0,$D(^VPRPTJ("JPID",JPID,"SITE;3")),"JPID index for SITE;3 does not exist")
 D ASSERT(0,$D(^VPRPTJ("JPID","SITE;3")),"PID index for SITE;3 does not exist")
 D ASSERT(0,$D(^VPRPTJ("JPID",JPID,"SITE;3")),"JPID index for SITE;3 does not exist")
 D ASSERT(0,$D(^VPRPTJ("JPID","SITE;3")),"PID index for SITE;3 does not exist")
 D ASSERT(0,$D(^VPRMETA("JPID",JPID,"lastAccessTime")),"A lastAccessTime data node exists and should not")
 K ^VPRPTJ("JPID")
 K ^VPRPTX("count","patient","patient")
 K ^TMP
 Q
DISAALLP ;; @TEST Disassociate JPID (Delete JPID and Patient Data) using PID
 N BODY,ARG,ERR,RETURN,JPID,HTTPERR
 K ^VPRPTJ("JPID")
 K ^VPRPTX("count","patient","patient")
 K ^TMP
 D PATIDS
 S JPID="52833885-af7c-4899-90be-b3a6630b2369"
 S ARG("jpid")="SITE;3"
 D DISASSOCIATE^VPRJPR(.BODY,.ARG)
 D ASSERT(0,$D(^TMP("HTTPERR",$J)),"Error returned from DISASSOCIATE^VPRJPR")
 D ASSERT(0,$D(^VPRPTJ("JPID")),"JPID index exists")
 D ASSERT(0,$D(^VPRPTJ("JSON")),"Patient data JSON exists")
 D ASSERT(0,$D(^VPRPTJ("JPID",JPID)),"JPID does not exist")
 D ASSERT(0,$D(^VPRPTJ("JPID",JPID,"1234V4321")),"JPID index for 1234V4321 does not exist")
 D ASSERT(0,$D(^VPRPTJ("JPID","1234V4321")),"PID index for 1234V4321 does not exist")
 D ASSERT(0,$D(^VPRPTJ("JPID",JPID,"SITE;3")),"JPID index for SITE;3 does not exist")
 D ASSERT(0,$D(^VPRPTJ("JPID","SITE;3")),"PID index for SITE;3 does not exist")
 D ASSERT(0,$D(^VPRPTJ("JPID",JPID,"SITE;3")),"JPID index for SITE;3 does not exist")
 D ASSERT(0,$D(^VPRPTJ("JPID","SITE;3")),"PID index for SITE;3 does not exist")
 D ASSERT(0,$D(^VPRMETA("JPID",JPID,"lastAccessTime")),"A lastAccessTime data node exists and should not")
 K ^VPRPTJ("JPID")
 K ^VPRPTX("count","patient","patient")
 K ^TMP
 Q
DISAEJPID ;; @TEST Disassociate No JPID passed error
 N BODY,ARG,ERR,HTTPERR,JPID
 K ^VPRPTJ("JPID")
 K ^VPRPTX("count","patient","patient")
 K ^TMP
 D PATIDS
 S ARG("jpid")=""
 D DISASSOCIATE^VPRJPR(.BODY,.ARG)
 D ASSERT(400,$G(^TMP("HTTPERR",$J,1,"error","code")),"An HTTP 400 error should have occured")
 D ASSERT(222,$G(^TMP("HTTPERR",$J,1,"error","errors",1,"reason")),"An 222 reason code should have occurred")
 K ^VPRPTJ("JPID")
 K ^VPRPTX("count","patient","patient")
 K ^TMP
 Q
DISAEJPIDU ;; @TEST Disassociate JPID Unknown error
 N BODY,ARG,ERR,HTTPERR,JPID
 K ^VPRPTJ("JPID")
 K ^VPRPTX("count","patient","patient")
 K ^TMP
 D PATIDS
 S ARG("jpid")="52833885-af7c-4899-90be-b3a6630b2370"
 D DISASSOCIATE^VPRJPR(.BODY,.ARG)
 D ASSERT(404,$G(^TMP("HTTPERR",$J,1,"error","code")),"An HTTP 400 error should have occured")
 D ASSERT(224,$G(^TMP("HTTPERR",$J,1,"error","errors",1,"reason")),"An 224 reason code should have occurred")
 K ^VPRPTJ("JPID")
 K ^VPRPTX("count","patient","patient")
 K ^TMP
 Q
 ;
DELALL ;; @TEST Delete PID (Delete PID and Patient Data)
 N BODY,ARG,ERR,RETURN,JPID,HTTPERR
 K ^VPRPTJ("JPID")
 K ^VPRPTX("count","patient","patient")
 K ^TMP
 D PATIDS
 S PID="SITE;3"
 S JPID=$$JPID4PID^VPRJPR(PID)
 S ARG("pid")=PID
 D DELPT^VPRJPR(.BODY,.ARG)
 D ASSERT(0,$D(^TMP("HTTPERR",$J)),"Error returned from DELPT^VPRJPR")
 D ASSERT(0,$D(^VPRPTJ("JPID")),"JPID index exists and should not")
 D ASSERT(0,$D(^VPRPTJ("JSON")),"Patient data JSON exists and should not")
 D ASSERT(0,$D(^VPRPTJ("JPID",JPID)),"JPID exists and should not")
 D ASSERT(0,$D(^VPRPTJ("JPID",JPID,"1234V4321")),"JPID index for 1234V4321 exists and should not")
 D ASSERT(0,$D(^VPRPTJ("JPID","1234V4321")),"PID index for 1234V4321 exists and should not")
 D ASSERT(0,$D(^VPRPTJ("JPID",JPID,"SITE;3")),"JPID index for SITE;3 exists and should not")
 D ASSERT(0,$D(^VPRPTJ("JPID","SITE;3")),"PID index for SITE;3 exists and should not")
 D ASSERT(0,$D(^VPRPTJ("JPID",JPID,"SITE;3")),"JPID index for SITE;3 exists and should not")
 D ASSERT(0,$D(^VPRPTJ("JPID","SITE;3")),"PID index for SITE;3 exists and should not")
 D ASSERT(0,$D(^VPRMETA("JPID",JPID,"lastAccessTime")),"A lastAccessTime data node exists and should not")
 K ^VPRPTJ("JPID")
 K ^VPRPTX("count","patient","patient")
 K ^TMP
 Q
 ;
INVJPIDQ ;; @TEST JPID QUERY with an invalid query
 N RETURN,ARGS,BODY,HTTPERR
 K ^VPRPTJ("JPID")
 K ^VPRPTX("count","patient","patient")
 K ^TMP
 D PATIDS
 S BODY="{""TEST"":1}"
 S RETURN=$$JPIDQUERY^VPRJPR(.ARGS,.BODY)
 D ASSERT(400,$G(^TMP("HTTPERR",$J,1,"error","code")),"An HTTP 400 error should have occured")
 D ASSERT(242,$G(^TMP("HTTPERR",$J,1,"error","errors",1,"reason")),"An 242 reason code should have occurred")
 Q
 ;
KNOWNJPIDQ ;; @TEST JPID Query with all known PIDs
 N RETURN,ARGS,BODY,HTTPERR
 K ^VPRPTJ("JPID")
 K ^VPRPTX("count","patient","patient")
 K ^TMP
 D PATIDS
 S BODY="{""patientIdentifiers"":[""SITE;3"",""SITE;3"",""1234V4321""]}"
 S RETURN=$$JPIDQUERY^VPRJPR(.ARGS,.BODY)
 D ASSERT("",$G(^TMP("HTTPERR",$J,1,"error","code")),"An HTTP error should not have occured")
 D ASSERT("52833885-af7c-4899-90be-b3a6630b2369",$P(RETURN,"/",4),"returned JPID doesn't match expected value")
 Q
 ;
UNKNOWNJPIDQ ;; @TEST JPID Query with 1 unknown PID
 N RETURN,ARGS,BODY,HTTPERR
 K ^VPRPTJ("JPID")
 K ^VPRPTX("count","patient","patient")
 K ^TMP
 D PATIDS
 S BODY="{""patientIdentifiers"":[""SITE;3"",""ABCD;3"",""1234V4321""]}"
 S RETURN=$$JPIDQUERY^VPRJPR(.ARGS,.BODY)
 D ASSERT("",$G(^TMP("HTTPERR",$J,1,"error","code")),"An HTTP error should not have occured")
 D ASSERT("52833885-af7c-4899-90be-b3a6630b2369",$P(RETURN,"/",4),"returned JPID doesn't match expected value")
 Q
 ;
ALLUNKNOWNJPIDQ ;; @TEST JPID Query with all unknown PIDs
 N RETURN,ARGS,BODY,HTTPERR
 K ^VPRPTJ("JPID")
 K ^VPRPTX("count","patient","patient")
 K ^TMP
 D PATIDS
 S BODY="{""patientIdentifiers"":[""1234;3"",""ABCD;3"",""4321V1234""]}"
 S RETURN=$$JPIDQUERY^VPRJPR(.ARGS,.BODY)
 D ASSERT("",$G(^TMP("HTTPERR",$J,1,"error","code")),"An HTTP error should not have occured")
 D ASSERT("",RETURN,"should have received an empty string and didn't")
 Q
 ;
COLJPIDQ ;; @TEST JPID Query with 1 JPID collision
 N RETURN,ARGS,BODY,HTTPERR,TMP
 K ^VPRPTJ("JPID")
 K ^VPRPTX("count","patient","patient")
 K ^TMP
 D PATIDS
 S TMP=$I(^VPRPTX("count","patient","patient"))
 S ^VPRPTJ("JPID","52833885-af7c-4899-90be-b3a6630b2370")=""
 S ^VPRPTJ("JPID","52833885-af7c-4899-90be-b3a6630b2370","ASDF;3")=""
 S ^VPRPTJ("JPID","ASDF;3")="52833885-af7c-4899-90be-b3a6630b2370"
 ;
 S BODY="{""patientIdentifiers"":[""SITE;3"",""ASDF;3"",""SITE;3""]}"
 S RETURN=$$JPIDQUERY^VPRJPR(.ARGS,.BODY)
 D ASSERT(400,$G(^TMP("HTTPERR",$J,1,"error","code")),"An HTTP error should not have occured")
 D ASSERT(223,$G(^TMP("HTTPERR",$J,1,"error","errors",1,"reason")),"An 242 reason code should have occurred")
 D ASSERT("",RETURN,"should have received an empty string and didn't")
 Q
 ;
ALLCOLJPIDQ ;; @TEST JPID Query with all PIDs colliding
 N RETURN,ARGS,BODY,HTTPERR,TMP
 K ^VPRPTJ("JPID")
 K ^VPRPTX("count","patient","patient")
 K ^TMP
 D PATIDS
 S TMP=$I(^VPRPTX("count","patient","patient"))
 S ^VPRPTJ("JPID","52833885-af7c-4899-90be-b3a6630b2370")=""
 S ^VPRPTJ("JPID","52833885-af7c-4899-90be-b3a6630b2370","ASDF;3")=""
 S ^VPRPTJ("JPID","ASDF;3")="52833885-af7c-4899-90be-b3a6630b2370"
 S TMP=$I(^VPRPTX("count","patient","patient"))
 S ^VPRPTJ("JPID","52833885-af7c-4899-90be-b3a6630b2371")=""
 S ^VPRPTJ("JPID","52833885-af7c-4899-90be-b3a6630b2371","4321V1234")=""
 S ^VPRPTJ("JPID","4321V1234")="52833885-af7c-4899-90be-b3a6630b2371"
 ;
 S BODY="{""patientIdentifiers"":[""SITE;3"",""ASDF;3"",""4321V1234""]}"
 S RETURN=$$JPIDQUERY^VPRJPR(.ARGS,.BODY)
 D ASSERT(400,$G(^TMP("HTTPERR",$J,1,"error","code")),"An HTTP error should not have occured")
 D ASSERT(223,$G(^TMP("HTTPERR",$J,1,"error","errors",1,"reason")),"An 242 reason code should have occurred")
 D ASSERT("",RETURN,"should have received an empty string and didn't") Q
 ;