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

Package: Outpatient Pharmacy

Routine: PSOORFI2


Information

PSOORFI2 ;BIR/BHW-finish cprs orders cont. ;07/29/96

Source Information

Source file <PSOORFI2.m>

Entry Points

Name Comments DBIA/ICR reference
HLP
HELP ;
HELPX
RTE ;
PRI ;
PROFILE ;display med profile
DC
DE
RF ;process refill request from CPRS
END
S
E
R
KPRI
KPRIZ
INST ;Select Institution
INSTA ;
CNT(SITE)
INST1 ;
CLOZ ;checks clozapine status of patient
; BEGIN - JCH: PSO*7*612
ELIG
USER(USER) ;returns .01 of 200
INSTNM ;
POST
SIG ;
NP ; Next Patient (Used for Workload Processing Users - Hold the PSO ERX WORKLOAD RPH sec. key)

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Enter 'S' to process orders with a priority of STAT",!," 'E' to process orders with an Emergency priority,",!," 'R' to process Routine orders.",!
  • Line Location: HLP+0
Function Call: WRITE
  • Prompt: !,"Please enter a minimum of two (2) characters.",!,"Enter Patient's name whose med orders are to be completed.",!
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !,$P(^DPT(DPT,0),"^")
  • Line Location: HELP+2
Function Call: WRITE
  • Prompt: $C(7),!!,$P(PSOMSG,"^",2),!
  • Line Location: RF+2
Function Call: WRITE
  • Prompt: !
  • Line Location: RF+13
Function Call: WRITE
  • Prompt: !!,$C(7),"Rx# "_$P(^PSRX($P(OR0,"^",19),0),"^")_" is marked as 'Titration Rx' and cannot be refilled."
  • Line Location: RF+25
Function Call: WRITE
  • Prompt: !!,"Processing Refill Request for Rx "_$P(^PSRX(PSOREF("IRXN"),0),"^")
  • Line Location: RF+32
Function Call: WRITE
  • Prompt: !!,"There are no CPRS Ordering Institutions associated with this Outpatient site!",!,"Use the Site Parameter enter/edit option to enter CPRS Ordering Institutions!",!
  • Line Location: INST+5
Function Call: WRITE
  • Prompt: !!!,"There are multiple Institutions associated with this Outpatient Site for",!,"finishing orders entered through CPRS. Select the Institution for which to",!,"finish orders from. Enter '?' to see all choices.",!
  • Line Location: INST+7
Function Call: WRITE
  • Prompt: !!,"No Institution selected",!
  • Line Location: INST+8
Function Call: WRITE
  • Prompt: !
  • Line Location: INST+10
Function Call: WRITE
  • Prompt: !,"You have selected "_$G(PSODINST)_"."
  • Line Location: INST+11
Function Call: WRITE
  • Prompt: !,"After completing these orders, you may re-enter this option and select again."
  • Line Location: INST+12
Function Call: WRITE
  • Prompt: !!?7,IORVON_IOINHI,"<There ",$S(PSOCNT=1:"is ",1:"are "),$S(PSOCNT>0:PSOCNT,1:"no")," flagged order",$S(PSOCNT=1:"",1:"s")," for ",PSODINST,">",IOINORM_IORVOFF,!
  • Line Location: INSTA+3
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: NP+4

FileMan Files Accessed Via FileMan Db Call

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