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

Package: Outpatient Pharmacy

Routine: PSODEARA


Information

PSODEARA ;WILM/BDB - Print active prescribers with privledges; ;9/28/21 12:59

Source Information

Source file <PSODEARA.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 PRIVS  PSOEPRPT  

Entry Points

Name Comments DBIA/ICR reference
PRIVSRT ; Print active 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+28, OEN+36, OEN+46, FT+5
GETS^DIQ DATCHK+5
^DIR HD+1, FT+6
DEALIST^PSOEPUT OEN+8
$$FMTE^XLFDT OEN+22
$$NOW^XLFDT OEN+22, INIT+4
$$UP^XLFSTR OEN+12, OEN+22, DATCHK+13
$$ACTIVE^XUSER OEN+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!," *************** NO MATCHING DATA ***************",!!
  • Line Location: OEN+26
Function Call: WRITE
  • Prompt: !!,?9,LEN
  • Line Location: OEN+29
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(PSOSPS,U,3)_FSP,1,15)
  • Line Location: OEN+36
Function Call: WRITE
  • Prompt: ?72,$E($S($P(DAT,"^",15)="":"NO",1:$P(DAT,"^",15))_FSP,1,5)
  • Line Location: OEN+37
Function Call: WRITE
  • Prompt: !," SCHEDULE II:",?29,$S($P(DAT,"^",9)="":"NO",1:$P(DAT,"^",9))
  • Line Location: OEN+38
Function Call: WRITE
  • Prompt: !," SCHEDULE II NON:",?29,$S($P(DAT,"^",10)="":"NO",1:$P(DAT,"^",10))
  • Line Location: OEN+39
Function Call: WRITE
  • Prompt: !," SCHEDULE III:",?29,$S($P(DAT,"^",11)="":"NO",1:$P(DAT,"^",11))
  • Line Location: OEN+40
Function Call: WRITE
  • Prompt: !," SCHEDULE III NON:",?29,$S($P(DAT,"^",12)="":"NO",1:$P(DAT,"^",12))
  • Line Location: OEN+41
Function Call: WRITE
  • Prompt: !," SCHEDULE IV:",?29,$S($P(DAT,"^",13)="":"NO",1:$P(DAT,"^",13))
  • Line Location: OEN+42
Function Call: WRITE
  • Prompt: !," SCHEDULE V:",?29,$S($P(DAT,"^",14)="":"NO",1:$P(DAT,"^",14))
  • Line Location: OEN+43
Function Call: WRITE
  • Prompt: PSOSRC
  • Line Location: OEN+44
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,"VA#",?73,"INPAT"
  • Line Location: HD+5
Function Call: WRITE
  • Prompt: !,?45,"(E)=EXPIRED"
  • 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+16*, OEN+31, EXIT!, INIT+5!
^VA(200 - [#200] OEN+6, OEN+17, OEN+20, OEN+35, FT+4
^XTMP( OEN+5!, OEN+19*, OEN+20*, OEN+25, OEN+27, OEN+30, OEN+50, EXIT!, INIT+5!

Label References

Name Line Occurrences
DATCHK OEN+13
EXIT PRIVSRT+4, AUTPRT+1, QT+2
FT OEN+50
HD OEN+24, OEN+49
INIT PRIVSRT+3, GUI+2
OEN GUI+7
QT OEN+25, OEN+27

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+28!
ARR( OEN+34*, OEN+50
BDT GUI+1~
CNT OEN+3~, OEN+4*, OEN+15*, OEN+16, OEN+19
DAT OEN+3~, OEN+8!, OEN+9, OEN+31*, OEN+32, OEN+33, OEN+37, OEN+38, OEN+39, OEN+40
, OEN+41, OEN+42, OEN+43, OEN+44, FT+4*, FT+5*
DAT( OEN+11, OEN+12*, OEN+14, OEN+16, DATCHK+3, DATCHK+12*, DATCHK+13*, DATCHK+14, DATCHK+17*
DAT(1 OEN+10*
DEA OEN+3~, OEN+31*, OEN+36
DEAVA OEN+3~
DIR QT+1!, HD+1!, FT+6!
DIR("A" HD+1*
DIR(0 HD+1*, FT+6*
DIRUT OEN+3!, OEN+27, OEN+30, 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+17*, OEN+19, OEN+20, OEN+27*, OEN+28, OEN+30
DVS OEN+3~, OEN+17*, OEN+18*
EDT GUI+1~
EXPDTFM DATCHK+1~, DATCHK+15*, DATCHK+16
FE OEN+2~
FSP OEN+2~, OEN+23*, OEN+36, OEN+37, INIT+1*
HCL OEN+2~, OEN+22*
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+49
IOST HD+1, FT+6, GUI+5
J OEN+2~, OEN+50*, FT+4, FT+5
LEN OEN+2~, OEN+28*, OEN+29, FT+1*, FT+2, FT+3
LINE OEN+2~, OEN+23*, HD+7
ND OEN+3~, OEN+30*, OEN+31, FT+4*, FT+5
NDEA OEN+3~, OEN+11*, OEN+12, OEN+14, OEN+16, DATCHK+3, DATCHK+12, DATCHK+13, DATCHK+14, DATCHK+17
NPIEN OEN+2~, OEN+6*, OEN+7, OEN+8, OEN+16, OEN+17, OEN+20, OEN+31*, OEN+34, OEN+35
, OEN+36, 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+23*, HD+1, HD+4*
POP PRIVSRT+3!, PRIVSRT+4
PSOION PRIVSRT+3~, PRIVSRT+4*, GUI+1~
PSONS PRIVSRT+3~, OEN+5, OEN+16, OEN+19, OEN+20, OEN+25, OEN+27, OEN+30, OEN+31, OEN+50
, EXIT, INIT+1*, INIT+5, GUI+1~
PSOSCR GUI+1~, GUI+5*
PSOSPS OEN+2~, OEN+35*, OEN+36
PSOSRC OEN+3~, OEN+44*, OEN+45*, OEN+46*, OEN+47*, OEN+48*
PSOSRCI OEN+3~, OEN+44*, OEN+45, OEN+46
RDT OEN+2~, OEN+22*, 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+21*, OEN+22, HD+4, INIT+2*, GUI+1~
RT PRIVSRT+3~, INIT+4*, GUI+1~
U OEN+36
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