Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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

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
Info |  Source |  Entry Points |  Interaction Calls