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

Package: Outpatient Pharmacy

Routine: PSODEART


Information

PSODEART ;FO-OAKAND/REM - EPCS Utilities and Reports; [5/7/02 5:53am] ;10/5/21 09:42

Source Information

Source file <PSODEART.m>

Entry Points

Name Comments DBIA/ICR reference
PRESCBR(PSOSD0) ;called from print option - PSO EPCS PRIVS
PRIVS(PSOSD0) ;called from print option - PSO EPCS PRIVS
XT30(PSOSD0,ACT) ;called from print option - PSO EPCS XDATE EXPIRES
RPT1 ;ePCS report - setting or modifing to logical access controls.
EXIT
RPT2 ;ePCS report - allocation history for PSDRPH key
PSDKEY ;Allocated/de-allocate the PSDRPH key option
ASK(TYPE,NAME,DELEG) ;Ask user if Allocate/De-allocate or Delegate/Un-delegate - returns y/n
RECORD(LINE,NOW) ;Record the edited data into audit file #8991.7
VUSER1(PSOSD0,ACT) ;called from option - PSO EPCS DISUSER EXP DATE,PSO EPCS EXP DATE
VUSER2(PSOSD0,ACT) ;called from option - PSO EPCS PRIVS,PSO EPCS DISUSER PRIVS
INIT ;
GMAIL ;
SMAIL ;
MGRP ;
BMAIL ;
MFT ;
ODRPT ;
AUTPRT ;
OEN ;
QT ;
GUI ; Entry point for ePCS GUI Report
HD ;
FT ; Find Divisions for specific user
PARAM ;Allow user to edit parameters
FAIL ; Failover parameter edit
MBM ; Pharmacy Operating Mode
FOM() ; Failover Message
PRIVSRT ; Print Prescribers with Privileges report
PRIVSDRT ; Print Prescribers with Privileges report

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"PSDRPH key does not exist"
  • Line Location: PSDKEY+4
Function Call: WRITE
  • Prompt: !,"You don't have privileges. See your package coordinator or site manager."
  • Line Location: PSDKEY+10
Function Call: WRITE
  • Prompt: !!,$C(7),"==> Sorry, you can't give yourself keys. See your IRM staff."
  • Line Location: PSDKEY+15
Function Call: WRITE
  • Prompt: !!,$C(7),"==> Sorry, you can't give yourself keys. See your IRM staff."
  • Line Location: PSDKEY+16
Function Call: WRITE
  • Prompt: !,"Nothing done..."
  • Line Location: PSDKEY+19
Function Call: WRITE
  • Prompt: !,"Nothing done..."
  • Line Location: PSDKEY+20
Function Call: WRITE
  • Prompt: !
  • Line Location: ODRPT+5
Function Call: WRITE
  • Prompt: !
  • Line Location: ODRPT+7
Function Call: WRITE
  • Prompt: !!?18,"********** NO DATA TO PRINT **********"
  • Line Location: ODRPT+11
Function Call: WRITE
  • Prompt: !!," *************** NO MATCHING DATA ***************",!!
  • Line Location: OEN+20
Function Call: WRITE
  • Prompt: !!,LEN,!
  • Line Location: OEN+23
Function Call: WRITE
  • Prompt: "-"
  • Line Location: OEN+23
Function Call: WRITE
  • Prompt: !,$E($G(XTV(FN,ND_",",.01,"E"))_FSP,1,25),?28,$E($G(XTV(FN,ND_",",.02,"E"))_FSP,1,25),?55,$E($P($G(^DD($S(FE>50:200,1:8991.9),FE,0)),U)_FSP,1,24)
  • Line Location: OEN+30
Function Call: WRITE
  • Prompt: !,?3,"ORIGINAL DATA: "
  • Line Location: OEN+31
Function Call: WRITE
  • Prompt: ?58,"For DEA#: ",$G(XTV(FN,ND_",",.08,"E"))
  • Line Location: OEN+33
Function Call: WRITE
  • Prompt: $S($G(XTV(FN,ND_",",.04,"E"))="True":1,$G(XTV(FN,ND_",",.04,"E"))="False":0,1:$G(XTV(FN,ND_",",.04,"E")))
  • Line Location: OEN+34
Function Call: WRITE
  • Prompt: ?58,"For DEA#: ",$G(XTV(FN,ND_",",.08,"E"))
  • Line Location: OEN+35
Function Call: WRITE
  • Prompt: !,?3," EDITED DATA: "
  • Line Location: OEN+36
Function Call: WRITE
  • Prompt: $S($G(XTV(FN,ND_",",.05,"E"))="True":1,$G(XTV(FN,ND_",",.05,"E"))="False":0,1:$G(XTV(FN,ND_",",.05,"E")))_$S(FE>50:" (Source: File #200)",1:"")
  • Line Location: OEN+38
Function Call: WRITE
  • Prompt: ?62,"DATE: "
  • Line Location: OEN+39
Function Call: WRITE
  • Prompt: !,$G(XTV(FN,ND_",",.01,"E")),?24,$G(XTV(FN,ND_",",.02,"E")),?48,$G(XTV(FN,ND_",",.03,"E")),?61,$G(XTV(FN,ND_",",.04,"E"))
  • Line Location: OEN+40
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: !,?HCL,RHD,!,"For the Period: "
  • Line Location: HD+5
Function Call: WRITE
  • Prompt: " to "
  • Line Location: HD+6
Function Call: WRITE
  • Prompt: " Run Date: "
  • Line Location: HD+6
Function Call: WRITE
  • Prompt: " Run Date: "
  • Line Location: HD+6
Function Call: WRITE
  • Prompt: !,RHD,?50,RDT,?72,"Page "_PAGE,!
  • Line Location: HD+7
Function Call: WRITE
  • Prompt: !,"NAME",?28,"EDITED BY",?55,"FIELD EDITED"
  • Line Location: HD+8
Function Call: WRITE
  • Prompt: !,"NAME",?48,"ALLOCATION",!,?24,"EDITED BY",?48,"STATUS",?61,"DATE/TIME EDITED"
  • Line Location: HD+9
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: HD+10
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
Function Call: WRITE
  • Prompt: !!,"***************************** WARNING ******************************************"
  • Line Location: FOM+3
Function Call: WRITE
  • Prompt: !,"A value of NO prevents providers with an expired DEA number from prescribing"
  • Line Location: FOM+4
Function Call: WRITE
  • Prompt: !,"controlled substances. A provider without a DEA number will still be able to"
  • Line Location: FOM+5
Function Call: WRITE
  • Prompt: !,"prescribe controlled substances if they have a VA number entered in VistA.",!
  • Line Location: FOM+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls,  GET1^DIQ
200.052 GET1^DIQ
^DIC(4 - [#4] GET1^DIQ
^PS(59.7 - [#59.7] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call