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

Package: Inpatient Medications

Routine: PSGOE8


Information

PSGOE8 ;BIR/CML - EDIT ORDERS IN 53.1; Jan 28, 2025@14:32

Source Information

Source file <PSGOE8.m>

Entry Points

Name Comments DBIA/ICR reference
101 ;Orderable Item
A101 ;
A201
109 ; dosage ordered
A109 ;
3 ; med route
A3
26 ; schedule
A26
7 ; schedule type
A7
DONE ;
DEL ; delete entry
DH ;
CHECK(PSJSYSP) ; Check to see if multiple dispense drugs
; Input - PSJSYSP
; Returns 0 = only one.
; 1 = more than one
; Checks Inactive Date and doesn't count if < or = today.
PNDREN(PNDON) ;
SCHTP(SCH) ; *223 Return SCHedule type

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 at this point."
  • 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: A201+4
Function Call: WRITE
  • Prompt: !
  • Line Location: A201+20
Function Call: WRITE
  • Prompt: !!?5,"Dosage may not be edited at this point."
  • Line Location: A109+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: A109+5
Function Call: WRITE
  • Prompt: !,"DOSAGE ORDERED: ",$S(PSGDO]"":PSGDO_"// ",1:"")
  • Line Location: A109+5
Function Call: WRITE
  • Prompt: $C(7)," (Required) "
  • Line Location: A109+7
Function Call: WRITE
  • Prompt: $C(7)," (Required) "
  • Line Location: A109+8
Function Call: WRITE
  • Prompt: $C(7)," ",$S(X?1.P!(X=""):"(Required)",1:"??")
  • Line Location: A109+13
Function Call: WRITE
  • Prompt: !!?5,"Med Route may not be edited at this point."
  • 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,"Schedule may not be edited at this point."
  • 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 may cause the Admin Times and the Start Time to be out of sync."
  • Line Location: A26+32
Function Call: WRITE
  • Prompt: !!,"NOTE: This change in schedule also changes the ADMIN TIMES and SCHEDULE TYPE.",!
  • Line Location: A26+33
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: A7+0
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: A7+0
Function Call: WRITE
  • Prompt: " ??"
  • Line Location: A7+3
Function Call: WRITE
  • Prompt: " ??"
  • Line Location: A7+4
Function Call: WRITE
  • Prompt: !," SCHEDULE ("_PSGSCH_") is not a ONE TIME Schedule."
  • Line Location: A7+8
Function Call: WRITE
  • Prompt: !," SCHEDULE ("_PSGSCH_") is not a CONTINUOUS Schedule."
  • Line Location: A7+10
Function Call: WRITE
  • Prompt: $C(7)," <NOTHING DELETED>"
  • Line Location: DEL+1
Function Call: WRITE
  • Prompt: !!?2,"When the drug of an order is changed, the Dosage Ordered and Dispense Drug(s)",!,"for the order are no longer valid, and therefore deleted from the order.",!,"If possible, a new corresponding dispense drug will be added to the order."
  • Line Location: DH+1
Function Call: WRITE
  • Prompt: !!?2,"Answer 'YES' to continue with this change. Answer 'NO' to select another",!,"drug or to accept the drug as it was. Enter an '^' to exit this edit."
  • Line Location: DH+2

FileMan Files Accessed Via FileMan Db Call

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