Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Used in RPC |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: XUMVINPU

Package: Kernel

Routine: XUMVINPU


Information

XUMVINPU ;MVI/DRI - Master Veteran Index New Person Utilities ;10/23/20 16:40

Source Information

Source file <XUMVINPU.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA FileMan 4 MSG^DIALOG  FIELD^DID  (FILE,UPDATE)^DIE  GETS^DIQ  
Kernel 1 $$PATCH^XPDUTL  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Kernel 3 XUP732  XUS MVI NEW PERSON GET  XUS MVI NEW PERSON UPDATE  

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

External References

Name Field # of Occurrence
MSG^DIALOG BLDERR+1
FIELD^DID GET+144, GET+146, GET+153, GET+159, GET+162, GET+166, GET+171, GET+173, GET+177, GET+179
, GET+183, GET+189, GET+192, GET+196, GET+202, GET+205
FILE^DIE FILER+7
UPDATE^DIE UPDATE+60
GETS^DIQ GET+142, GET+151, GET+181
$$PATCH^XPDUTL GET+141

Used in RPC

RPC Name Call Tags
XUS MVI NEW PERSON GET GET
XUS MVI NEW PERSON UPDATE UPDATE

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^VA( GET+132, GET+133, GET+134, GET+136, UPDATE+47
^VA(20 - [#20] UPDATE+51
^VA(200 - [#200] UPDATE+58, UPDATE+64, UPDATE+70, FILER+4, FILER+7

Label References

Name Line Occurrences
$$ADDERR UPDATE+78, FILER+9
$$BLDERR UPDATE+60, FILER+9
FILER UPDATE+74, UPDATE+76

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ARR UPDATE+41~*, UPDATE+43*, UPDATE+64*
CNT GET+131~*, GET+135, GET+136, GET+137*, GET+147*, GET+148*, GET+150*, GET+154*, GET+159*, GET+163*
, GET+167*, GET+168*, GET+173*, GET+174*, GET+178*, GET+180*, GET+184*, GET+189*, GET+193*, GET+197*
, GET+198*, GET+202*, GET+206*, GET+208*
DEAARR GET+170~
DEAARR( GET+184
DEAFILE GET+170~*, GET+181, GET+183, GET+184
DEAFLD GET+170~, GET+183*, GET+184
DEAFLDCNT GET+170~, GET+175*, GET+182
DEAFLDS GET+170~, GET+175*, GET+181, GET+183
DIERR UPDATE+57~, UPDATE+60, FILER+2~, FILER+9
DIHELP UPDATE+57~, FILER+2~
DIMSG UPDATE+57~, FILER+2~
ERR UPDATE+57~
ERRSTR BLDERR+1~, BLDERR+2*, BLDERR+3
FILE GET+131~*, GET+132, GET+133, GET+134, GET+136, GET+137, GET+142, GET+144, GET+147, GET+148
, GET+150, GET+151, GET+154, GET+159, GET+163, GET+167, GET+168, GET+173, GET+174, GET+178
, GET+180, GET+189, GET+193, GET+197, GET+198, GET+202, GET+206, GET+208
FILENUM UPDATE+41~, UPDATE+43*, UPDATE+47, UPDATE+66
FLD GET+131~, GET+144*, GET+145, GET+147, GET+148, GET+149, GET+150, GET+151, GET+154, GET+155
, GET+159, GET+163, GET+165, GET+167, GET+168, GET+169, GET+173, GET+174, GET+178, GET+180
, GET+186, GET+189, GET+193, GET+195, GET+197, GET+198, GET+199, GET+202, GET+206, GET+208
FLDCNT GET+131~, GET+142*, GET+143
FLDNAM UPDATE+41~, UPDATE+43*, UPDATE+44, UPDATE+48, UPDATE+56, UPDATE+61
FLDNM GET+131~
FLDNM("LABEL" GET+147, GET+148, GET+150, GET+154, GET+159, GET+163, GET+167, GET+168, GET+173, GET+174
, GET+178, GET+180, GET+184, GET+189, GET+193, GET+197, GET+198, GET+202, GET+206, GET+208
FLDNUM UPDATE+41~, UPDATE+43*, UPDATE+66
FLDS GET+131~, GET+138*, GET+139*, GET+140*, GET+141*, GET+142, GET+144
I GET+131~, GET+143*, GET+144, GET+170~, GET+182*, GET+183, BLDERR+1~, BLDERR+2*
IDATA UPDATE+41~, UPDATE+43*, UPDATE+45, UPDATE+49, UPDATE+56, UPDATE+57, UPDATE+58, UPDATE+59, UPDATE+61, UPDATE+62
, UPDATE+66
IEN GET+170~, GET+177*, GET+178, GET+181, GET+184
IENS GET+146~, GET+148*, GET+156~, GET+160*, GET+163, GET+166~, GET+168*, GET+170~, GET+176*, GET+177
, GET+178, GET+180, GET+187~, GET+190*, GET+193, GET+196~, GET+198*, GET+200~, GET+203*, GET+206
, UPDATE+57~, UPDATE+59*, UPDATE+64*
INROOT BLDERR~, BLDERR+1
MCNT GET+146~*, GET+147, GET+148*, GET+156~*, GET+159, GET+163, GET+164*, GET+166~*, GET+167, GET+168*
, GET+170~*, GET+173, GET+174, GET+178, GET+180, GET+184, GET+185*, GET+187~*, GET+189, GET+193
, GET+194*, GET+196~*, GET+197, GET+198*, GET+200~*, GET+202, GET+206, GET+207*
MSG ADDERR~, ADDERR+1, ADDERR+2
NAMEFDA UPDATE+74~
NAMEFDA(200 UPDATE+74*
NCFILE GET+151~*, GET+153, GET+154
NCFLD GET+151~, GET+152*, GET+153, GET+154
NCIEN UPDATE+41~, UPDATE+49*, UPDATE+50, UPDATE+51, UPDATE+66
NPI GET~, GET+133, UPDATE+64*
NPIERR UPDATE+41~, UPDATE+60*, UPDATE+78
NPIIN UPDATE+41~, UPDATE+57*, UPDATE+70
NPINEW UPDATE+41~, UPDATE+59*, UPDATE+68
RET ADDERR~, ADDERR+1, ADDERR+2
SECID GET~, GET+132
SSN GET~, GET+134
SUBFILE GET+146~*, GET+147, GET+148, GET+156~*, GET+157, GET+159, GET+160, GET+162, GET+163, GET+166~*
, GET+167, GET+168, GET+170~*, GET+171, GET+172, GET+173, GET+176, GET+177, GET+178, GET+179
, GET+180, GET+187~*, GET+189, GET+190, GET+192, GET+193, GET+196~*, GET+197, GET+198, GET+200~*
, GET+202, GET+203, GET+205, GET+206
SUBFLD GET+146~*, GET+147, GET+148, GET+156~, GET+158*, GET+159, GET+161*, GET+162, GET+163, GET+166~*
, GET+167, GET+168, GET+170~*, GET+171, GET+173, GET+177, GET+178, GET+187~, GET+188*, GET+189
, GET+191*, GET+192, GET+193, GET+196~*, GET+197, GET+198, GET+200~, GET+201*, GET+202, GET+204*
, GET+205, GET+206
U UPDATE+70, UPDATE+80
XUARR GET+131~, UPDATE~, UPDATE+42
XUARR( GET+147, GET+148, GET+150, GET+151, GET+154, GET+157, GET+160, GET+163, GET+167, GET+168
, GET+172, GET+176, GET+177, GET+178, GET+180, GET+187, GET+190, GET+193, GET+197, GET+198
, GET+200, GET+203, GET+206, GET+208
XUDUZ GET~, GET+132*, GET+133*, GET+134*, GET+135, GET+136, GET+137, GET+142, GET+150, GET+151
, GET+154, GET+208, UPDATE+41~, UPDATE+45*, UPDATE+46, UPDATE+47, UPDATE+58, UPDATE+59, UPDATE+62, UPDATE+64
, UPDATE+66, UPDATE+68, UPDATE+70, UPDATE+73, UPDATE+74, UPDATE+76, FILER~, FILER+3, FILER+4, FILER+7
XUERMSGS BLDERR+1~
XUERMSGS( BLDERR+2
XUERR UPDATE+41~, FILER+2~
XUFDA UPDATE+41~, UPDATE+57~, UPDATE+68, UPDATE+76
XUFDA( UPDATE+59*, UPDATE+64*, UPDATE+66*
XUFDA(200 UPDATE+62*, UPDATE+70!, UPDATE+73, UPDATE+74!
XUGBL GET+131~*, GET+135, GET+136, GET+137, GET+147, GET+148, GET+150, GET+154, GET+159, GET+163
, GET+167, GET+168, GET+173, GET+174, GET+178, GET+180, GET+184, GET+189, GET+193, GET+197
, GET+198, GET+202, GET+206, GET+208, GET+209
XUMVIFDA FILER~, FILER+3
XURET GET~, GET+131!, GET+135*, GET+136*, GET+209*, UPDATE~, UPDATE+41!, UPDATE+74, UPDATE+76, FILER~
XURET(0 UPDATE+42*, UPDATE+43, UPDATE+46*, UPDATE+47*, UPDATE+50*, UPDATE+51*, UPDATE+67, UPDATE+68*, UPDATE+73, UPDATE+76
, UPDATE+78*, UPDATE+80*, FILER+4*, FILER+9*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Used in RPC |  Global Variables Directly Accessed |  Label References |  Local Variables  | All