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

Package: Inpatient Medications

Routine: PSGOE82


Information

PSGOE82 ;BIR/CML - NON-VERIFIED ORDER EDIT (CONT.) ;Oct 14, 2020@16:44:24

Source Information

Source file <PSGOE82.m>

Entry Points

Name Comments DBIA/ICR reference
1 ; provider
A1
A01 ;
A2
5 ; self med
A5
6 ; hospital supplied self med
A6
2 ; dispense drug multiple
40 ; comments
66 ; provider comments
DONE ;
ENFF ; up-arrow to another field
DEL ; delete entry
CLOZPRV ;; START NCC T4 MODS >> 327*RJS
YN ; yes/no as a set of codes
DDOC(PSGX) ; Order check on additional dispense drug for allergy and adv. reactions.
50
51
F101 ;;101^PSGOE8
F109 ;;109^PSGOE8
F3 ;;3^PSGOE8
F7 ;;7^PSGOE8
PSGF26 ;;26^PSGOE8
F39 ;;39^PSGOE81
F8 ;;8^PSGOE81
F10 ;;10^PSGOE81
PSGF25 ;;25^PSGOE81
F1 ;;1^PSGOE82
F5 ;;5^PSGOE82
PSGF2 ;;2^PSGOE82

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?5,"This order has been renewed. Provider may not be edited at this point. "
  • Line Location: A1+1
Function Call: WRITE
  • Prompt: !,"PROVIDER: ",$S(PSGPR:PSGPRN_"// ",1:"")
  • Line Location: A01+1
Function Call: WRITE
  • Prompt: $C(7)," (Required)"
  • Line Location: A01+3
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),"// "
  • Line Location: A5+0
Function Call: WRITE
  • Prompt: $C(7)," (Required)"
  • Line Location: A5+3
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: A5+7
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: A6+0
Function Call: WRITE
  • Prompt: !,"HOSPITAL SUPPLIED SELF MED: "
  • Line Location: A6+0
Function Call: WRITE
  • Prompt: $P("NO^YES","^",PSGHSM+1),"// "
  • Condition for execution: PSGHSM]""
  • Line Location: A6+0
Function Call: WRITE
  • Prompt: " (",$P("NO^YES","^",PSGHSM+1),")"
  • Line Location: A6+1
Function Call: WRITE
  • Prompt: $C(7)," (Required)"
  • Line Location: A6+2
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: A6+6
Function Call: WRITE
  • Prompt: !,"You are not authorized to edit Dispense Drugs."
  • Line Location: 2+2
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+30
Function Call: WRITE
  • Prompt: !
  • Line Location: 40+1
Function Call: WRITE
  • Prompt: !
  • Line Location: 66+1
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(50.7 - [#50.7] GET1^DIQ
^PS(53.1 - [#53.1] GET1^DIQ
53.4502 GET1^DIQ,  LIST^DIC
55.06 GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call