Routine: XUSNPIE2

Package	Total	Call Graph
Kernel	9	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD ($$FMTE,$$NOW)^XLFDT $$NS^XUAF4 $$KSP^XUPARAM $$ACTIVE^XUSER SET^XUSNPIE1 ($$CHEKNPI,$$EXMPTNPI,$$GETNPI,$$GETTAXON,$$HASNPI,$$NEEDSNPI,$$NPISTATS)^XUSNPIED
VA Fileman	4	^DIC FILE^DIE $$GET1^DIQ ^DIR

Package	Total	Caller Graph
Kernel	3	XUSNPIE1 XUSNPIE3 XUSNPIED

Name	Comments	DBIA/ICR reference
DELETNPI(IEN,OIEN,ODATEVAL)	;
CLERXMPT	; edit entry indicating whether a provider is exempt from needing an NPI
HEADER(OPTION,DATETIME,PAGNOREF,LINNOREF,XUSDIV,XUSDIVNM,XUSSORT,SERVSECT,XUSRESO,XUSER)	; ; ZEXCEPT: IOF,IOST KERNEL IO VARIABLES ; ZEXCEPT: DIRUT,DTOUT NEWED IN CALLING PRNTPROV - INDICATE QUIT TO PRNTPROV
CHKOLD1(IEN)	; check for earlier value, and activate if present
PRINTOPT	;
DQ	; entry point for queued print job
ALIGNRGT(TEXT,WIDTH)	; align text right in a specified width
GETDATA(OPTION,XUSSORT,XUSDIV,XUSRESO,XUSER)	; get data for reports for providers
PRNTPROV(OPTION,XUSSORT,XUSDIV,PRNTFRMT,XUSRESO,XUSER)	; ; PRINT PROVIDER INFO

Name	Field # of Occurrence
^%ZIS	PRINTOPT+22
HOME^%ZIS	PRINTOPT+26
^%ZISC	DQ+2
^%ZTLOAD	PRINTOPT+26
^DIC	CLERXMPT+2
FILE^DIE	DELETNPI+2, DELETNPI+7, CLERXMPT+7, CLERXMPT+13
$$GET1^DIQ	PRNTPROV+25, GETDATA+21, GETDATA+30, GETDATA+33, DELETNPI+5, DELETNPI+6
^DIR	PRINTOPT+4, PRINTOPT+8, PRINTOPT+12, PRINTOPT+15, PRINTOPT+17, PRINTOPT+18, HEADER+7, CLERXMPT+6, CLERXMPT+11
$$FMTE^XLFDT	HEADER+11
$$NOW^XLFDT	PRNTPROV+14
$$NS^XUAF4	GETDATA+10
$$KSP^XUPARAM	GETDATA+10
$$ACTIVE^XUSER	GETDATA+14
SET^XUSNPIE1	CHKOLD1+5
$$CHEKNPI^XUSNPIED	GETDATA+19, CLERXMPT+4
$$EXMPTNPI^XUSNPIED	GETDATA+27, CLERXMPT+4, CLERXMPT+5, CLERXMPT+14
$$GETNPI^XUSNPIED	GETDATA+21
$$GETTAXON^XUSNPIED	GETDATA+21
$$HASNPI^XUSNPIED	CLERXMPT+3
$$NEEDSNPI^XUSNPIED	CLERXMPT+8
$$NPISTATS^XUSNPIED	GETDATA+19

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Select one of the following:",!!,?11,"1",?21,"All providers",!,?11,"2",?21,"All providers without NPI numbers",! Line Location: PRINTOPT+3
Function Call: WRITE	Prompt: !!,"Select one of the following:",!!,?11,"1",?21,"ACTIVE users only",!,?11,"2",?21,"ACTIVE and DISUSERed users",! Line Location: PRINTOPT+11
Function Call: WRITE	Prompt: !!,">>> Report processing time is approximately 10 minutes." Line Location: PRINTOPT+19
Function Call: WRITE	Prompt: !," Recommend text output be queued to a network printer." Line Location: PRINTOPT+20
Function Call: WRITE	Prompt: ! Line Location: PRINTOPT+21
Function Call: WRITE	Prompt: !,"PROVIDER_NAME^LAST4^IEN^NPI^TAXONOMY_CODE^TAXONOMY DESCRIPTION"_$S(XUSDIV:"^DIVISION",1:"")_$S(XUSSORT:"^SERVICE/SECTION",1:"") Line Location: PRNTPROV+16
Function Call: WRITE	Prompt: !,PROVNAME,?33,$$ALIGNRGT(IEN,11),?49,NPI,?65,XUSDIS Condition for execution: NCOUNT=1 Line Location: PRNTPROV+24
Function Call: WRITE	Prompt: !,?6,TAXONOMY," ",TAXDESCR Line Location: PRNTPROV+24
Function Call: WRITE	Prompt: !,PROVNAME_U_$E($$GET1^DIQ(200,IEN_",",9),6,9)_U_IEN_U_NPI_U_TAXONOMY_U_TAXDESCR_$S(XUSDIV:U_XUSDIVNM,1:"")_$S(XUSSORT:U_SERVSECT,1:"") Line Location: PRNTPROV+25
Function Call: WRITE	Prompt: !,?20,"* * * N O D A T A F O U N D * * *",!! Line Location: PRNTPROV+32
Function Call: WRITE	Prompt: !!,"Total "_TOTTYP_":",?43,CNTTOTAL,!,TOTTYP_" with an NPI:",?43,CNTDONE,!,"EXEMPT "_TOTTYP_":",?43,CNTEXMPT,!,TOTTYP_" Still Needing an NPI:",?43,CNTNONE Line Location: PRNTPROV+35
Function Call: WRITE	Prompt: !!,MULTDIV," Providers were repeated a total of ",MULTDIVC," times",!," due to listing under multiple divisions" Line Location: PRNTPROV+36
Function Call: WRITE	Prompt: !!,?27,"* End of Report *" Line Location: PRNTPROV+38
Function Call: WRITE	Prompt: @IOF Line Location: HEADER+8
Function Call: WRITE	Prompt: "Active Provider Report ("_$S(XUSRESO="P":"no residents)",XUSRESO="R":"residents only)",1:"includes residents)") Line Location: HEADER+10
Function Call: WRITE	Prompt: ?48,$$FMTE^XLFDT(DATETIME)," Page: ",PAGNOREF Line Location: HEADER+11
Function Call: WRITE	Prompt: !,"Report Option: Provider List Active ",$S(XUSER=2:"and Disuser ",1:""),"Providers",$S(OPTION=2:" Without NPI Numbers",1:"") Line Location: HEADER+12
Function Call: WRITE	Prompt: !," Taxonomy" Line Location: HEADER+14
Function Call: WRITE	Prompt: !,"--------------------------------------------------------------------------------" Line Location: HEADER+15
Function Call: WRITE	Prompt: !,"DIVISION: ",XUSDIVNM," " Line Location: HEADER+17
Function Call: WRITE	Prompt: LINNOREF=LINNOREF+1 Condition for execution: 'XUSDIV ! W "SERVICE/SECTION: ",SERVSECT S:'XUSDIV Line Location: HEADER+18
Function Call: WRITE	Prompt: !,"This Provider already has an NPI value. Nothing to do." Line Location: CLERXMPT+3
Function Call: WRITE	Prompt: !,"This Provider does not appear to need an NPI or Exemption." Line Location: CLERXMPT+4
Function Call: WRITE	Prompt: !,$S($$NEEDSNPI^XUSNPIED(IEN):"File updated",1:"Ecountered a problem updating file, status NOT set to NEEDS an NPI") Line Location: CLERXMPT+8
Function Call: WRITE	Prompt: !,$S($$EXMPTNPI^XUSNPIED(IEN):"File updated",1:"Ecountered a problem updating file, status NOT set to EXEMPT") Line Location: CLERXMPT+14
Routine Call	%ZIS Line Location: PRINTOPT+26
Routine Call	DIE Line Location: DELETNPI+2 DELETNPI+7 CLERXMPT+7 CLERXMPT+13
Routine Call	DIR Line Location: PRINTOPT+4 PRINTOPT+8 PRINTOPT+12 PRINTOPT+15 PRINTOPT+17 PRINTOPT+18 HEADER+7 CLERXMPT+6 CLERXMPT+11
Routine Call	%ZIS Line Location: PRINTOPT+22
Routine Call	DIC Line Location: CLERXMPT+2

Name	Line Occurrences (* Changed, ! Killed)
^TMP($J	GETDATA+8
^VA(200 - [#200]	GETDATA+12, GETDATA+33, CHKOLD1+2, CHKOLD1+3, DELETNPI+3

Name	Line Occurrences
$$ALIGNRGT	PRNTPROV+24
$$GETDATA	PRNTPROV+15
CHKOLD1	CHKOLD1+2
DELETNPI	CHKOLD1+4
HEADER	PRNTPROV+19, PRNTPROV+27
PRNTPROV	DQ+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	PRINTOPT+1~, PRINTOPT+22*
CNTCLEAN	GETDATA+2~, GETDATA+7*, GETDATA+41
CNTDONE	PRNTPROV+11~, PRNTPROV+12, PRNTPROV+35, GETDATA+28, GETDATA+41!
CNTEXMPT	PRNTPROV+11~, PRNTPROV+12, PRNTPROV+35, GETDATA+28, GETDATA+41!
CNTNONE	PRNTPROV+11~, PRNTPROV+12, PRNTPROV+35, GETDATA+28, GETDATA+41!
CNTTOTAL	PRNTPROV+11~, PRNTPROV+12, PRNTPROV+35, GETDATA+7, GETDATA+28, GETDATA+41!
DATE	CHKOLD1+1~, CHKOLD1+3*, CHKOLD1+4
DATETIME	PRNTPROV+11~, PRNTPROV+14*, PRNTPROV+19, PRNTPROV+27, HEADER~, HEADER+11
DIC	CLERXMPT+1~, CLERXMPT+2*
DIC("A"	CLERXMPT+2*
DIC(0	CLERXMPT+2*
DIR	PRINTOPT+1~, PRINTOPT+4!, PRINTOPT+8!, PRINTOPT+12!, PRINTOPT+15!, PRINTOPT+17!, PRINTOPT+18!, HEADER+3~, CLERXMPT+1~
DIR("A"	PRINTOPT+4, PRINTOPT+7, PRINTOPT+12, PRINTOPT+15, PRINTOPT+17, PRINTOPT+18, CLERXMPT+6, CLERXMPT+11
DIR("B"	PRINTOPT+4, PRINTOPT+7, PRINTOPT+12, PRINTOPT+15, PRINTOPT+18*
DIR(0	PRINTOPT+4, PRINTOPT+6, PRINTOPT+12, PRINTOPT+15, PRINTOPT+17, PRINTOPT+18, HEADER+7, CLERXMPT+6, CLERXMPT+11*
DIRUT	PRNTPROV+10~, PRNTPROV+17, PRNTPROV+18, PRNTPROV+19, PRNTPROV+20, PRNTPROV+27, PRNTPROV+31, HEADER+7*
DTOUT	PRNTPROV+10~, PRNTPROV+17, PRNTPROV+18, PRNTPROV+19, PRNTPROV+20, PRNTPROV+27, PRNTPROV+31
FDA	CLERXMPT+1~
FDA(200	CLERXMPT+7, CLERXMPT+13
GLOBLOC	PRNTPROV+11~, PRNTPROV+17, PRNTPROV+18, PRNTPROV+20, PRNTPROV+22, PRNTPROV+32
GLOBLOC1	PRNTPROV+11~, PRNTPROV+15*, PRNTPROV+17, PRNTPROV+18
GLOBVALU	PRNTPROV+11~, PRNTPROV+22*, PRNTPROV+23
IEN	PRNTPROV+11~, PRNTPROV+20, PRNTPROV+22, PRNTPROV+24, PRNTPROV+25, CHKOLD1~, CHKOLD1+2, CHKOLD1+3, CHKOLD1+4, CHKOLD1+5 , DELETNPI~, DELETNPI+2, DELETNPI+3, DELETNPI+5, DELETNPI+6, CLERXMPT+1~, CLERXMPT+2, CLERXMPT+3, CLERXMPT+4, CLERXMPT+5 , CLERXMPT+7, CLERXMPT+8, CLERXMPT+13, CLERXMPT+14
IEN1	CHKOLD1+1~, CHKOLD1+2*, CHKOLD1+3, CHKOLD1+4
IO	DQ+1, DQ+2
IO("Q"	PRINTOPT+2!, PRINTOPT+23
IOF	HEADER+8
ION	PRINTOPT+1~, PRINTOPT+25
IOSL	PRNTPROV+27
IOST	HEADER+7, HEADER+9
LINENUM	PRNTPROV+10~, PRNTPROV+13, PRNTPROV+19, PRNTPROV+27
LINNOREF	HEADER~, HEADER+16, HEADER+17, HEADER+18*
MULTDIV	PRNTPROV+11~, PRNTPROV+36, GETDATA+34*
MULTDIVC	PRNTPROV+11~, PRNTPROV+36, GETDATA+34*
NCOUNT	PRNTPROV+11~, PRNTPROV+21, PRNTPROV+24, PRNTPROV+27
NPI	PRNTPROV+11~, PRNTPROV+23, PRNTPROV+24, PRNTPROV+25, GETDATA+1~, GETDATA+21, GETDATA+27, GETDATA+28, GETDATA+37, CHKOLD1+1~ , CHKOLD1+3, CHKOLD1+5
ODATEVAL	DELETNPI~, DELETNPI+2
OIEN	DELETNPI~, DELETNPI+2
OPTION	PRINTOPT+1~, PRINTOPT+4*, PRINTOPT+25, DQ+1, PRNTPROV~, PRNTPROV+15, PRNTPROV+19, PRNTPROV+27, HEADER~, HEADER+12 , HEADER+13, GETDATA~, GETDATA+23, GETDATA+29
PAGENUM	PRNTPROV+10~, PRNTPROV+13*, PRNTPROV+19, PRNTPROV+27
PAGNOREF	HEADER~, HEADER+4*, HEADER+7, HEADER+8, HEADER+11
>> POP	PRINTOPT+22
PRNTFRMT	PRINTOPT+1~, PRINTOPT+16, PRINTOPT+17, DQ+1, PRNTPROV~, PRNTPROV+16, PRNTPROV+19, PRNTPROV+24, PRNTPROV+25, PRNTPROV+27 , PRNTPROV+31
PROVNAME	PRNTPROV+10~, PRNTPROV+20, PRNTPROV+22, PRNTPROV+24, PRNTPROV+25, PRNTPROV+32, GETDATA+1~, GETDATA+21*, GETDATA+37, GETDATA+38
RESULT	ALIGNRGT+1~, ALIGNRGT+2*, ALIGNRGT+3
SERVSECT	PRNTPROV+10~, PRNTPROV+18*, PRNTPROV+19, PRNTPROV+25, PRNTPROV+27, HEADER~, HEADER+18
STATUS	CHKOLD1+1~, CHKOLD1+2, CHKOLD1+3*, CHKOLD1+4, CHKOLD1+5
TAXDESCR	PRNTPROV+10~, PRNTPROV+22, PRNTPROV+24, PRNTPROV+25, GETDATA+1~, GETDATA+21, GETDATA+37, GETDATA+38
TAXONOMY	PRNTPROV+10~, PRNTPROV+23, PRNTPROV+24, PRNTPROV+25, GETDATA+1~, GETDATA+21, GETDATA+24, GETDATA+25, GETDATA+37
TEMPVAL	HEADER+3~
TEXT	ALIGNRGT~, ALIGNRGT+2
TOTTYP	PRNTPROV+34~*, PRNTPROV+35
U	PRNTPROV+23, PRNTPROV+25, GETDATA+10, GETDATA+15, GETDATA+16, GETDATA+17, GETDATA+37, CHKOLD1+3
WIDTH	ALIGNRGT~, ALIGNRGT+2
X	HEADER+3~, GETDATA+2~, GETDATA+37*, GETDATA+38
XUFDA	CHKOLD1+1~, DELETNPI+1~, DELETNPI+4~, DELETNPI+7
XUFDA(	DELETNPI+2*
XUFDA(200	DELETNPI+5, DELETNPI+6
XUSACTV	GETDATA+1~, GETDATA+14*, GETDATA+15, GETDATA+16, GETDATA+17
XUSDEFLT	GETDATA+1~, GETDATA+9, GETDATA+10, GETDATA+32
XUSDIS	PRNTPROV+11~, PRNTPROV+12, PRNTPROV+23, PRNTPROV+24, GETDATA+2~, GETDATA+5, GETDATA+17, GETDATA+37
XUSDIV	PRINTOPT+1~, PRINTOPT+15*, PRINTOPT+17, PRINTOPT+18, DQ+1, PRNTPROV~, PRNTPROV+15, PRNTPROV+16, PRNTPROV+19, PRNTPROV+25 , PRNTPROV+27, HEADER~, HEADER+17, HEADER+18, GETDATA~, GETDATA+9, GETDATA+10, GETDATA+31
XUSDIVCN	GETDATA+1~, GETDATA+32, GETDATA+33, GETDATA+34
XUSDIVN	GETDATA+1~, GETDATA+33, GETDATA+36, GETDATA+38
XUSDIVNM	PRNTPROV+11~, PRNTPROV+17*, PRNTPROV+18, PRNTPROV+19, PRNTPROV+25, PRNTPROV+27, HEADER~, HEADER+17, GETDATA+1~, GETDATA+32!
XUSDIVNM(	GETDATA+33*, GETDATA+36, GETDATA+38
XUSDIVNM(1	GETDATA+9, GETDATA+32
XUSER	PRINTOPT+1~, PRINTOPT+12, DQ+1, PRNTPROV~, PRNTPROV+9, PRNTPROV+15, PRNTPROV+19, PRNTPROV+27, HEADER~, HEADER+5* , HEADER+12, HEADER+13, GETDATA~, GETDATA+4*, GETDATA+16
XUSGLOB	GETDATA+1~, GETDATA+8*, GETDATA+38, GETDATA+42
XUSIEN	GETDATA+2~, GETDATA+12*, GETDATA+14, GETDATA+19, GETDATA+21, GETDATA+27, GETDATA+30, GETDATA+33, GETDATA+37, GETDATA+38
XUSRESO	PRINTOPT+1~, PRINTOPT+5, PRINTOPT+9, DQ+1, PRNTPROV~, PRNTPROV+15, PRNTPROV+19, PRNTPROV+27, PRNTPROV+34, HEADER~ , HEADER+10, GETDATA~, GETDATA+3*, GETDATA+23, GETDATA+24, GETDATA+25
XUSSERVC	GETDATA+2~, GETDATA+11, GETDATA+30, GETDATA+38
XUSSKIP	GETDATA+1~, GETDATA+23, GETDATA+24, GETDATA+25*
XUSSORT	PRINTOPT+1~, PRINTOPT+18*, DQ+1, PRNTPROV~, PRNTPROV+15, PRNTPROV+16, PRNTPROV+19, PRNTPROV+25, PRNTPROV+27, HEADER~ , HEADER+18, GETDATA~, GETDATA+11, GETDATA+30
XUSVAL	GETDATA+2~, GETDATA+19*, GETDATA+20, GETDATA+29
Y	PRINTOPT+1~, PRINTOPT+4, PRINTOPT+8, PRINTOPT+9, PRINTOPT+12, PRINTOPT+15, PRINTOPT+17, PRINTOPT+18, HEADER+3~, HEADER+7 , CLERXMPT+1~, CLERXMPT+2, CLERXMPT+6, CLERXMPT+11
ZTDESC	PRINTOPT+1~, PRINTOPT+25*
ZTIO	PRINTOPT+1~, PRINTOPT+25*
ZTRTN	PRINTOPT+1~, PRINTOPT+25*
ZTSAVE	PRINTOPT+1~
ZTSAVE("OPTION"	PRINTOPT+24*
ZTSAVE("PRNTFRMT"	PRINTOPT+24*
ZTSAVE("XUSDIV"	PRINTOPT+24*
ZTSAVE("XUSER"	PRINTOPT+24*
ZTSAVE("XUSRESO"	PRINTOPT+24*
ZTSAVE("XUSSORT"	PRINTOPT+24*
ZTSK	PRINTOPT+1~, PRINTOPT+26

Customize PDF page

Package: Kernel

Routine: XUSNPIE2

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: