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

Package: Outpatient Pharmacy

Routine: PSOORFI6


Information

PSOORFI6 ;BIR/SJA - finish cprs orders cont. ;Nov 30, 2021@08:00:07

Source Information

Source file <PSOORFI6.m>

Entry Points

Name Comments DBIA/ICR reference
DC
PSPEED
SHOW
SPEED1
SPEED
ASK
ACT
INVALD
KILL
RTEST ;
RTESTA ;
PDATA
ASKDC
DIR(FSORT,FSVAL) ;
PAT() ;
PRMT
RTE() ;
PRI() ;
CLIN() ;
CLIN2
SORT
FLG() ;
CS() ;
SUPPLY() ;
CHKFLTR(IEN,FLTR,CNT) ; CHECK THE SECONDARY FILTER FOR PENDING ORDERS
ISSUPPLY(IEN) ;
PDEA ;
SCRIT ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: DC+1
Function Call: WRITE
  • Prompt: !,$P(^PSRX(PSODA,0),"^")," ",DRG,?52,$S($D(^DPT(+$P(^PSRX(PSODA,0),"^",2),0)):$P(^(0),"^"),1:"PATIENT UNKNOWN")
  • Line Location: SHOW+1
Function Call: WRITE
  • Prompt: !?25,"Rx to be Discontinued",!
  • Line Location: SHOW+2
Function Call: WRITE
  • Prompt: !?21,"*** Rx to be Reinstated ***",!
  • Line Location: SHOW+3
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!
  • Line Location: INVALD+0
Function Call: WRITE
  • Prompt: "="
  • Line Location: INVALD+0
Function Call: WRITE
  • Prompt: $C(7),!!,"The Following Rx Number(s) Are Invalid Choices, Expired, "_$S($G(PKI):"Digitally Signed",1:""),!,"Discontinued by Provider, or Marked As Deleted:"
  • Line Location: INVALD+1
Function Call: WRITE
  • Prompt: !?10,II
  • Line Location: INVALD+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKDC+0
Function Call: WRITE
  • Prompt: !
  • Line Location: CLIN+5
Function Call: WRITE
  • Prompt: !
  • Line Location: CLIN+5
Function Call: WRITE
  • Prompt: !
  • Line Location: CLIN2+0
Function Call: WRITE
  • Prompt: !!,"You are signed in under the "_$G(PSODINST)_" CPRS Ordering",!,"Institution, which does not match the Institution for this Clinic!",!
  • Line Location: CLIN2+1
Function Call: WRITE
  • Prompt: !
  • Line Location: SORT+0
Function Call: WRITE
  • Prompt: !!,"There are no Clinics associated with this Sort Group!",!
  • Line Location: SORT+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SORT+5
Function Call: WRITE
  • Prompt: !,"Orders for these Clinics in the Sort Group will not be displayed for Finishing",!,"because the CPRS Ordering Institution does not match the Institution that is",!,"associated with the Clinic:",!
  • Line Location: SORT+5
Function Call: WRITE
  • Prompt: !,$P($G(^SC(PSCLP,0)),"^")
  • Line Location: SORT+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SORT+7
Function Call: WRITE
  • Prompt: !!,"There are no Clinics that have a matching Institution!",!
  • Line Location: SORT+9
Function Call: WRITE
  • Prompt: !!,"Select a schedule(s)"
  • Line Location: CS+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SC - [#44] Classic Fileman Calls
^PSDRUG - [#50] GET1^DIQ
^PS(50.7 - [#50.7] GET1^DIQ
^PS(52.41 - [#52.41] GET1^DIQ
^PS(59.8 - [#59.8] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call