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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: PSODEARB

Package: Outpatient Pharmacy

Routine: PSODEARB


Information

PSODEARB ;WILM/BDB - Print Disuser prescribers with privledges; ;9/28/21 14:08

Source Information

Source file <PSODEARB.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Kernel 6 ^%ZIS  ^%ZISC  ^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  $$UP^XLFSTR  $$ACTIVE^XUSER  
VA FileMan 3 ^%DT  ($$GET1,GETS)^DIQ  ^DIR  
Outpatient Pharmacy 1 DEALIST^PSOEPUT  

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: 2

Package Total Caller Graph
Outpatient Pharmacy 2 PSO EPCS DISUSER PRIVS  PSOEPRPT  

Entry Points

Name Comments DBIA/ICR reference
PRIVSRT ; Print Disuser prescribers with privledges
AUTPRT ;
OEN ;
QT ;
EXIT
HD ;
FT ;
INIT ;
GUI ;
DATCHK ;Check for no new DEA numbers, use 200 schedules

External References

Name Field # of Occurrence
^%DT DATCHK+15
^%ZIS PRIVSRT+4
^%ZISC EXIT+1
^%ZTLOAD AUTPRT+5
$$GET1^DIQ OEN+8, OEN+30, OEN+38, OEN+48, FT+5
GETS^DIQ DATCHK+5
^DIR HD+1, FT+6
DEALIST^PSOEPUT OEN+9
$$FMTE^XLFDT OEN+24
$$NOW^XLFDT OEN+24, INIT+4
$$UP^XLFSTR OEN+13, OEN+24, DATCHK+13
$$ACTIVE^XUSER OEN+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!," *************** NO MATCHING DATA ***************",!!
  • Line Location: OEN+28
Function Call: WRITE
  • Prompt: !!,?9,LEN
  • Line Location: OEN+31
Function Call: WRITE
  • Prompt: !,$E($$GET1^DIQ(200,NPIEN,.01)_FSP,1,25),?32,$E(NPIEN_FSP,1,12),?45,$E(DEA_FSP,1,13),?60,$E($P(DAT,U,16)_FSP,1,15)
  • Line Location: OEN+38
Function Call: WRITE
  • Prompt: ?72,$E($S($P(DAT,"^",15)="":"NO",1:$P(DAT,"^",15))_FSP,1,5)
  • Line Location: OEN+39
Function Call: WRITE
  • Prompt: !," SCHEDULE II:",?29,$S($P(DAT,"^",9)="":"NO",1:$P(DAT,"^",9))
  • Line Location: OEN+40
Function Call: WRITE
  • Prompt: !," SCHEDULE II NON:",?29,$S($P(DAT,"^",10)="":"NO",1:$P(DAT,"^",10))
  • Line Location: OEN+41
Function Call: WRITE
  • Prompt: !," SCHEDULE III:",?29,$S($P(DAT,"^",11)="":"NO",1:$P(DAT,"^",11))
  • Line Location: OEN+42
Function Call: WRITE
  • Prompt: !," SCHEDULE III NON:",?29,$S($P(DAT,"^",12)="":"NO",1:$P(DAT,"^",12))
  • Line Location: OEN+43
Function Call: WRITE
  • Prompt: !," SCHEDULE IV:",?29,$S($P(DAT,"^",13)="":"NO",1:$P(DAT,"^",13))
  • Line Location: OEN+44
Function Call: WRITE
  • Prompt: !," SCHEDULE V:",?29,$S($P(DAT,"^",14)="":"NO",1:$P(DAT,"^",14))
  • Line Location: OEN+45
Function Call: WRITE
  • Prompt: PSOSRC
  • Line Location: OEN+46
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: !,RHD,?50,RDT,?72,"PAGE "_PAGE
  • Line Location: HD+4
Function Call: WRITE
  • Prompt: !,"NAME",?32,"DUZ",?45,"DEA #",?60,"TERMINATION",?73,"INPAT"
  • Line Location: HD+5
Function Call: WRITE
  • Prompt: !,?45,"(E)=EXPIRED",?60,"DATE"
  • Line Location: HD+6
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: HD+7
Function Call: WRITE
  • Prompt: !!,LEN
  • Line Location: FT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: FT+3
Function Call: WRITE
  • Prompt: "-"
  • Line Location: FT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: FT+5
Function Call: WRITE
  • Prompt: $$GET1^DIQ(200,J,.01)
  • Condition for execution: DAT=1
  • Line Location: FT+5
Function Call: WRITE
  • Prompt: ?32,$$GET1^DIQ(4,ND,.01)
  • Line Location: FT+5
Routine Call
  • DIR
  • Line Location:
    • HD+1
    • FT+6
Routine Call
  • %ZIS
  • Line Location:
    • PRIVSRT+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ,  GETS^DIQ
^DIC(4 - [#4] GET1^DIQ
^XTV(8991.9 - [#8991.9] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP( OEN+5!, OEN+17*, OEN+18*, OEN+33, EXIT!, INIT+5!
^VA(200 - [#200] OEN+6, OEN+19, OEN+22, OEN+37, FT+4
^XTMP( OEN+5!, OEN+21*, OEN+22*, OEN+27, OEN+29, OEN+32, OEN+52, EXIT!, INIT+5!

Label References

Name Line Occurrences
DATCHK OEN+14
EXIT PRIVSRT+4, AUTPRT+1, QT+2
FT OEN+52
HD OEN+26, OEN+51
INIT PRIVSRT+3, GUI+2
OEN GUI+7
QT OEN+27, OEN+29

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT PRIVSRT+3!, GUI+2!
%ZIS PRIVSRT+4!*
ARR OEN+2~, OEN+30!
ARR( OEN+36*, OEN+52
BDT GUI+1~
CNT OEN+3~, OEN+4*, OEN+16*, OEN+17, OEN+18, OEN+21
DAT OEN+3~, OEN+9!, OEN+10, OEN+33*, OEN+34, OEN+35, OEN+38, OEN+39, OEN+40, OEN+41
, OEN+42, OEN+43, OEN+44, OEN+45, OEN+46, FT+4*, FT+5*
DAT( OEN+12, OEN+13*, OEN+15, OEN+17, DATCHK+3, DATCHK+12*, DATCHK+13*, DATCHK+14, DATCHK+17*
DAT(1 OEN+11*
DEA OEN+3~, OEN+33*, OEN+38
DEAVA OEN+3~
DIR QT+1!, HD+1!, FT+6!
DIR("A" HD+1*
DIR(0 HD+1*, FT+6*
DIRUT OEN+3!, OEN+29, OEN+32, QT+1!, HD+2
DT DATCHK+16
DTOUT PRIVSRT+3!, OEN+3!, QT+1!, HD+2, GUI+2!
DUOUT QT+1!
DV OEN+2~, OEN+3~, OEN+19*, OEN+21, OEN+22, OEN+29*, OEN+30, OEN+32
DVS OEN+3~, OEN+19*, OEN+20*
EDT GUI+1~
EXPDTFM DATCHK+1~, DATCHK+15*, DATCHK+16
FE OEN+2~
FSP OEN+2~, OEN+25*, OEN+38, OEN+39, INIT+1*
HCL OEN+2~, OEN+24*
I OEN+2~, FT+3*
IEN OEN+3~
IO OEN+1
IO("Q" AUTPRT+1
IOF HD+3
ION PRIVSRT+4
IOP PRIVSRT+4!*
IOSL OEN+51
IOST HD+1, FT+6, GUI+5
J OEN+2~, OEN+52*, FT+4, FT+5
LEN OEN+2~, OEN+30*, OEN+31, FT+1*, FT+2, FT+3
LINE OEN+2~, OEN+25*, HD+7
ND OEN+3~, OEN+32*, OEN+33, FT+4*, FT+5
NDEA OEN+3~, OEN+12*, OEN+13, OEN+15, OEN+17, DATCHK+3, DATCHK+12, DATCHK+13, DATCHK+14, DATCHK+17
NPIEN OEN+2~, OEN+6*, OEN+7, OEN+8, OEN+9, OEN+17, OEN+19, OEN+22, OEN+33*, OEN+36
, OEN+37, OEN+38, DATCHK+5, DATCHK+6, DATCHK+7, DATCHK+8, DATCHK+9, DATCHK+10, DATCHK+11
NPSCHED DATCHK+1~, DATCHK+5!
NPSCHED(200 DATCHK+6, DATCHK+7, DATCHK+8, DATCHK+9, DATCHK+10, DATCHK+11
PAGE OEN+2~, OEN+25*, HD+1, HD+4*
POP PRIVSRT+3!, PRIVSRT+4
PSOION PRIVSRT+3~, PRIVSRT+4*, GUI+1~
PSONS PRIVSRT+3~, OEN+5, OEN+17, OEN+18, OEN+21, OEN+22, OEN+27, OEN+29, OEN+32, OEN+33
, OEN+52, EXIT, INIT+1*, INIT+5, GUI+1~
PSOSCR GUI+1~, GUI+5*
PSOSPS OEN+2~, OEN+37*
PSOSRC OEN+3~, OEN+46*, OEN+47*, OEN+48*, OEN+49*, OEN+50*
PSOSRCI OEN+3~, OEN+46*, OEN+47, OEN+48
PSOTERM OEN+3!, OEN+8*, OEN+18
RDT OEN+2~, OEN+24*, HD+4
RET OEN+2~, DATCHK+1~, DATCHK+2*, DATCHK+6*, DATCHK+7*, DATCHK+8*, DATCHK+9*, DATCHK+10*, DATCHK+11*, DATCHK+12
RHD PRIVSRT+3~, OEN+2~, OEN+23*, OEN+24, HD+4, INIT+2*, GUI+1~
RT PRIVSRT+3~, INIT+4*, GUI+1~
U OEN+38
X DATCHK+1~, DATCHK+3*, DATCHK+14*
XTV OEN+2~
Y DATCHK+1~, DATCHK+15
ZPR PRIVSRT+3!, AUTPRT+1, AUTPRT+3, INIT+3*, GUI+1~, GUI+2!
ZTDESC AUTPRT+2~
ZTDTH AUTPRT+2~, AUTPRT+3*
ZTIO AUTPRT+2~, AUTPRT+3*
ZTQUEUED AUTPRT+2~, EXIT+1
ZTREQ AUTPRT+2~, EXIT+1*
ZTRTN AUTPRT+2~, AUTPRT+3*
ZTSAVE AUTPRT+2~
ZTSAVE("FSP" AUTPRT+4*
ZTSAVE("PSONS" AUTPRT+4*
ZTSAVE("RHD" AUTPRT+4*
ZTSAVE("RT" AUTPRT+4*
ZTSK AUTPRT+2~, AUTPRT+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All