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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: XUSNPI1

Package: Kernel

Routine: XUSNPI1


Information

XUSNPI1 ; OAK/TKW - NATIONAL PROVIDER IDENTIFIER UTILITIES ;6/6/08 11:27

Source Information

Source file <XUSNPI1.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Kernel 1 $$ACTIVE^XUSER  
Toolkit 1 GETLST^XPAR  
VA Fileman 1 $$GET1^DIQ  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Kernel 2 XUSNPIE1  XUSNPIE3  

Entry Points

Name Comments DBIA/ICR reference
GETPER(XUSOWNKY) ; Return names of people who own the security key IB PROVIDER EDIT
NPIUSED(XUSNPI,XUSQID,XUSQIL,XUSIEN,XUSRSLT,XUSFLAG) ; Evaluate cases where an NPI is already in use
; and return an error or warning. Called from routines that allow an NPI to be assigned
; to either an INSTITUTION (file 4) or a NEW PERSON (file 200).
; XUSNPI = the NPI
; XUSQID = the qualified identifier for the file being edited (ex. "Individual_ID")
; XUSQIL = the delimited list of entities already using that NPI. This is output
; from $$QI^XUSNPI, in the format:
; Qualified_Identifier^IEN^Effective_date/time^Active/Inactive;
; (Qualified_Identifier=(ex. "Individual_ID")
; IEN=the IEN of the entity who owns the NPI.
; If there are multiple entities who own the NPI, there will
; be multiple entries in XUSQIL, delimited by ";".)
; XUSIEN = IEN of entry to which NPI is being assigned
; XUSRSLT = an output array returned if an error or warning message is generated.
; XUSFLAG = If set to 1, indicates that routine is being called from an input transform.
; If set to 2, indicates we're checking the current NPI prior to delete/replace
; If set to 3, indicates we're checking a new NPI (Either ADD or REPLACE).
  • ICR #6888
    • Status: Active
    • Usage: Controlled Subscription
    GETPT(XUSIEN) ; Get provider type for entry in IB NON/OTHER VA BILLING PROVIDER file
    MSGOLD(XUSNPI,XUSGLOB,XUSIEN,XUSCNT,XUSOPT,XUSOAI,XUSRSLT) ;
    ; Generate warning message to display prior to REPLACE/DELETE NPI prompt, when the current
    ; NPI is also used by a non-va provider
    MSGNEW(XUSNPI,XUSGLOB,XUSIEN,XUSCNT,XUSRSLT,XUSOPT,XUSOAI) ;
    ; Generate error or warning message when new NPI is in use.

    External References

    Name Field # of Occurrence
    $$GET1^DIQ GETPT+2
    GETLST^XPAR NPIUSED+33
    $$ACTIVE^XUSER GETPER+5

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^TMP("DIERR" GETPT+7!
    ^VA(200 - [#200] GETPER+3
    ^XUSEC("IB PROVIDER EDIT" GETPER+2

    Label References

    Name Line Occurrences
    $$GETPT NPIUSED+63
    GETPER MSGOLD+28
    MSGNEW NPIUSED+75, NPIUSED+79, NPIUSED+83, NPIUSED+87
    MSGOLD NPIUSED+70

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    I NPIUSED+23~, NPIUSED+43*, MSGOLD+3~, MSGOLD+15*, MSGOLD+16, MSGOLD+17, MSGOLD+18, MSGOLD+19, MSGOLD+20*, MSGOLD+21
    , MSGOLD+22, MSGOLD+23, MSGOLD+24, MSGOLD+25, MSGOLD+26, MSGOLD+29*, MSGOLD+30*
    J MSGOLD+3~, MSGOLD+30*
    PT GETPT+1~, GETPT+2*, GETPT+4*, GETPT+5*, GETPT+6*, GETPT+8
    U NPIUSED+29, NPIUSED+35, NPIUSED+45, NPIUSED+46, NPIUSED+47, NPIUSED+49, NPIUSED+54, NPIUSED+74, NPIUSED+78, GETPER+6
    , MSGOLD+4, MSGOLD+6, MSGOLD+8, MSGOLD+16, MSGOLD+23, MSGNEW+3, MSGNEW+5, MSGNEW+8, MSGNEW+12
    X NPIUSED+23~, GETPER+1~, GETPER+5*, GETPER+6, MSGOLD+3~, MSGOLD+5*, MSGOLD+6*, MSGOLD+7, MSGNEW+2~, MSGNEW+4*
    , MSGNEW+5*, MSGNEW+8, MSGNEW+11
    XUSCNT NPIUSED+23~, NPIUSED+42*, NPIUSED+70, NPIUSED+75, NPIUSED+79, NPIUSED+83, NPIUSED+87, MSGOLD~, MSGOLD+7*, MSGOLD+8*
    , MSGOLD+9, MSGOLD+10, MSGOLD+11*, MSGNEW~, MSGNEW+7, MSGNEW+8, MSGNEW+9*, MSGNEW+11, MSGNEW+12, MSGNEW+13*
    , MSGNEW+15*
    XUSERR NPIUSED+23~, NPIUSED+42*, NPIUSED+43, NPIUSED+51*, NPIUSED+76*, NPIUSED+80*, NPIUSED+84*, NPIUSED+88*, NPIUSED+91
    XUSFILE NPIUSED+23~, MSGOLD+3~, MSGOLD+4*, MSGOLD+10, MSGOLD+23, MSGOLD+25, MSGNEW+2~, MSGNEW+3*, MSGNEW+8, MSGNEW+12
    XUSFILI NPIUSED+23~, NPIUSED+40*
    XUSFLAG NPIUSED~, NPIUSED+37*, NPIUSED+57, NPIUSED+60, NPIUSED+68, NPIUSED+75, NPIUSED+79, NPIUSED+83, NPIUSED+87
    XUSGLOB NPIUSED+23~, NPIUSED+54*, NPIUSED+70, NPIUSED+75, NPIUSED+79, NPIUSED+83, NPIUSED+87, MSGOLD~, MSGOLD+4, MSGOLD+8
    , MSGOLD+16, MSGOLD+23, MSGNEW~, MSGNEW+3, MSGNEW+8, MSGNEW+12
    XUSIEN NPIUSED~, NPIUSED+38*, NPIUSED+57, GETPT~, GETPT+2, GETPER+1~, GETPER+2*, GETPER+3, GETPER+5, GETPER+8
    , MSGOLD~, MSGOLD+8, MSGOLD+16, MSGOLD+23, MSGNEW~, MSGNEW+8, MSGNEW+12
    XUSNEWPT NPIUSED+23~, NPIUSED+40*
    XUSNPI NPIUSED~, NPIUSED+70, NPIUSED+75, NPIUSED+79, NPIUSED+83, NPIUSED+87, MSGOLD~, MSGOLD+7, MSGOLD+16, MSGOLD+21
    , MSGOLD+22, MSGNEW~, MSGNEW+7, MSGNEW+11
    XUSOAI NPIUSED+24~, NPIUSED+47*, NPIUSED+57, NPIUSED+70, NPIUSED+87, NPIUSED+88, MSGOLD~, MSGOLD+9, MSGNEW~, MSGNEW+6
    , MSGNEW+14
    XUSOIEN NPIUSED+24~, NPIUSED+46*, NPIUSED+57, NPIUSED+63, NPIUSED+70, NPIUSED+75, NPIUSED+79, NPIUSED+83, NPIUSED+87
    XUSOPT NPIUSED+24~, NPIUSED+59*, NPIUSED+61*, NPIUSED+62*, NPIUSED+63*, NPIUSED+70, NPIUSED+75, NPIUSED+79, NPIUSED+83, NPIUSED+87
    , MSGOLD~, MSGOLD+6, MSGNEW~, MSGNEW+5
    XUSOQID NPIUSED+24~, NPIUSED+45*, NPIUSED+49, NPIUSED+52, NPIUSED+57, NPIUSED+61, NPIUSED+62, NPIUSED+63, NPIUSED+69
    XUSOU NPIUSED+24~, NPIUSED+43*, NPIUSED+45, NPIUSED+46, NPIUSED+47, NPIUSED+74, NPIUSED+78
    XUSOWNKY GETPER~, MSGOLD+3~, MSGOLD+28
    XUSOWNKY( GETPER+8*, MSGOLD+30
    XUSQID NPIUSED~, NPIUSED+35, NPIUSED+36, NPIUSED+57, NPIUSED+74, NPIUSED+82
    XUSQIL NPIUSED~, NPIUSED+27, NPIUSED+29, NPIUSED+43
    XUSRSLT NPIUSED~, NPIUSED+25!, NPIUSED+70, NPIUSED+75, NPIUSED+79, NPIUSED+83, NPIUSED+87, MSGOLD~, MSGNEW~
    XUSRSLT( MSGOLD+7*, MSGOLD+8*, MSGOLD+9*, MSGOLD+10*, MSGNEW+7*, MSGNEW+8*, MSGNEW+11*, MSGNEW+12*, MSGNEW+15*
    XUSRSLT("X" MSGOLD+15, MSGOLD+16*, MSGOLD+17*, MSGOLD+18*, MSGOLD+19*
    XUSRSLT("XMSG" MSGOLD+20, MSGOLD+21*, MSGOLD+22*, MSGOLD+23*, MSGOLD+24*, MSGOLD+25*, MSGOLD+26*
    XUSRSLT("XRCPT" MSGOLD+29, MSGOLD+30*
    XUSRSLT(1 NPIUSED+30*, NPIUSED+36*, NPIUSED+52*
    XUSRSLT(2 NPIUSED+31*
    XUSWARN NPIUSED+23~, NPIUSED+42*, NPIUSED+71*, NPIUSED+89*, NPIUSED+92
    ZZ NPIUSED+23~, NPIUSED+33, NPIUSED+34*, NPIUSED+35*, NPIUSED+36, NPIUSED+49*, NPIUSED+50, NPIUSED+54
    ZZ( NPIUSED+35, NPIUSED+49, NPIUSED+54
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  All