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

Package: Inpatient Medications

Routine: PSJOE1


Information

PSJOE1 ;BIR/CML - UD OE FOR COMBINED OE; Oct 14, 2020@10:48

Source Information

Source file <PSJOE1.m>

Entry Points

Name Comments DBIA/ICR reference
CM ; Ask Clinic - Clinic Medication Order ;*p319
SVST ;get scheduled/new visits ;*p319
V1
PVST() ;ask about past visit
EN ;
AD ; Ask Drug
OC ;
EDIT(PROMPT) ;
; Edit fields in a UD order.
; PROMPT=0 - Select fields to edit by number.
; PROMPT=1 - Prompt to select fields for editing.
DONE ;
GDO ;
FTD ;
TAM ; Try Again Message
ACTLOC(LOC) ; Function: returns TRUE if active hospital location; p319
; IA# 10040.
IMOLOC(LOC,PSGP) ; Is it an IMO location; p319

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: CM+3
Function Call: WRITE
  • Prompt: !!?4,"Scheduled Clinic Appointment (",$$FMTE^XLFDT(STDT)," thru ",$$FMTE^XLFDT(ENDT),")"
  • Line Location: V1+0
Function Call: WRITE
  • Prompt: !,I,". ",$P(YY,"^"),?35,$$FMTE^XLFDT($P(YY,"^",2)),?55,$P(YY,"^",3)
  • Line Location: V1+1
Function Call: WRITE
  • Prompt: !,"Date/Time of Visit: ",$P(PSJVIS(VST),"^",2)
  • Line Location: V1+8
Function Call: WRITE
  • Prompt: IOSC,@IOSTBM,IORC
  • Line Location: AD+4
Function Call: WRITE
  • Prompt: !,"No order created."
  • Line Location: AD+34
Function Call: WRITE
  • Prompt: !!,"Drug is not found in Formulary List."
  • Line Location: GDO+1
Function Call: WRITE
  • Prompt: !,"Would you like to try to search the list again"
  • Line Location: GDO+1
Function Call: READ
  • Formatting: !!
  • Prompt: "Enter FREE TEXT DRUG: "
  • Variable: PSGDRGN
  • Timeout: DTIME
  • Line Location: FTD+1
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: FTD+1
Function Call: WRITE
  • Prompt: $C(7)," ??",!?2,"(",X," not allowed.)"
  • Line Location: FTD+2
Function Call: WRITE
  • Prompt: !!?2,"ENTER DRUG ORDERED (1-39 CHARACTERS).",!?2,"Since the drug cannot be found in the DRUG file, enter the drug name here",!,"exactly as ordered. Press the RETURN key (or enter an '^') to skip over this",!,"drug, or to again search the"
  • Line Location: FTD+4
Function Call: WRITE
  • Prompt: " DRUG file for this one."
  • Line Location: FTD+5
Function Call: WRITE
  • Prompt: !!," Enter a 'Y' to try again to find the drug ordered from the Formulary. (The",!,"order cannot become active until a Formulary drug has been entered.) Enter 'N'",!,"to enter the drug ordered as free text for later reference."
  • Line Location: TAM+1
Function Call: WRITE
  • Prompt: " Enter '^' to exit.",!
  • Line Location: TAM+2

FileMan Files Accessed Via FileMan Db Call

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