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
Print Page as PDF
Routine: PSGOESF

Package: Inpatient Medications

Routine: PSGOESF


Information

PSGOESF ;BIR/MLM-SPEED FINISH ORDERS ENTERED THROUGH OE/RR ;10 Mar 98 / 2:35 PM

Source Information

Source file <PSGOESF.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
ENCHK ;
DONE ; Kill and exit.
HELP
UPDATE
OC531 ;* Order checks for Speed finish and regular finish

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"There are no orders which can be Speed Finished at this time.",!,"Only PENDING RENEWALS can be Speed Finished."
  • Line Location: EN+13
Function Call: WRITE
  • Prompt: $C(7),!!,"??"
  • Line Location: EN+18
Function Call: WRITE
  • Prompt: !
  • Line Location: ENCHK+7
Function Call: WRITE
  • Prompt: $C(7),!,"...order",$E("s",$L(PSGODDD(1),",")>2)," NOT finished..."
  • Line Location: ENCHK+8
Function Call: WRITE
  • Prompt: !," ",PSGOERS2,". ",$P($$DRUGNAME^PSJLMUTL(PSGP,PSGORD),"^")," ",$P($G(^PS(53.1,+PSGORD,.2)),"^",2),!,"...No action taken on this order...",!
  • Line Location: ENCHK+11
Function Call: WRITE
  • Prompt: !!," ",PSGOERS2,". ",$P($$DRUGNAME^PSJLMUTL(PSGP,PSGORD),"^")," ",$P($G(^PS(53.1,+PSGORD,.2)),"^",2),!,"...No action taken on this order...",!
  • Line Location: ENCHK+18
Function Call: WRITE
  • Prompt: !!," Select the orders to be speed finished. Only orders listed under the PENDING",!,"RENEWALS heading are selectable. The start and stop date/times specified will"
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !,"be used for all orders selected to be finished using this function.",!
  • Line Location: HELP+2
Info |  Source |  Entry Points |  Interaction Calls