Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Used in RPC
Print Page as PDF
Routine: XUMVINPU

Package: Kernel

Routine: XUMVINPU


Information

XUMVINPU ;MVI/DRI - Master Veteran Index New Person Utilities ;7/31/20 15:04

Source Information

Source file <XUMVINPU.m>

Entry Points

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

Used in RPC

RPC Name Call Tags
XUS MVI NEW PERSON GET GET
XUS MVI NEW PERSON UPDATE UPDATE
Info |  Source |  Entry Points |  Used in RPC