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

Package: Inpatient Medications

Routine: PSGOECS


Information

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

Source Information

Source file <PSGOECS.m>

Entry Points

Name Comments DBIA/ICR reference
AM ;
NM ;
AC ; discontinue active order
NC ; discontinue non-verified order
NC2 ; Called from PNDRN to discontinue both pending renewal and original order
EN ; enter here
EN1 ;
RESET ;
DONE ;
DCOR ; Create DC order/update stop date in OE/RR.
ENOR ;
ENOR2 ;Check to see if order being DC'd is a Pending Renewal and is being DC'd due to edit.
CHKCOM ;Check to see if order is part of complex order series.
DCCOM ;DC pending/non-verified complex order
PNDRN(PSJDCTYP) ; Discontinue both pending renewal and original order

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"...marking ",$P(X,U),"..."
  • Line Location: AM+1
Function Call: WRITE
  • Prompt: "."
  • Line Location: AM+1
Function Call: WRITE
  • Prompt: "."
  • Line Location: AM+1
Function Call: WRITE
  • Prompt: !,"...marking ",$P(X,U),"..."
  • Line Location: NM+1
Function Call: WRITE
  • Prompt: "."
  • Line Location: NM+1
Function Call: WRITE
  • Prompt: !,$P($$DRUGNAME^PSJLMUTL(DFN,PSGORD),U,1),!,"NO ACTION WAS TAKEN ON DONE ORDER",!,$C(7)
  • Line Location: AC+3
Function Call: WRITE
  • Prompt: !,$P($$DRUGNAME^PSJLMUTL(DFN,PSGORD),U,1),!,"NO ACTION WAS TAKEN ON "_$$CODES^PSIVUTL(XX,55.06,28)_" ORDER",!,$C(7)
  • Line Location: AC+5
Function Call: WRITE
  • Prompt: !,"...discontinuing ",$P(X,U),"...",!
  • Line Location: AC+8
Function Call: WRITE
  • Prompt: !,"...discontinuing ",$P(X,U),"...",!
  • Line Location: NC2+3
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+8
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+21
Function Call: WRITE
  • Prompt: !,"NO ACTION WAS TAKEN",!,$C(7)
  • Line Location: EN1+21
Function Call: WRITE
  • Prompt: !,$P($$DRUGNAME^PSJLMUTL(DFN,PSGORD),"^",1),!,"NO ACTION WAS TAKEN",!,$C(7)
  • Line Location: EN1+25
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+26
Function Call: WRITE
  • Prompt: !,"NO ACTION WAS TAKEN",!,$C(7)
  • Line Location: EN1+26
Function Call: WRITE
  • Prompt: !
  • Line Location: CHKCOM+4
Function Call: WRITE
  • Prompt: !,$P($$DRUGNAME^PSJLMUTL(PSGP,PSGORD),"^",1)
  • Line Location: CHKCOM+7
Function Call: WRITE
  • Prompt: !!,"Do you want to discontinue this series of complex orders"
  • Line Location: CHKCOM+9
Function Call: WRITE
  • Prompt: !,"Order # ",PSGOECS2," could not be discontinued.",!,$C(7)
  • Line Location: DCCOM+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