Print Page as PDF
Edit COUNTY(#.117) field of the PATIENT(#2) file ICR (4453)

Edit COUNTY(#.117) field of the PATIENT(#2) file    ICR (4453)

Name Value
NUMBER 4453
IA # 4453
DATE CREATED 2004/07/13
CUSTODIAL PACKAGE REGISTRATION
USAGE Private
TYPE Routine
DBIC APPROVAL STATUS APPROVED
ROUTINE XU8P328D
NAME Edit COUNTY(#.117) field of the PATIENT(#2) file
GENERAL DESCRIPTION
Patch XU*8*328 is updating the COUNTY multiple of the
STATE file.  The Read data is obtained using the following code:
. S FLDS=".01;.0905;.114;.115;.116;.117"
. ; .01=NAME
. ; .0905=1U4N
. ; .114=CITY
. ; .115=STATE FILE POINTER
. ; .116=ZIP CODE
. ; .117=COUNTY MULTIPLE IEN
. ;
. D GETS^DIQ(2,DFN_",",FLDS,"I","PDATA","ZER")

Any County(s) who are found to be in error are having their names changed to
"ZZ"_<current name> and VA COUNTY CODE changed to a 900 number.  As part of
the post install a manual entry point has been created to attempt to change
any patient who's County begins with "ZZ"_<smoething> to the proper county,
After getting the Patient's current ZIP Code an API call is made to the POSTAL
CODE(#5.12) file, editing of the COUNTY(.117) field will take place If And
Only If the following three things are true: 1. The Patient's City matches the
POSTAL CODE(#5.12) file City.  2. The Patient's State matches the POSTAL
CODE(#5.12) State.  3. The Patient's ZIP code matches the POSTAL CODE(#5.12)
ZIP code.

The following is the code that does the matching and the message:
... I ZDATA(III,"CITY")=CITY,ZDATA(III,"STATE
POINTER")=SIEN,ZDATA(III," POSTAL CODE")=ZIP D  Q
.... S FLAG=1
.... N DIERR,ZERR,FDA
.... S FDA(2,DFN_",",.117)=ZDATA(III,"COUNTY")
.... D FILE^DIE("E","FDA","ZERR")
.... I $D(DIERR) D NAME,MES^XPDUTL("  **Unable to file Patient's
COUNTY.") Q
.... Q
... Q
.. I 'FLAG D NAME,MES^XPDUTL("  ** City and State do not match ZIP
code.")
STATUS Active
ID XU8P328D
COMPONENT/ENTRY POINT FIX
SUBSCRIBING PACKAGE
SUBSCRIBING PACKAGE ISC
KERNEL Oakland