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

Package: Inpatient Medications

Routine: PSJOE


Information

PSJOE ;BIR/MLM - INPATIENT ORDER ENTRY ;Jan 14, 2021@10:49:31

Source Information

Source file <PSJOE.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; Start Inpatient LM OE
DONE ;
; -- RTC 198753 - correct typo - r PSJALGSV w PSJAGYSV
HK ; Housekeeping (a nice COBOL term)
SELECT ; Select order from list
DISACTIO(DFN,PSJORD,PSJPNV)
SETOC ;
EDIT(PSGP,PSGORD,PROMPT) ;
RENEW(PSGP,PSGORD) ;
GTSTATUS(DFN,ON)
DC(DFN,PSJORD) ; DC IV, UD, or pending orders.
HOLD(DFN,PSJORD) ; Change order's status from ACTIVE<->HOLD
COPY(PSGP,PSGORD)
UPDATE
FINISH ;
LOG(DFN,PSGORD) ;
NEWSEL ;
HOLDHDR ; Freeze header text while processing order actions
LOCKERR ;
FLAG(DFN,PSJORD) ;Flag order through CPRS entry point.
COMPLEX(DFN,ON) ;
CLOZSND ; SEND CLOZAPINE OVERRIDE MESSAGE AND ORDER TO HINES DB
; START NCC REMEDIATION >> 327*RJS

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$C(7),$P(PSJLK,U,2)
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !,"This order is being edited by another terminal.",!
  • Line Location: DISACTIO+18
Function Call: WRITE
  • Prompt: !!,"Cannot process an Out-patient Unit Dose order for ",$P($G(^DPT(+PSGP,0)),U)
  • Line Location: DISACTIO+30
Function Call: WRITE
  • Prompt: !!,"Invalid schedule, can't finish this order"
  • Line Location: DISACTIO+33
Function Call: WRITE
  • Prompt: !,"This order may not be edited."
  • Line Location: EDIT+6
Function Call: WRITE
  • Prompt: !,"This order may not be edited."
  • Line Location: EDIT+7
Function Call: WRITE
  • Prompt: !!,"This order is already marked for renewal!"
  • Line Location: RENEW+11
Function Call: WRITE
  • Prompt: !,$S(X="R":"This order has a pending renewal and cannot be DISCONTINUED.",1:"This order has already been DISCONTINUED.")
  • Line Location: DC+2
Function Call: WRITE
  • Prompt: !!,"You cannot copy a clozapine order."
  • Line Location: COPY+3
Function Call: WRITE
  • Prompt: !!,"You cannot copy the order at this time"
  • Line Location: COPY+4
Function Call: WRITE
  • Prompt: !!,"You cannot copy this "_$S($G(PSGSTAT)]"":PSGSTAT,1:"PENDING IV")_" order."
  • Line Location: COPY+5
Function Call: WRITE
  • Prompt: !!,"You cannot copy the order at this time"
  • Line Location: COPY+7
Function Call: WRITE
  • Prompt: !!,"Nurse verified orders with a priority of DONE may not be Copied."
  • Line Location: COPY+12
Function Call: WRITE
  • Prompt: IOSC
  • Line Location: NEWSEL+5
Function Call: WRITE
  • Prompt: @IOSTBM
  • Line Location: NEWSEL+5
Function Call: WRITE
  • Prompt: @IOSTBM
  • Line Location: NEWSEL+5
Function Call: WRITE
  • Prompt: IOSC
  • Line Location: HOLDHDR+1
Function Call: WRITE
  • Prompt: @IOSTBM
  • Line Location: HOLDHDR+1
Function Call: WRITE
  • Prompt: @IOSTBM
  • Line Location: HOLDHDR+1
Function Call: WRITE
  • Prompt: !!,$C(7),"You are entering or editing an Inpatient Medication order in another session.",!,"Only one order entry/edit session is allowed for a user at a time.",!!
  • Line Location: LOCKERR+1
Info |  Source |  Entry Points |  Interaction Calls