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

Package: Inpatient Medications

Routine: PSGOER


Information

PSGOER ;BIR/CML3 - RENEW A SINGLE ORDER ;12 June 2019 09:31:53

Source Information

Source file <PSGOER.m>

Entry Points

Name Comments DBIA/ICR reference
UNMARK ;
DONE ;
NEW ; get info, write record
EXTEND ; extend stop date on renewal order
SPEED ;
MARK ;
MOVE(X,Y) ; Move comments/dispense drugs from 55 to 53.45.
OC55 ;* Order checks for Speed finish and regular finish
NEWOC55 ;
UPDREN(PSGORD,RNWDT,PSGOEPR,PSGOFD,PSJNOO,RDUZ) ; update renewed order
UPDRENOE(PSGP,PSGORD,RDATE) ;
READ ; hold screen
EXPOE(DFN,PSJORDER,EXPDT) ; expire old Orders File entry
EXPIRED(PSJX,PSJY) ;
; INPUT
; PSJX - Pharmacy Patient, pointer to ^PS(55
; PSJY - Inpatient Order Number(appended with "V" or "U")
; OUTPUT
; 0 - Order has not exceeded the Expired Time Limit
; 1 - Order has exceeded the Expired Time Limit
NXTDOW(DOWDFN,DOWSD,DOWFD,DOWSCH,DOWAT) ;
PRNFREQ(SCHED) ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?3,"This order contains a 'DAY OF THE WEEK' schedule without admin times"
  • Line Location: PSGOER+20
Function Call: WRITE
  • Prompt: !!
  • Line Location: PSGOER+29
Function Call: WRITE
  • Prompt: !!,"THIS ORDER HAS BEEN 'MARKED FOR RENEWAL'.",!
  • Line Location: UNMARK+1
Function Call: WRITE
  • Prompt: "...DONE!"
  • Line Location: UNMARK+4
Function Call: WRITE
  • Prompt: !!?5,"THIS ONE-TIME ORDER HAS ALREADY BEEN GIVEN AND CANNOT BE RENEWED",!
  • Line Location: EXTEND+3
Function Call: WRITE
  • Prompt: !!,"...updating order..."
  • Line Location: SPEED+4
Function Call: WRITE
  • Prompt: "."
  • Line Location: SPEED+4
Function Call: WRITE
  • Prompt: ".DONE!"
  • Line Location: SPEED+11
Function Call: WRITE
  • Prompt: $C(7),!!?3,"...THIS ORDER IS ALREADY MARKED FOR RENEWAL!..."
  • Line Location: MARK+1
Function Call: WRITE
  • Prompt: "."
  • Line Location: MARK+2
Function Call: WRITE
  • Prompt: !!,"No active dispense drug was found"
  • Line Location: NEWOC55+11
Function Call: WRITE
  • Prompt: !?5,"Press return to continue "
  • Line Location: READ+2
Info |  Source |  Entry Points |  Interaction Calls