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

Package: Inpatient Medications

Routine: PSGOE92


Information

PSGOE92 ;BIR/CML - ACTIVE ORDER EDIT (CONT.) ;2/18/10 4:15pm

Source Information

Source file <PSGOE92.m>

Entry Points

Name Comments DBIA/ICR reference
1 ; provider
A1
A2
5 ; self med
A5
6 ; hospital supplied self med
A6
2 ; dispense drug multiple
15 ; comments
72 ; provider comments
DONE ;
ENFF ; up-arrow to another field
DEL ; delete entry
YN ; yes/no as a set of codes
F101 ;;101^PSGOE9
F109 ;;109^PSGOE9
F3 ;;3^PSGOE9
F7 ;;7^PSGOE9
PSGF26 ;;26^PSGOE9
F41 ;;41^PSGOE91
F8 ;;8^PSGOE91
F10 ;;10^PSGOE91
F34 ;;34^PSGOE91
F1 ;;1^PSGOE92
F5 ;;5^PSGOE92
PSGF2 ;;2^PSGOE92

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?5,"Provider may not be edited for active complex orders."
  • Line Location: A1+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: A1+2
Function Call: WRITE
  • Prompt: !,"PROVIDER: ",$S(PSGPR:PSGPRN_"// ",1:"")
  • Line Location: A1+2
Function Call: WRITE
  • Prompt: $C(7)," (Required)"
  • Line Location: A1+5
Function Call: WRITE
  • Prompt: !
  • Line Location: A2+1
Function Call: WRITE
  • Prompt: !!?5,"Self Med may not be edited for active complex orders."
  • Line Location: 5+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: A5+0
Function Call: WRITE
  • Prompt: !,"SELF MED: "
  • Line Location: A5+0
Function Call: WRITE
  • Prompt: $P("NO^YES","^",PSGSM+1),"// "
  • Condition for execution: PSGSM]""
  • Line Location: A5+0
Function Call: WRITE
  • Prompt: $C(7)," (Required)"
  • Line Location: A5+2
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: A5+6
Function Call: WRITE
  • Prompt: !!?5,"Hospital Supplied Self Med may not be edited for active complex orders."
  • Line Location: A6+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: A6+2
Function Call: WRITE
  • Prompt: !,"HOSPITAL SUPPLIED SELF MED: "
  • Line Location: A6+2
Function Call: WRITE
  • Prompt: $P("NO^YES","^",PSGHSM+1),"// "
  • Condition for execution: PSGHSM]""
  • Line Location: A6+2
Function Call: WRITE
  • Prompt: " (",$P("NO^YES","^",PSGHSM+1),")"
  • Line Location: A6+3
Function Call: WRITE
  • Prompt: $C(7)," (Required)"
  • Line Location: A6+4
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: A6+8
Function Call: WRITE
  • Prompt: !,"You are not authorized to edit Dispense Drugs."
  • Line Location: 2+2
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: 2+5
Function Call: WRITE
  • Prompt: $C(7),!!,"WARNING: This order must have at least one dispense drug before pharmacy can",!?9,"verify it!",!
  • Line Location: 2+29
Function Call: WRITE
  • Prompt: !!?5,"Comments may not be edited for active complex orders."
  • Line Location: 15+2
Function Call: WRITE
  • Prompt: !
  • Line Location: 15+3
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: ENFF+1
Function Call: WRITE
  • Prompt: $C(7)," <NOTHING DELETED>"
  • Line Location: DEL+1
Function Call: WRITE
  • Prompt: $P(Y,X,2)
  • Line Location: YN+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^PSDRUG - [#50] GET1^DIQ
^PS(53.1 - [#53.1] GET1^DIQ
53.4502 GET1^DIQ,  LIST^DIC
55.01 GET1^DIQ
55.06 GET1^DIQ
55.07 LIST^DIC
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call