XUMVINPU ;MVI/DRI - Master Veteran Index New Person Utilities ;7/31/20 15:04
Source file <XUMVINPU.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
GET(XURET,XUDUZ,SECID,NPI,SSN) | ;rpc to retrieve new person file data
; called from rpc: XUS MVI NEW PERSON GET ; Input (ONE of the following): ; XUDUZ = NEW PERSON IEN SECID=SECURITY ID NPI=NATIONAL PROVIDER IDENTIFIER SSN=SOCIAL SECURITY NUMBER ; Output: ; Success: XURET = ^TMP("XUMVINPU",$J) ; @XURET@(#) = FILE #;FIELD #<SUBFIELD #><FILE POINTER>^FIELD NAME^<COUNTER #>^INTERNAL VALUE^EXTERNAL VALUE ; <> Denotes optional values. If Counter populated, denotes multiple value <1-n>. ; @XURET@(#)="200;IEN^DUZ^^^" ; @XURET@(#)="200;.01^NAME^^^" ; @XURET@(#)="200;4^SEX^^^" ; @XURET@(#)="200;5^DOB^^^" ;**732,1204309 (mko): Return DOB ; @XURET@(#)="200;8^TITLE^^^" ; @XURET@(#)="200;7^DISUSER^^^" ; @XURET@(#)="200;9.2^TERMINATION DATE^^^" ; @XURET@(#)="200;9.4^Termination Reason^^^" ; @XURET@(#)="200;15^PROHIBITED TIMES FOR SIGN-ON^^^" ; @XURET@(#)="200;11.2^DATE VERIFY CODE LAST CHANGED^^^" ; @XURET@(#)="200;.111^STREET ADDRESS 1^^^" ; @XURET@(#)="200;.112^STREET ADDRESS 2^^^" ; @XURET@(#)="200;.113^STREET ADDRESS 3^^^" ; @XURET@(#)="200;.114^CITY^^^" ; @XURET@(#)="200;.115^STATE^^^" ; @XURET@(#)="200;.116^ZIP CODE^^^" ; @XURET@(#)="200;.132^OFFICE PHONE^^^" ; @XURET@(#)="200;.136^FAX NUMBER^^^" ; @XURET@(#)="200;.151^EMAIL ADDRESS^^^" ; @XURET@(#)="200;30^DATE ENTERED^^^" ; @XURET@(#)="200;31^CREATOR^^^" ; @XURET@(#)="200;41.98^NPI ENTRY STATUS^^" ; @XURET@(#)="200;41.99^NPI^^^" ; @XURET@(#)="200;9^SSN^^^" ; @XURET@(#)="200;42;.01^EFFECTIVE DATE/TIME^<#>^^" ; @XURET@(#)="200;42;.02^STATUS^<#>^^" ; @XURET@(#)="200;42;.03^NPI^<#>^^" ; @XURET@(#)="200;101.13;.01^CPRS TAB^<#>^^" ; @XURET@(#)="200;101.13;.02^EFFECTIVE DATE^<#>^^" ; @XURET@(#)="200;101.13;.03^EXPIRATION DATE^<#>^^" ; @XURET@(#)="200;202^LAST SIGN-ON DATE/TIME^^^" ; @XURET@(#)="200;202.02^XUS Logon Attempt Count^^^" ; @XURET@(#)="200;202.03^XUS Active User^^^" ; @XURET@(#)="200;202.04^Entry Last Edit Date^^^" ; @XURET@(#)="200;202.05^LOCKOUT USER UNTIL^^^" ; @XURET@(#)="200;16;.01^DIVISION^<1-n>^^" ; @XURET@(#)="200;10.1^NAME COMPONENTS^^^" ; @XURET@(#)="20;1^FAMILY (LAST) NAME^^^" ; @XURET@(#)="20;2^GIVEN (FIRST) NAME^^^" ; @XURET@(#)="20;3^MIDDLE NAME^^^" ; @XURET@(#)="20;4^PREFIX^^^" ; @XURET@(#)="20;5^SUFFIX^^^" ; @XURET@(#)="20;6^DEGREE^^^" ; @XURET@(#)="200;29^SERVICE/SECTION^^^" ; @XURET@(#)="200;201^PRIMARY MENU OPTION^^^" ; @XURET@(#)="200;203;.01^SECONDARY MENU OPTIONS^<1-n>^^" ; @XURET@(#)="200;51;.01^KEYS^<1-n>^^" ; @XURET@(#)="200;205.1^SECID^^^" ; @XURET@(#)="200;205.2^SUBJECT ORGANIZATION^^^" ; @XURET@(#)="200;205.3^SUBJECT ORGANIZATION ID^^^" ; @XURET@(#)="200;205.4^UNIQUE USER ID^^^" ; @XURET@(#)="200;205.5^ADUPN^^^" ; @XURET@(#)="200;501.1^NETWORK USERNAME^^^" ; @XURET@(#)="200;8932.1;.01^PERSON CLASS^<1-n>^^" ; @XURET@(#)="200;8932.1;2^EFFECTIVE DATE^<#>^^" ; @XURET@(#)="200;8932.1;3^EXPIRATION DATE^<#>^^" ; @XURET@(#)="200;53.1^AUTHORIZED TO WRITE MED ORDERS^^^" ; @XURET@(#)="200;53.11^DETOX/MAINTENANCE ID NUMBER^^^" ; @XURET@(#)="200;53.2^DEA#^^^" ; @XURET@(#)="200;747.44^DEA EXPIRATION DATE^^^" ; @XURET@(#)="200;53.4^INACTIVE DATE^^^" ; @XURET@(#)="200;53.5^PROVIDER CLASS^^^" ; @XURET@(#)="200;53.6^PROVIDER TYPE^^^" ; @XURET@(#)="200;53.9^REMARKS^^^" ; @XURET@(#)="200;53.91^NON-VA PRESCRIBER^^^" ; @XURET@(#)="200;53.92^TAX ID^^^" ; @XURET@(#)="200;55.1^SCHEDULE II NARCOTIC^^^" ; @XURET@(#)="200;55.2^SCHEDULE II NON-NARCOTIC^^^" ; @XURET@(#)="200;55.3^SCHEDULE III NARCOTIC^^^" ; @XURET@(#)="200;55.4^SCHEDULE III NON-NARCOTIC^^^" ; @XURET@(#)="200;55.5^SCHEDULE IV^^^" ; @XURET@(#)="200;55.6^SCHEDULE V^^^" |
|
UPDATE(XURET,XUARR) | ;rpc to update new person file data
; called from rpc: XUS MVI NEW PERSON UPDATE ; Input: ; XUARR(#) = FILE #;FIELD #<SUBFIELD #><FILE POINTER>^FIELD NAME^<COUNTER #>^INTERNAL VALUE^EXTERNAL VALUE ; <> Denotes optional values. If Counter populated, denotes multiple value <1-n>. ; XUARR(0)="200;IEN^DUZ^^^" ; XUARR(#)="200;.01^NAME^^^" ; XUARR(#)="200;205.1^SECID^^" ; XUARR(#)="200;205.2^SUBJECT ORGANIZATION^^^" ; XUARR(#)="200;205.3^SUBJECT ORGANIZATION ID^^^" ; XUARR(#)="200;205.4^UNIQUE USER ID^^^" ; XUARR(#)="200;205.5^ADUPN^^^" ; **711, Story 977821 (jfw) - Allow additional fields to be updated. ; XUARR(#)="200;.151^EMAIL ADDRESS^^^" ; XUARR(#)="200;501.1^NETWORK USERNAME^^^" ; **710, Story 1100018 (jfw) - Add NPI field to be updated. ; XUARR(#)="200;41.99^NPI^^^" ; **732,Story 1204309 (mko): Add NPI ENTRY STATUS (#41.98) ; XUARR(#)=200;41.98^NPI ENTRY STATUS^^<value> ; **732, story 1278983 (cmc) add EFFECTIVE DATE (#42) MULTIPLE ; XUARR(#)="200;42;.01^EFFECTIVE DATE/TIME^<#>^^" ; XUARR(#)="200;42;.02^STATUS^<#>^^" ; XUARR(#)="200;42;.03^NPI^<#>^^" ; Success: ; XURET(0) = 1 ; Fail: ; XURET(0) = "-1^No data passed" ; XURET(0) = "-1^Invalid User DUZ (null)" ; XURET(0) = "-1^User '"_XUDUZ_"' does not exist" ; XURET(0) = "-1^Invalid Name Component IEN" ; XURET(0) = "-1^No Data for Name Component IEN: "_NCIEN ; XURET(0) = "-1^No data to file for record '"_XUDUZ_"' in file 200" ; XURET(0) = "-1^Unable to lock record '"_XUDUZ_"' in file 200" ; XURET(0) = "-1^"_$G(XUERR("DIERR",1,"TEXT",1)) |
|
FILER(XUDUZ,XUMVIFDA,XURET) | ;Call the Filer
|
|
ADDERR(RET,MSG) | ;Return RET with MSG appended to it, and 1st piece equal to -1
|
|
BLDERR(INROOT) | ;Build a string containing error messages returned by FileMan
|
RPC Name | Call Tags |
---|---|
XUS MVI NEW PERSON GET | GET |
XUS MVI NEW PERSON UPDATE | UPDATE |