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

Package: Inpatient Medications

Routine: PSGOEF1


Information

PSGOEF1 ;BIR/CML3 - FINISH ORDERS ENTERED THROUGH OE/RR (CONT) ; Feb 02, 2022

Source Information

Source file <PSGOEF1.m>

Entry Points

Name Comments DBIA/ICR reference
UPD ;
ENDRG(PSGPDRG,DRGDA) ; enter dispense drug for order w/o one
DRGH ;
ENIVUD(PSJORD)
ENUD(PSJORD,PSGPD)
THELP(PKG,COI) ;
ENCKDD(PSGP,PSJDRG) ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"...accepting order..."
  • Line Location: UPD+1
Function Call: WRITE
  • Prompt: "."
  • Line Location: UPD+19
Function Call: WRITE
  • Prompt: "."
  • Line Location: UPD+20
Function Call: WRITE
  • Prompt: $C(7),!!,"No dispense drugs were found for this order's Orderable Item."
  • Line Location: ENDRG+4
Function Call: WRITE
  • Prompt: !?3,$J(Q,3),". ",$P(DRG(Q),"^",2),?60,$$DRGSTOCK^PSJPADSI(DFN,$G(PSGORD),,,+$G(DRG(Q)))
  • Line Location: ENDRG+17
Function Call: WRITE
  • Prompt: !!,"CHOOSE FROM:"
  • Line Location: ENDRG+18
Function Call: WRITE
  • Prompt: !?3,$J(Q,3),". ",$P(DRG(Q),"^",2)
  • Line Location: ENDRG+18
Function Call: WRITE
  • Prompt: !
  • Line Location: ENDRG+19
Function Call: WRITE
  • Prompt: !!,$P(DRG(Q2),U,2)
  • Line Location: ENDRG+26
Function Call: WRITE
  • Prompt: !!?2,"This order must have at least one dispense drug before it can be completed.",!,"Select one or more items listed. For each item selected, you will be",!,"prompted for the UNITS PER DOSE for the item."
  • Line Location: DRGH+1
Function Call: WRITE
  • Prompt: !!!!,"You need the PSJI RNFINISH key to finish this order as IV!"
  • Line Location: ENIVUD+16
Function Call: WRITE
  • Prompt: !!!!,"You need the PSJ RNFINISH key to finish this order as Unit Dose!"
  • Line Location: ENIVUD+19
Function Call: WRITE
  • Prompt: !!!!,"You may not finish this order as Unit Dose!"
  • Line Location: ENIVUD+20
Function Call: WRITE
  • Prompt: !,"Choose the package this order should be completed as a IV or Unit Dose order",!
  • Line Location: THELP+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