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 ;6/5/09

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+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+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+12, GETDATA+33, CHKOLD1+2, CHKOLD1+3, DELETNPI+3

Label References

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All