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

Package: Inpatient Medications

Routine: PSGOERS


Information

PSGOERS ;BIR/CML3 - RENEW SELECTED ORDERS ; 10/23/14 9:30pm

Source Information

Source file <PSGOERS.m>

Entry Points

Name Comments DBIA/ICR reference
MARK ; only mark order, not actually renew
RENEW ; mark or renew order
CHKDD() ;
EN ;
DONE ;
GRI ; get renewal info
HMSG ; hold/'not to be given' message
WO ;
CHKCOM() ; Check if this order is a complex order

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"...marking ",PSGPDRGN," ",PSGDO,"..."
  • Line Location: MARK+1
Function Call: WRITE
  • Prompt: "."
  • Line Location: MARK+1
Function Call: WRITE
  • Prompt: !!," ",PSGOERS2,". ",$P($$DRUGNAME^PSJLMUTL(PSGP,PSGORD),"^")," ",$P(^PS(55,PSGP,5,+PSGORD,.2),"^",2),!,"...No action taken on this order...",!
  • Line Location: RENEW+8
Function Call: WRITE
  • Prompt: "."
  • Line Location: RENEW+13
Function Call: WRITE
  • Prompt: !!,"...",PSGPDRGN," ",PSGDO," order NOT renewed..."
  • Line Location: RENEW+14
Function Call: WRITE
  • Prompt: !!,"...order NOT renewed..."
  • Line Location: RENEW+27
Function Call: WRITE
  • Prompt: !!,"...renewing ",PSGOERS2,". ",PSGPDRGN," ",PSGDO,"..."
  • Line Location: RENEW+28
Function Call: WRITE
  • Prompt: !!,"This order's dispense drug is invalid, a pharmacist must renew this order."
  • Line Location: CHKDD+2
Function Call: WRITE
  • Prompt: !!,"THE DISPENSE DRUG IS MISSING FROM THIS ORDER."
  • Line Location: CHKDD+3
Function Call: WRITE
  • Prompt: !,"ORDER NOT RENEW."
  • Line Location: CHKDD+5
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+11
Function Call: WRITE
  • Prompt: $C(7),!,"...order",$E("s",$L(PSGODDD(1),",")>2)," NOT renewed..."
  • Line Location: EN+12
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+15
Function Call: WRITE
  • Prompt: !,$P($$DRUGNAME^PSJLMUTL(DFN,PSGORD),"^",1),!,"NO ACTION WAS TAKEN",!,$C(7)
  • Line Location: EN+23
Function Call: WRITE
  • Prompt: $C(7)," ??",!
  • Line Location: WO+1
Function Call: WRITE
  • Prompt: !,X
  • Condition for execution: X]""
  • Line Location: WO+1
Function Call: WRITE
  • Prompt: !
  • Line Location: WO+1
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $L(H3)+$X>78
  • Line Location: WO+1
Function Call: WRITE
  • Prompt: H3," "
  • Line Location: WO+1
Function Call: WRITE
  • Prompt: !," Order ",PSGOERS2," is part of a complex order series, and cannot be renewed.",!
  • Line Location: CHKCOM+2
Function Call: WRITE
  • Prompt: !," Order ",PSGOERS2," is part of a complex order series, and cannot be renewed.",!
  • Line Location: CHKCOM+4
Info |  Source |  Entry Points |  Interaction Calls