| 1 | DGRRLU5 ; ALB/sgg/MM - DG Replacement and Rehosting RPC for VADPT ; May-4-2004 ;
|
|---|
| 2 | ;;5.3;Registration;**538**;Aug 13, 1993
|
|---|
| 3 | ; provider lookup
|
|---|
| 4 | ; called by DGRRLU at line PRVLUP^DGRRLU5 if PARAMS("SEARCH_TYPE") = "PRVLUP"
|
|---|
| 5 | ;
|
|---|
| 6 | ;
|
|---|
| 7 | DOC ;INPUT: Input is by the following parameters in the PARAMS() array:
|
|---|
| 8 | ;
|
|---|
| 9 | ;"PRV_VPID" - VPID [Required VPID unless PRV_LNAM is not Null.]
|
|---|
| 10 | ; If not null the query will only return the one person
|
|---|
| 11 | ; with this VPID, and only then if SSN, PROV and STN filters
|
|---|
| 12 | ; do not exclude this person.
|
|---|
| 13 | ;"PRV_LNAM" - LAST NAME [Required Char String unless VPID is not Null.]
|
|---|
| 14 | ; If not null the query will only return persons whose
|
|---|
| 15 | ; last name starts with this string.
|
|---|
| 16 | ;"PRV_FNAM" - FIRST NAME [Optional: Character String or Null.]
|
|---|
| 17 | ; If not null the query will only return persons whose
|
|---|
| 18 | ; first name starts with this string.
|
|---|
| 19 | ;"PRV_SSN" - SSN FILTER [Optional: 9 digits or Null.]
|
|---|
| 20 | ; If not null the query will only return persons with
|
|---|
| 21 | ; this social security number.
|
|---|
| 22 | ;"PRV_PROV" - PROVIDER FILTER [Optional: "P" or Null.]
|
|---|
| 23 | ; If set to "P" the query includes only providers, i.e.
|
|---|
| 24 | ; persons with a person class active on the PRV_DATE.
|
|---|
| 25 | ;"PRV_STN" - STATION NUMBER FILTER [Optional: an STN or Null.]
|
|---|
| 26 | ; If not null the query only returns persons with this
|
|---|
| 27 | ; station number.
|
|---|
| 28 | ;"PRV_MNM" - MAXIMUM NUMBER [Optional: min=1 max=50 default=50.]
|
|---|
| 29 | ; The maximum number of persons the query will return.
|
|---|
| 30 | ; If VPID is not null this is always 1.
|
|---|
| 31 | ;"PRV_DATE" - DATE [Optional: if Null this defaults to Today.]
|
|---|
| 32 | ; The Date against which a persons active person class is
|
|---|
| 33 | ; determined.
|
|---|
| 34 | ;
|
|---|
| 35 | ;OUTPUT: Output an XML with a schema as given:
|
|---|
| 36 | ;
|
|---|
| 37 | ; <?xml version="1.0" encoding="utf-8" ?>
|
|---|
| 38 | ; <persons> Example Data
|
|---|
| 39 | ; <person>
|
|---|
| 40 | ; </vpid> 999999999
|
|---|
| 41 | ; </ien> 11579
|
|---|
| 42 | ; </lname> KRUSHER
|
|---|
| 43 | ; </fname> WILL
|
|---|
| 44 | ; </mname> MIDDIE
|
|---|
| 45 | ; </ssn> 232323232
|
|---|
| 46 | ; </dob> 2330303
|
|---|
| 47 | ; </sex> M
|
|---|
| 48 | ; <providerInfo>
|
|---|
| 49 | ; </type> Physician Assistants
|
|---|
| 50 | ; </classification> Physician Assistant
|
|---|
| 51 | ; </specialization> Medical
|
|---|
| 52 | ; </VACode> V100100
|
|---|
| 53 | ; </X12Code> 363AM0700N
|
|---|
| 54 | ; </SpecialityCode> 97
|
|---|
| 55 | ; </providerInfo>
|
|---|
| 56 | ; </person>
|
|---|
| 57 | ; <error message=''></error>
|
|---|
| 58 | ; <maximum message=''></maximum>
|
|---|
| 59 | ; <record count='1'></record>
|
|---|
| 60 | ; <institution name='ALBANY' number='500' productiondatabase='0' domain='DMA.FO-ALBANY.MED.VA.GOV' ></institution>
|
|---|
| 61 | ; </persons>
|
|---|
| 62 | ;
|
|---|
| 63 | ;
|
|---|
| 64 | PRVLUP(RESULT,PARAMS) ;
|
|---|
| 65 | NEW DGRRVPID,DGRRLNAM,DGRRFNAM,DGRRSSN,DGRRPROV,DGRRSTN,DGRRMNM,DGRRDATE
|
|---|
| 66 | SET DGRRVPID=$G(PARAMS("PRV_VPID")) ; - The VPID of a Provider (Required unless lookup is by Provider Name)
|
|---|
| 67 | SET DGRRLNAM=$G(PARAMS("PRV_LNAM")) ; - Part or all of the last name to use for basis of query (Required unless lookup is by VPID)
|
|---|
| 68 | SET DGRRFNAM=$G(PARAMS("PRV_FNAM")) ; - Part or all of the first name to use for basis of query filter (optional, can be null)
|
|---|
| 69 | SET DGRRSSN=$G(PARAMS("PRV_SSN")) ; - Social Security Number (null or full 9 digits) to use as additional filter for query
|
|---|
| 70 | SET DGRRPROV=$G(PARAMS("PRV_PROV")) ; - If value set to "P", screen for only providers (only persons with active person class)
|
|---|
| 71 | SET DGRRSTN=$G(PARAMS("PRV_STN")) ; - Filter persons based on station number entered (optional, can be null)
|
|---|
| 72 | SET DGRRMNM=$G(PARAMS("PRV_MNM")) ; - Maximum Number of entries to return (Number between 1 and 50. Null defaults to 50)
|
|---|
| 73 | SET DGRRDATE=$G(PARAMS("PRV_DATE")) ; - Date to be used to determine whether person has active person class. If null, current date is used.
|
|---|
| 74 | ;
|
|---|
| 75 | N DGRRARR,DGRRCNT,ERRMESS,DGRRGLB
|
|---|
| 76 | DO ADD("<persons>")
|
|---|
| 77 | SET DGRRCNT=0 ;Initialize Record Count
|
|---|
| 78 | IF (DGRRLNAM=""),(DGRRVPID="") SET ERRMESS="Query requires a last name or a VPID." GOTO FINALLY
|
|---|
| 79 | ;
|
|---|
| 80 | D EN1^XUPSQRY(.DGRRARR,DGRRVPID,DGRRLNAM,DGRRFNAM,DGRRSSN,DGRRPROV,DGRRSTN,DGRRMNM,DGRRDATE)
|
|---|
| 81 | K ^TMP($J,"PLUQRY")
|
|---|
| 82 | M ^TMP($J,"PLUQRY")=@DGRRARR
|
|---|
| 83 | I '$D(^TMP($J,"PLUQRY",1))!($G(^TMP($J,"PLUQRY",1))=0) D Q
|
|---|
| 84 | .S ERRMESS="No records found."
|
|---|
| 85 | .D FINALLY
|
|---|
| 86 | N DGRRI,DGRRCNT
|
|---|
| 87 | S (DGRRI,DGRRCNT)=0
|
|---|
| 88 | F S DGRRI=$O(^TMP($J,"PLUQRY",DGRRI)) Q:DGRRI="" D
|
|---|
| 89 | .N DGRR0,DGRR1,DGRR2,DGRR3,DGRR4,DGRRVPID,DGRRIEN,DGRRNM,DGRRSSN,DGRRDOB,DGRRSEX
|
|---|
| 90 | .S DGRRCNT=DGRRCNT+1
|
|---|
| 91 | .; DGRR0=VPID^IEN^Last Name~First Name~Middle Name^SSN^DOB^SEX
|
|---|
| 92 | .S DGRR0=$G(^TMP($J,"PLUQRY",DGRRCNT,0))
|
|---|
| 93 | .S DGRR1=$G(^TMP($J,"PLUQRY",DGRRCNT,1)) ;Provider Type
|
|---|
| 94 | .S DGRR2=$G(^TMP($J,"PLUQRY",DGRRCNT,2)) ;Provider Classification
|
|---|
| 95 | .S DGRR3=$G(^TMP($J,"PLUQRY",DGRRCNT,3)) ;Area of Specialization
|
|---|
| 96 | .; DGRR4=VA Code^X12 Code^Specialty Code
|
|---|
| 97 | .S DGRR4=$G(^TMP($J,"PLUQRY",DGRRCNT,4))
|
|---|
| 98 | .S DGRRVPID=$P(DGRR0,U)
|
|---|
| 99 | .S DGRRIEN=$P(DGRR0,U,2)
|
|---|
| 100 | .S DGRRNM=$P(DGRR0,U,3)
|
|---|
| 101 | .S DGRRSSN=$P(DGRR0,U,4)
|
|---|
| 102 | .S DGRRDOB=$P(DGRR0,U,5)
|
|---|
| 103 | .S DGRRSEX=$P(DGRR0,U,6)
|
|---|
| 104 | .D FOUND
|
|---|
| 105 | D FINALLY
|
|---|
| 106 | Q
|
|---|
| 107 | ;
|
|---|
| 108 | FINALLY DO ADD("<error message='"_$G(ERRMESS)_"'></error>")
|
|---|
| 109 | DO ADD("<maximum message=''></maximum>")
|
|---|
| 110 | DO ADD("<record count='"_DGRRCNT_"'></record>")
|
|---|
| 111 | I $G(DGRRARR)'="" K @DGRRARR
|
|---|
| 112 | K ^TMP($J,"PLUQRY")
|
|---|
| 113 | Q
|
|---|
| 114 | ;
|
|---|
| 115 | FOUND ;Build XML of found records
|
|---|
| 116 | ;
|
|---|
| 117 | DO ADD("<person>")
|
|---|
| 118 | DO ADD("<vpid>"_$$CHARCHK^DGRRUTL(DGRRVPID)_"</vpid>")
|
|---|
| 119 | DO ADD("<ien>"_$$CHARCHK^DGRRUTL(DGRRIEN)_"</ien>")
|
|---|
| 120 | DO ADD("<lname>"_$$CHARCHK^DGRRUTL($P(DGRRNM,"~",1))_"</lname>")
|
|---|
| 121 | DO ADD("<fname>"_$$CHARCHK^DGRRUTL($P(DGRRNM,"~",2))_"</fname>")
|
|---|
| 122 | DO ADD("<mname>"_$$CHARCHK^DGRRUTL($P(DGRRNM,"~",3))_"</mname>")
|
|---|
| 123 | DO ADD("<ssn>"_$$CHARCHK^DGRRUTL(DGRRSSN)_"</ssn>")
|
|---|
| 124 | DO ADD("<dob>"_$$CHARCHK^DGRRUTL(DGRRDOB)_"</dob>")
|
|---|
| 125 | DO ADD("<sex>"_$$CHARCHK^DGRRUTL(DGRRSEX)_"</sex>")
|
|---|
| 126 | DO ADD("<providerInfo>")
|
|---|
| 127 | DO ADD("<type>"_$$CHARCHK^DGRRUTL($P(DGRR1,U))_"</type>")
|
|---|
| 128 | DO ADD("<classification>"_$$CHARCHK^DGRRUTL($P(DGRR2,U))_"</classification>")
|
|---|
| 129 | DO ADD("<specialization>"_$$CHARCHK^DGRRUTL($P(DGRR3,U))_"</specialization>")
|
|---|
| 130 | DO ADD("<VACode>"_$$CHARCHK^DGRRUTL($P(DGRR4,U))_"</VACode>")
|
|---|
| 131 | DO ADD("<X12Code>"_$$CHARCHK^DGRRUTL($P(DGRR4,U,2))_"</X12Code>")
|
|---|
| 132 | DO ADD("<SpecialityCode>"_$$CHARCHK^DGRRUTL($P(DGRR4,U,3))_"</SpecialityCode>")
|
|---|
| 133 | DO ADD("</providerInfo>")
|
|---|
| 134 | DO ADD("</person>")
|
|---|
| 135 | QUIT
|
|---|
| 136 | ;
|
|---|
| 137 | ADD(STR) ; add string to array
|
|---|
| 138 | SET DGRRLINE=DGRRLINE+1
|
|---|
| 139 | SET @DGRRESLT@(DGRRLINE)=STR
|
|---|
| 140 | QUIT
|
|---|
