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

Package: Kernel

Routine: XUSNPIE2


Information

XUSNPIE2 ;FO-OAKLAND/JLI - DATA ENTRY FOR INITIAL NPI VALUES ; Dec 16, 2021@08:24:28

Source Information

Source file <XUSNPIE2.m>

Call Graph

Call Graph

Call Graph Total: 13

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  

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 XUSNPIE1  XUSNPIE3  XUSNPIED  

Entry Points

Name Comments DBIA/ICR reference
PRINTOPT ;
DQ ; entry point for queued print job
PRNTPROV(OPTION,XUSSORT,XUSDIV,PRNTFRMT,XUSRESO,XUSER) ;
; PRINT PROVIDER INFO
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
GETDATA(OPTION,XUSSORT,XUSDIV,XUSRESO,XUSER) ; get data for reports for providers
ALIGNRGT(TEXT,WIDTH) ; align text right in a specified width
CHKOLD1(IEN) ; check for earlier value, and activate if present
DELETNPI(IEN,OIEN,ODATEVAL) ;
CLERXMPT ; edit entry indicating whether a provider is exempt from needing an NPI

External References

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+26, GETDATA+23, GETDATA+33, GETDATA+36, 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+15
SET^XUSNPIE1 CHKOLD1+5
$$CHEKNPI^XUSNPIED GETDATA+20, CLERXMPT+4
$$EXMPTNPI^XUSNPIED GETDATA+29, CLERXMPT+4, CLERXMPT+5, CLERXMPT+14
$$GETNPI^XUSNPIED GETDATA+21, GETDATA+23
$$GETTAXON^XUSNPIED GETDATA+23
$$HASNPI^XUSNPIED CLERXMPT+3
$$NEEDSNPI^XUSNPIED CLERXMPT+8
$$NPISTATS^XUSNPIED GETDATA+20, GETDATA+21

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+17
Function Call: WRITE
  • Prompt: !,PROVNAME,?33,$$ALIGNRGT(IEN,11),?49,NPI,?65,XUSDIS
  • Condition for execution: NCOUNT=1
  • Line Location: PRNTPROV+25
Function Call: WRITE
  • Prompt: !,?6,TAXONOMY," ",TAXDESCR
  • Line Location: PRNTPROV+25
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+26
Function Call: WRITE
  • Prompt: !,?20,"* * * N O D A T A F O U N D * * *",!!
  • Line Location: PRNTPROV+33
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+36
Function Call: WRITE
  • Prompt: !!,MULTDIV," Providers were repeated a total of ",MULTDIVC," times",!," due to listing under multiple divisions"
  • Line Location: PRNTPROV+37
Function Call: WRITE
  • Prompt: !!,?27,"*** End of Report ***"
  • Line Location: PRNTPROV+39
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+22
Routine Call
  • %ZIS
  • Line Location:
    • PRINTOPT+26
Routine Call
  • DIC
  • Line Location:
    • CLERXMPT+2
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

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
$$ALIGNRGT PRNTPROV+25
$$GETDATA PRNTPROV+16
CHKOLD1 CHKOLD1+2
DELETNPI CHKOLD1+4
HEADER PRNTPROV+20, PRNTPROV+28
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+44
CNTDONE PRNTPROV+11~, PRNTPROV+12*, PRNTPROV+36, GETDATA+31*, GETDATA+44!
CNTEXMPT PRNTPROV+11~, PRNTPROV+12*, PRNTPROV+36, GETDATA+31*, GETDATA+44!
CNTNONE PRNTPROV+11~, PRNTPROV+12*, PRNTPROV+36, GETDATA+31*, GETDATA+44!
CNTTOTAL PRNTPROV+11~, PRNTPROV+12*, PRNTPROV+36, GETDATA+7, GETDATA+31*, GETDATA+44!
DATE CHKOLD1+1~, CHKOLD1+3*, CHKOLD1+4
DATETIME PRNTPROV+11~, PRNTPROV+14*, PRNTPROV+20, PRNTPROV+28, 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+18, PRNTPROV+19, PRNTPROV+20, PRNTPROV+21, PRNTPROV+28, PRNTPROV+32, HEADER+7*
DTOUT PRNTPROV+10~, PRNTPROV+18, PRNTPROV+19, PRNTPROV+20, PRNTPROV+21, PRNTPROV+28, PRNTPROV+32
FDA CLERXMPT+1~
FDA(200 CLERXMPT+7*, CLERXMPT+13*
GLOBLOC PRNTPROV+11~, PRNTPROV+18*, PRNTPROV+19*, PRNTPROV+21, PRNTPROV+23, PRNTPROV+33
GLOBLOC1 PRNTPROV+11~, PRNTPROV+16*, PRNTPROV+18, PRNTPROV+19
GLOBVALU PRNTPROV+11~, PRNTPROV+23*, PRNTPROV+24
IEN PRNTPROV+11~, PRNTPROV+21*, PRNTPROV+23, PRNTPROV+25, PRNTPROV+26, 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+28
IOST HEADER+7, HEADER+9
LINENUM PRNTPROV+10~, PRNTPROV+13*, PRNTPROV+20, PRNTPROV+28*
LINNOREF HEADER~, HEADER+16*, HEADER+17*, HEADER+18*
MULTDIV PRNTPROV+11~, PRNTPROV+37, GETDATA+37*
MULTDIVC PRNTPROV+11~, PRNTPROV+37, GETDATA+37*
NCOUNT PRNTPROV+11~, PRNTPROV+22*, PRNTPROV+25*, PRNTPROV+28
NPI PRNTPROV+11~, PRNTPROV+24*, PRNTPROV+25, PRNTPROV+26, GETDATA+1~, GETDATA+23*, GETDATA+29*, GETDATA+30, GETDATA+31, GETDATA+40
, 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+16, PRNTPROV+20, PRNTPROV+28, HEADER~, HEADER+12
, HEADER+13, GETDATA~, GETDATA+25, GETDATA+32
PAGENUM PRNTPROV+10~, PRNTPROV+13*, PRNTPROV+20, PRNTPROV+28
PAGNOREF HEADER~, HEADER+4*, HEADER+7, HEADER+8, HEADER+11
>> POP PRINTOPT+22
PRNTFRMT PRINTOPT+1~, PRINTOPT+16*, PRINTOPT+17*, DQ+1, PRNTPROV~, PRNTPROV+17, PRNTPROV+20, PRNTPROV+25, PRNTPROV+26, PRNTPROV+28
, PRNTPROV+32
PROVNAME PRNTPROV+10~, PRNTPROV+21*, PRNTPROV+23, PRNTPROV+25, PRNTPROV+26, PRNTPROV+33*, GETDATA+1~, GETDATA+23*, GETDATA+40, GETDATA+41
RESULT ALIGNRGT+1~, ALIGNRGT+2*, ALIGNRGT+3
SERVSECT PRNTPROV+10~, PRNTPROV+19*, PRNTPROV+20, PRNTPROV+26, PRNTPROV+28, HEADER~, HEADER+18
STATUS CHKOLD1+1~, CHKOLD1+2, CHKOLD1+3*, CHKOLD1+4, CHKOLD1+5
TAXDESCR PRNTPROV+10~, PRNTPROV+23*, PRNTPROV+25, PRNTPROV+26, GETDATA+1~, GETDATA+23*, GETDATA+40, GETDATA+41
TAXONOMY PRNTPROV+10~, PRNTPROV+24*, PRNTPROV+25, PRNTPROV+26, GETDATA+1~, GETDATA+23*, GETDATA+26, GETDATA+27, GETDATA+40
TEMPVAL HEADER+3~
TEXT ALIGNRGT~, ALIGNRGT+2
TOTTYP PRNTPROV+35~*, PRNTPROV+36
U PRNTPROV+24, PRNTPROV+26, GETDATA+10, GETDATA+16, GETDATA+17, GETDATA+18, GETDATA+40, CHKOLD1+3
WIDTH ALIGNRGT~, ALIGNRGT+2
X HEADER+3~, GETDATA+2~, GETDATA+40*, GETDATA+41
XUFDA CHKOLD1+1~, DELETNPI+1~, DELETNPI+4~, DELETNPI+7
XUFDA( DELETNPI+2*
XUFDA(200 DELETNPI+5*, DELETNPI+6*
XUS1 GETDATA+12~
XUS2 GETDATA+12~
XUSACTV GETDATA+1~, GETDATA+15*, GETDATA+16, GETDATA+17, GETDATA+18
XUSDEFLT GETDATA+1~, GETDATA+9*, GETDATA+10*, GETDATA+35
XUSDIS PRNTPROV+11~, PRNTPROV+12*, PRNTPROV+24*, PRNTPROV+25, GETDATA+2~, GETDATA+5*, GETDATA+18*, GETDATA+40
XUSDIV PRINTOPT+1~, PRINTOPT+15*, PRINTOPT+17, PRINTOPT+18, DQ+1, PRNTPROV~, PRNTPROV+16, PRNTPROV+17, PRNTPROV+20, PRNTPROV+26
, PRNTPROV+28, HEADER~, HEADER+17, HEADER+18, GETDATA~, GETDATA+9, GETDATA+10, GETDATA+34
XUSDIVCN GETDATA+1~, GETDATA+35*, GETDATA+36*, GETDATA+37
XUSDIVN GETDATA+1~, GETDATA+36*, GETDATA+39*, GETDATA+41
XUSDIVNM PRNTPROV+11~, PRNTPROV+18*, PRNTPROV+19, PRNTPROV+20, PRNTPROV+26, PRNTPROV+28, HEADER~, HEADER+17, GETDATA+1~, GETDATA+35!
XUSDIVNM( GETDATA+36*, GETDATA+39, GETDATA+41
XUSDIVNM(1 GETDATA+9*, GETDATA+35*
XUSER PRINTOPT+1~, PRINTOPT+12*, DQ+1, PRNTPROV~, PRNTPROV+9*, PRNTPROV+16, PRNTPROV+20, PRNTPROV+28, HEADER~, HEADER+5*
, HEADER+12, HEADER+13, GETDATA~, GETDATA+4*, GETDATA+17
XUSGLOB GETDATA+1~, GETDATA+8*, GETDATA+41, GETDATA+45
XUSIEN GETDATA+2~, GETDATA+13*, GETDATA+15, GETDATA+20, GETDATA+21, GETDATA+23, GETDATA+29, GETDATA+30, GETDATA+33, GETDATA+36
, GETDATA+40, GETDATA+41
>> XUSNPIBA PRNTPROV+15*
XUSRESO PRINTOPT+1~, PRINTOPT+5*, PRINTOPT+9*, DQ+1, PRNTPROV~, PRNTPROV+16, PRNTPROV+20, PRNTPROV+28, PRNTPROV+35, HEADER~
, HEADER+10, GETDATA~, GETDATA+3*, GETDATA+25, GETDATA+26, GETDATA+27
XUSSERVC GETDATA+2~, GETDATA+11*, GETDATA+33*, GETDATA+41
XUSSKIP GETDATA+1~, GETDATA+25*, GETDATA+26*, GETDATA+27*
XUSSORT PRINTOPT+1~, PRINTOPT+18*, DQ+1, PRNTPROV~, PRNTPROV+16, PRNTPROV+17, PRNTPROV+20, PRNTPROV+26, PRNTPROV+28, HEADER~
, HEADER+18, GETDATA~, GETDATA+11, GETDATA+33
XUSVAL GETDATA+2~, GETDATA+20*, GETDATA+21*, GETDATA+22, GETDATA+30*, GETDATA+32
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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All