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

Package: Controlled Substances

Routine: PSDDSOR


Information

PSDDSOR ;BHM/MHA/PWC - Digitally signed CS Orders Report ;02/02/2021

Source Information

Source file <PSDDSOR.m>

Entry Points

Name Comments DBIA/ICR reference
SITE
DATE ;ask date range
SL
D ;ask drug(s)
PR ;ask provider(s)
PA ;ask patient(s)
S ;
DEV
EN ;
EN1
EN2
GETD ;
GETD1 ;
CONT ;
CT1
CT2
CT3
PSTR ;
IN
WR
N4
STR4 ;
N3
STR3
N2
STR2
N1
STR1
PRT
HD
HD1
END
KV
INST ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?10,"You are logged on under the ",$P(^PS(59,PSDDV,0),"^")," division.",!
  • Line Location: SITE+6
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+4
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+16
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+18
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+21
Function Call: WRITE
  • Prompt: !!,?5,"You may select a single drug, several drugs,",!,?5,"or enter ^ALL to select all drugs.",!!
  • Line Location: D+1
Function Call: WRITE
  • Prompt: !!,?5,"You may select a single provider, several providers,",!,?5,"or enter ^ALL to select all providers.",!!
  • Line Location: PR+1
Function Call: WRITE
  • Prompt: !!,?5,"You may select a single patient, several patients,",!,?5,"or enter ^ALL to select all patients.",!!
  • Line Location: PA+1
Function Call: WRITE
  • Prompt: !!,"Select controlled substance schedule(s)"
  • Line Location: S+1
Function Call: WRITE
  • Prompt: !
  • Line Location: S+6
Function Call: WRITE
  • Prompt: !,"Please try later!"
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !!,"********** NO DATA TO PRINT **********",!!
  • Line Location: PSTR+5
Function Call: WRITE
  • Prompt: $S(AC=1:"Processed",AC=2:"Discontinued",AC=3:"Expired",1:"Pending")_" Orders:",!
  • Line Location: WR+0
Function Call: WRITE
  • Prompt: @IOF,!,"OP "_$S(PSDRXSRC'="W"&(PSDRXSRC'="A"):"Digitally Signed ",1:"")_"CS Orders Report for Division "_DVN,?71,"Page: ",$J(PG,3)
  • Line Location: HD+1
Function Call: WRITE
  • Prompt: !,"Date Range: "_$$FMTE^XLFDT(PSDBD,"2Y")_" - "_$$FMTE^XLFDT(PSDED,"2Y")
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: ?33,"Source: ",$S(PSDRXSRC="C":"CPRS",PSDRXSRC="E":"eRx",PSDRXSRC="B":"CPRS+eRx",PSDRXSRC="W":"WRITTEN",1:"ALL")
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: ?54,"Printed on: "_TDT,!
  • Line Location: HD+4
Function Call: WRITE
  • Prompt: !
  • Line Location: END+0

FileMan Files Accessed Via FileMan Db Call

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