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 |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call