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

Package: Inpatient Medications

Routine: PSGOE9


Information

PSGOE9 ;BIR/CML - EDIT ORDERS IN 55; Mar 29, 2025@10:35

Source Information

Source file <PSGOE9.m>

Entry Points

Name Comments DBIA/ICR reference
101 ; Orderable Item (AKA primary drug)
A101 ;
109 ; dosage ordered
A109 ;
3 ; med route
A3
7 ; schedule type
A7
26 ; schedule
A26
DONE ;
DEL ; delete entry

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$C(7),"WARNING! If you change the drug of an order, the Dosage Ordered and Dispense",!,"Drug(s) are deleted."
  • Line Location: 101+2
Function Call: WRITE
  • Prompt: !,"Do you wish to continue"
  • Line Location: 101+2
Function Call: WRITE
  • Prompt: !!?5,"Orderable Item may not be edited for active complex orders."
  • Line Location: A101+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: A101+3
Function Call: WRITE
  • Prompt: !,"ORDERABLE ITEM: ",$S(PSGPD:PSGPDN_"// ",1:"")
  • Line Location: A101+3
Function Call: WRITE
  • Prompt: $C(7)," (Required)"
  • Line Location: A101+5
Function Call: WRITE
  • Prompt: !!?5,"Dosage may not be edited for active complex orders."
  • Line Location: A109+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: A109+4
Function Call: WRITE
  • Prompt: !,"DOSAGE ORDERED: ",$S(PSGDO]"":PSGDO_"// ",1:"")
  • Line Location: A109+4
Function Call: WRITE
  • Prompt: $C(7)," (Required) "
  • Line Location: A109+6
Function Call: WRITE
  • Prompt: $C(7)," (Required)"
  • Line Location: A109+7
Function Call: WRITE
  • Prompt: $C(7)," ",$S(X?1.P!(X=""):"(Required)",1:"??")
  • Line Location: A109+12
Function Call: WRITE
  • Prompt: !!?5,"Med Route may not be edited for active complex orders."
  • Line Location: A3+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: A3+2
Function Call: WRITE
  • Prompt: !,"MED ROUTE: ",$S(PSGMR:PSGMRN_"// ",1:"")
  • Line Location: A3+2
Function Call: WRITE
  • Prompt: " "_$P(^(0),"^",3)
  • Line Location: A3+3
Function Call: WRITE
  • Prompt: $C(7)," (Required)"
  • Line Location: A3+4
Function Call: WRITE
  • Prompt: !!?5,"This order is part of a complex order. Please review the following ",!?5,"associated orders before changing this order."
  • Line Location: A7+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: A7+3
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: A7+3
Function Call: WRITE
  • Prompt: " ??"
  • Line Location: A7+6
Function Call: WRITE
  • Prompt: " ??"
  • Line Location: A7+7
Function Call: WRITE
  • Prompt: !," SCHEDULE ("_PSGSCH_") is not a ONE TIME Schedule."
  • Line Location: A7+11
Function Call: WRITE
  • Prompt: !," SCHEDULE ("_PSGSCH_") is not a CONTINUOUS Schedule."
  • Line Location: A7+13
Function Call: WRITE
  • Prompt: !!?5,"Schedule may not be edited for active complex orders."
  • Line Location: A26+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: A26+2
Function Call: WRITE
  • Prompt: !,"SCHEDULE: ",$S(PSGSCH]"":PSGSCH_"// ",1:"")
  • Line Location: A26+2
Function Call: WRITE
  • Prompt: $C(7)," (Required)"
  • Line Location: A26+3
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: A26+11
Function Call: WRITE
  • Prompt: !!,"NOTE: This change in schedule also changes the ADMIN TIMES and SCHEDULE TYPE.",!
  • Line Location: A26+32
Function Call: WRITE
  • Prompt: $C(7)," <NOTHING DELETED>"
  • Line Location: DEL+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(50.7 - [#50.7] Classic Fileman Calls
^PS(51.2 - [#51.2] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call