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

Package: Inpatient Medications

Routine: PSGOEC


Information

PSGOEC ;BIR/CML3-CANCEL ORDERS ;02 Mar 99 / 9:29 AM

Source Information

Source file <PSGOEC.m>

Entry Points

Name Comments DBIA/ICR reference
ENA ; all orders
ENCA ;
ENO(PSGP,PSGORD) ; single order
SOC ;
D1
OUT ;
DONE ;
ASET ;
NSET ;
AC ;
NC ;
T ;
RS ;
; naked ref below is from variable ND1, ^PS(53.1,PSGDA,4)
REQPROV()
PNDRNA(ORDER) ; Ask Discontinue Pending Renewal only, or both Pending Renew and Renewed Order
; Perform this action only for pending renewals
PNDRN(PSJDCTYP,ORDER) ; Perform Discontinue action for Pending order only or both Pending and Renewed
; Perform this action only for pending renewals
PNDRNOK(ORDER) ; Execute DC Pending Renew enhancement only if
; 1) Renewal order is pending/non-verified, and
; 2) Original order is not DC'd or Expired
TST4DC ; Test for DC at prompt

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Do you want to ",$S(CF:"discontinue",1:"mark for discontinuation")," all of this patient's orders"
  • Line Location: ENA+2
Function Call: WRITE
  • Prompt: !!,"...a few moments, please..."
  • Line Location: ENA+7
Function Call: WRITE
  • Prompt: "."
  • Line Location: ENA+8
Function Call: WRITE
  • Prompt: "."
  • Line Location: ENA+9
Function Call: WRITE
  • Prompt: " . . . DONE!"
  • Line Location: ENA+10
Function Call: WRITE
  • Prompt: " . . . DONE!"
  • Line Location: ENCA+8
Function Call: WRITE
  • Prompt: !,"This order has already been DISCONTINUED."
  • Line Location: ENO+1
Function Call: WRITE
  • Prompt: !!,"This order is part of a complex order and CANNOT be marked for discontinuation."
  • Line Location: ENO+4
Function Call: WRITE
  • Prompt: !!,"This order is part of a complex order. If you discontinue this order the",!,"following orders will be discontinued too (unless the stop date has already",!,"been reached)."
  • Line Location: ENO+6
Function Call: WRITE
  • Prompt: !!,"Do you want to ",$S(PSJCOM:"discontinue this series of complex orders",CF:"discontinue this order",1:"mark this order for discontinuation")
  • Line Location: ENO+7
Function Call: WRITE
  • Prompt: !!,"This order is part of a complex order. If you discontinue this order the",!,"following orders will be discontinued too (unless the stop date has already",!,"been reached)."
  • Line Location: ENO+9
Function Call: WRITE
  • Prompt: !!,"Do you want to discontinue this series of complex orders"
  • Line Location: ENO+10
Function Call: WRITE
  • Prompt: !!,"Do you want to discontinue this order"
  • Line Location: ENO+11
Function Call: WRITE
  • Prompt: !!,"Enter DC to discontinue the above order or press <RETURN> to continue:"
  • Line Location: ENO+12
Function Call: WRITE
  • Prompt: !,"No action taken!"
  • Condition for execution: %=2
  • Line Location: ENO+12
Function Call: WRITE
  • Prompt: !!,"Do you want mark this order for discontinuation"
  • Line Location: ENO+13
Function Call: WRITE
  • Prompt: !!,"THIS ORDER HAS"
  • Line Location: ENO+14
Function Call: WRITE
  • Prompt: "..."
  • Line Location: ENO+15
Function Call: WRITE
  • Prompt: " . . . DONE!"
  • Line Location: ENO+15
Function Call: WRITE
  • Prompt: !!,"...one moment, please..."
  • Line Location: SOC+1
Function Call: WRITE
  • Prompt: $S(PSJCOM:"...ORDER ",1:"...ORDERS "),$S(CF:"DISCONTINUED!",1:"MARKED!")
  • Line Location: OUT+1
Function Call: WRITE
  • Prompt: !!,"Is this due to the patient being transferred"
  • Line Location: T+1
Function Call: WRITE
  • Prompt: !!?5,DRG_" "_DO
  • Line Location: PNDRNA+9
Function Call: WRITE
  • Prompt: !?5,"This order has a pending status. If this pending order"
  • Line Location: PNDRNA+10
Function Call: WRITE
  • Prompt: !?5,"is discontinued, the original order may still be active."
  • Line Location: PNDRNA+11
Function Call: READ
  • Variable: X
  • Timeout: $S($D(DTIME):DTIME,1:300)
  • Line Location: TST4DC+1

FileMan Files Accessed Via FileMan Db Call

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