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

Package: Inpatient Medications

Routine: PSGOE7


Information

PSGOE7 ;BIR/CML3 - SELECT DRUG ;Mar 25, 2020@13:21:35

Source Information

Source file <PSGOE7.m>

Entry Points

Name Comments DBIA/ICR reference
AD ; Ask Drug
AD1 ;
DGCKX
DO ; dosage ordered
DONE ;
NF ;
NFOH ;
CHKDRG(DRG) ; Determine if dispense drug is valid for Unit Dose.
SNFM ; show non-formulary message
GTNEDFD(APP,PDRG) ; Find defaults from Orderable Item.
PKGFLG(PKF) ;Return 0 for not in range of acceptable package flags, 1 for within range
GCN(PSGIENID) ;Return 0 for not matched, 1 for matched with no GCNSEQNO, 1^1 for matched with a GCNSEQNO

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Formatting: !!
  • Prompt: "Select DRUG: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: AD1+3
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: AD1+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: AD1+8
Function Call: WRITE
  • Prompt: !!?2,"Select the medication you wish the patient to receive."
  • Line Location: AD1+12
Function Call: WRITE
  • Prompt: " You should consult",!,"with your pharmacy before ordering any non-formulary medication."
  • Condition for execution: PSJSYSU<3
  • Line Location: AD1+12
Function Call: WRITE
  • Prompt: !
  • Line Location: AD1+12
Function Call: WRITE
  • Prompt: !!,"There are no formulary alternatives entered for this item."
  • Line Location: NF+3
Function Call: WRITE
  • Prompt: " You should consult",!,"with your pharmacy before ordering this item."
  • Condition for execution: PSJSYSU>2
  • Line Location: NF+3
Function Call: WRITE
  • Prompt: !!,Q3," has been entered as a formulary "
  • Line Location: NF+4
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>67
  • Line Location: NF+4
Function Call: WRITE
  • Prompt: "alternative."
  • Line Location: NF+4
Function Call: WRITE
  • Prompt: !!,"Is ",$S(Q=1:"this",1:Q3)," acceptable"
  • Line Location: NF+5
Function Call: WRITE
  • Prompt: !
  • Line Location: NF+7
Function Call: WRITE
  • Prompt: !!?2
  • Line Location: NFOH+2
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $L(Z)+$X+2>IOM
  • Line Location: NFOH+2
Function Call: WRITE
  • Prompt: Z," "
  • Line Location: NFOH+2
Function Call: WRITE
  • Prompt: !,$G(^(Q,0))
  • Line Location: SNFM+1
Function Call: WRITE
  • Prompt: !
  • Line Location: SNFM+2

FileMan Files Accessed Via FileMan Db Call

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