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

Package: Inpatient Medications

Routine: PSJCOMR


Information

PSJCOMR ;BIR/CML3-RENEW A COMPLEX ORDER SERIES ;07 MAR 96 / 1:23 PM

Source Information

Source file <PSJCOMR.m>

Entry Points

Name Comments DBIA/ICR reference
UNMARK ;
DONE ;
NEW ; get info, write record
NEWUD
FILEUD ;
MARK ;
MOVE(X,Y) ; Move comments/dispense drugs from 55 to 53.45.
OC55 ;* Order checks for Speed finish and regular finish
RIV ; Renew order.
NEWIV ;Renew complex IV orders
R1
FILEIV ;
TEMP(VARS) ;
RD ; Delete for renew.
OK ;Print example label, run order through checker, ask if it is ok.
RI ; Reinstate Auto-DC'ed order.
ABORT ; No changes

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This order is part of a complex order. If you "_$S($P(PSJSYSP0,"^",3):"RENEW",1:"MARK")_" this order the",!,"following orders will be "_$S($P(PSJSYSP0,"^",3):"RENEWED",1:"MARKED")_" too."
  • Line Location: PSJCOMR+12
Function Call: WRITE
  • Prompt: !!
  • Line Location: PSJCOMR+13
Function Call: WRITE
  • Prompt: !!,"THIS COMPLEX ORDER SERIES HAS BEEN 'MARKED FOR RENEWAL'.",!
  • Line Location: UNMARK+1
Function Call: WRITE
  • Prompt: "...DONE!"
  • Line Location: UNMARK+6
Function Call: WRITE
  • Prompt: !!,"By not verifying all the orders, none of the orders will be verified."
  • Line Location: NEW+5
Function Call: WRITE
  • Prompt: !!,"...updating order..."
  • Line Location: NEWUD+7
Function Call: WRITE
  • Prompt: "."
  • Line Location: NEWUD+7
Function Call: WRITE
  • Prompt: !!,"...updating order..."
  • Line Location: FILEUD+8
Function Call: WRITE
  • Prompt: "."
  • Line Location: FILEUD+8
Function Call: WRITE
  • Prompt: ".DONE!"
  • Line Location: FILEUD+16
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: !
  • Line Location: NEWIV+3
Function Call: WRITE
  • Prompt: !
  • Line Location: OK+4
Function Call: WRITE
  • Prompt: !,"Start date: "
  • Line Location: OK+4
Function Call: WRITE
  • Prompt: !,"Start date: "
  • Line Location: OK+4
Function Call: WRITE
  • Prompt: !,"Start date: "
  • Line Location: OK+4
Function Call: WRITE
  • Prompt: !!,$C(7),"This order has been Auto-DC'ed."
  • Line Location: RI+1
Function Call: WRITE
  • Prompt: !!,$C(7),"This order's provider is no longer valid. Please enter a valid provider."
  • Line Location: RI+6
Function Call: WRITE
  • Prompt: $C(7),"Order unchanged."
  • Line Location: RI+6
Function Call: WRITE
  • Prompt: !!,$C(7),"No changes made to this order."
  • Line Location: ABORT+1
Info |  Source |  Entry Points |  Interaction Calls