Routine: XUSNPIED

Information

XUSNPIED ;FO-OAKLAND/JLI - DATA ENTRY FOR INITIAL NPI VALUES ;6/3/08 17:19

Package	Total	Call Graph
Kernel	8	$$GET^XUA4A72 $$NS^XUAF4 $$KSP^XUPARAM $$PROD^XUPROD $$CHKGLOB^XUSNPIDA (CBOQUEUE,CLERXMPT,POSTINIT,SIGNON)^XUSNPIE1 ($$ALIGNRGT,$$GETDATA,PRINTOPT)^XUSNPIE2 EDITNPI^XUSNPIE3
VA FileMan	3	^DIC (,FILE)^DIE $$GET1^DIQ
MailMan	1	^XMD

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 12

Package	Total	Caller Graph
Kernel	12	XU8P420 XUS NPI CBO LIST XUS NPI ENTER NPI FOR PROVIDER XUS NPI EXEMPT PROVIDER XUS NPI LOCAL REPORTS XUS NPI PROVIDER SELF ENTRY XUS NPI SIGNON CHECK XUSNPIE1 XUSNPIE2 XUSNPIE3 XUSNPIUT ^DIC(19

Entry Points

Name	Comments	DBIA/ICR reference
SIGNON	; run at user sign-on to display message if NPI value is needed.
CLEREDIT	; Input editing of NPI value for clerical staff - ask provider
USEREDIT	; Entry point for provider to enter own data
EDITNPI(IEN)	;
EDRLNPI(IEN)	; Edit AUTHORIZES RELEASE OF NPI field ; NOTE: * This field is no longer being used, and should always be set to YES 05/13/08 tkw*
CLERXMPT	;
CHKGLOB()	; returns global location of TAXONOMY values also rebuilds if they are missing
DOUSER(XUUSER,XUGLOB)	; check user for needing an NPI status value
CBOLIST	; list ^ delimited output to CBO exchange mail group.
PRINTOPT	;
GETDATA(OPTION,XUSSORT,XUSDIV)	; get data for reports for providers
CHEKNPI(IEN)	; returns whether status is Needs, will check and update if not set
NEEDSNPI(IEN)	; returns whether current status is N
HASNPI(IEN)	; returns whether current status is D (Done)
EXMPTNPI(IEN)	; returns whether current status is E (Exempt)
NPISTATS(IEN)	; returns one letter status indicator
GETNPI(IEN)	; returns current NPI value
GETTAXON(IEN,DESCRREF)	; returns Taxonomy value (X12) and sets description in DESCRREF, otherwise -1
CHKTAXON(IEN,TAXONOMY)	; checks whether taxonomy value (X12) is in list of billable otherwise 0-1
DATE10(DATE)	; returns date in mm/dd/yyyyy format
POSTINIT	; runs post init
CBOQUEUE	; queues CBO List to run on first day of month
ALIGNRGT(TEXT,WIDTH)	; align text right in a specified width

External References

Name	Field # of Occurrence
^DIC	CLEREDIT+2
^DIE	EDRLNPI+3
FILE^DIE	DOUSER+9, CHEKNPI+3, CHEKNPI+4
$$GET1^DIQ	DOUSER+3, DOUSER+6, DOUSER+7, CHEKNPI+2, NPISTATS+2, NPISTATS+4, GETNPI+1, GETTAXON+4
^XMD	CBOLIST+25
$$GET^XUA4A72	GETTAXON+4
$$NS^XUAF4	CBOLIST+6
$$KSP^XUPARAM	CBOLIST+6
$$PROD^XUPROD	CBOLIST+3
$$CHKGLOB^XUSNPIDA	CHKGLOB+1
CBOQUEUE^XUSNPIE1	CBOQUEUE+1
CLERXMPT^XUSNPIE1	CLERXMPT+1
POSTINIT^XUSNPIE1	POSTINIT+1
SIGNON^XUSNPIE1	SIGNON+1
$$ALIGNRGT^XUSNPIE2	ALIGNRGT+1
$$GETDATA^XUSNPIE2	GETDATA+1
PRINTOPT^XUSNPIE2	PRINTOPT+1
EDITNPI^XUSNPIE3	EDITNPI+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$C(7),"Please see your local NPI facilitator to add the NPI",! Line Location: USEREDIT+1
Routine Call	DIC Line Location: CLEREDIT+2
Routine Call	DIE Line Location: EDRLNPI+3
Routine Call	DIE Line Location: DOUSER+9 CHEKNPI+3 CHEKNPI+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TMP($J	CBOLIST+11
^VA(200 - [#200]	EDRLNPI+2, DOUSER+4
^XTV(8989.3 - [#8989.3]	CBOLIST+5

Label References

Name	Line Occurrences
$$CHEKNPI	NPISTATS+3
$$CHKGLOB	CHKTAXON+3
$$CHKTAXON	CHEKNPI+4
$$GETDATA	CBOLIST+10
$$GETTAXON	CHKTAXON+2
$$NPISTATS	USEREDIT+1, CBOLIST+16, NEEDSNPI+1, HASNPI+1, EXMPTNPI+1
EDITNPI	CLEREDIT+2, USEREDIT+2

Naked Globals

Name	Field # of Occurrence
^(	DOUSER+4, CBOLIST+15

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADDRESS	CBOLIST+1~, CBOLIST+7*, CBOLIST+24
CODE	DOUSER+1~, DOUSER+6*
COUNT	CBOLIST+1~, CBOLIST+11, CBOLIST+12, CBOLIST+17, CBOLIST+20
D0	DOUSER+1~, DOUSER+4*, DOUSER+5, DOUSER+6
DA	EDRLNPI+3~*
DATE	CBOLIST+1~, CBOLIST+4*, CBOLIST+17, CBOLIST+24, DATE10~, DATE10+1
DATEVAL	CLEREDIT+1~
DESCRIP	CLEREDIT+1~, CHKTAXON+1~, CHKTAXON+2
DESCRREF	GETTAXON~, GETTAXON+2, GETTAXON+4, GETTAXON+5*
DIC	CLEREDIT+1~, CLEREDIT+2*
DIC("A"	CLEREDIT+2*
DIC(0	CLEREDIT+2*
DIE	EDRLNPI+3~*
DOMAIN	CBOLIST+1~, CBOLIST+5*
DONE	CLEREDIT+1~
DR	EDRLNPI+3~*
DT	CBOLIST+4
DUZ	USEREDIT+1, USEREDIT+2
EXPIRATN	DOUSER+1~, DOUSER+5*
FDA	CHEKNPI+1~, CHEKNPI+4!
FDA(200	CHEKNPI+3, CHEKNPI+4
GLOBLOC	CBOLIST+1~, CBOLIST+10, CBOLIST+13, CBOLIST+14, CBOLIST+15
GLOBOUT	CBOLIST+1~, CBOLIST+11*, CBOLIST+12, CBOLIST+17, CBOLIST+20, CBOLIST+23
I	DOUSER+1~, DOUSER+7*, GETTAXON+1~
IEN	CLEREDIT+1~, CLEREDIT+2, EDITNPI~, EDITNPI+1, EDRLNPI~, EDRLNPI+2, EDRLNPI+3, CBOLIST+2~, CBOLIST+14, CBOLIST+15 , CBOLIST+16, CHEKNPI~, CHEKNPI+2, CHEKNPI+3, CHEKNPI+4, NEEDSNPI~, NEEDSNPI+1, HASNPI~, HASNPI+1, EXMPTNPI~ , EXMPTNPI+1, NPISTATS~, NPISTATS+2, NPISTATS+3, NPISTATS+4, GETNPI~, GETNPI+1, GETTAXON~, GETTAXON+4, CHKTAXON~ , CHKTAXON+2
IENS	CLEREDIT+1~
NPI	CBOLIST+2~, CBOLIST+15*, CBOLIST+17
NPIFLD	DOUSER+1~, DOUSER+2*, DOUSER+7
NPISTATS	DOUSER+1~, DOUSER+2*, DOUSER+3, DOUSER+8
NPISUBFL	DOUSER+1~, DOUSER+2*, DOUSER+7
NPIVAL	DOUSER+7~*
NPIVAL1	CLEREDIT+1~
NPIVAL2	CLEREDIT+1~
OPTION	CBOLIST+2~, CBOLIST+9*, CBOLIST+10, GETDATA~, GETDATA+1
PCLASS	DOUSER+1~, DOUSER+4*
POINTER	GETTAXON+1~, GETTAXON+4*
PROVNAME	CLEREDIT+1~, CBOLIST+2~, CBOLIST+14*, CBOLIST+15, CBOLIST+17
PVAL	DOUSER+1~, DOUSER+6*
STATION	CBOLIST+2~, CBOLIST+6, CBOLIST+7, CBOLIST+8, CBOLIST+17, CBOLIST+24
STATNAME	CBOLIST+1~
STATUS	CBOLIST+2~, CBOLIST+16*, CBOLIST+17
TAXDESCR	CBOLIST+2~, CBOLIST+15*, CBOLIST+17
TAXON	GETTAXON+1~, GETTAXON+2, GETTAXON+4, GETTAXON+5*, GETTAXON+6
TAXONOMY	CBOLIST+2~, CBOLIST+15, CBOLIST+17, CHKTAXON~, CHKTAXON+2, CHKTAXON+4
TEXT	ALIGNRGT~, ALIGNRGT+1
U	EDRLNPI+2, DOUSER+5, DOUSER+6, CBOLIST+5, CBOLIST+7, CBOLIST+8, CBOLIST+15, CBOLIST+17
VAL	NPISTATS+1~, NPISTATS+2, NPISTATS+3
VALUE	CHEKNPI+1~, CHEKNPI+2, CHEKNPI+3, CHEKNPI+4*, CHEKNPI+5
WIDTH	ALIGNRGT~, ALIGNRGT+1
XMDUZ	CBOLIST+22~, CBOLIST+23*
XMSUB	CBOLIST+22~, CBOLIST+24*
XMTEXT	CBOLIST+22~, CBOLIST+23*
XMY	CBOLIST+22~
XMY("VHACONPINPF@DOMAIN.EXT"	CBOLIST+23*
XUDONE	DOUSER+1~, DOUSER+4, DOUSER+6
XUFDA	DOUSER+8~
XUFDA(200	DOUSER+8*
XUGLOB	DOUSER~, DOUSER+6
XUSDIV	GETDATA~, GETDATA+1
XUSGLOB	CHKTAXON+1~, CHKTAXON+3*, CHKTAXON+4
XUSSORT	GETDATA~, GETDATA+1
XUUSER	DOUSER~, DOUSER+3, DOUSER+4, DOUSER+7, DOUSER+8
XUVALUE	DOUSER+1~, DOUSER+7*, DOUSER+8
XX	CLEREDIT+1~
Y	CLEREDIT+1~, CLEREDIT+2

Customize PDF page

Package: Kernel