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
Print Page as PDF
Routine: PSGOU

Package: Inpatient Medications

Routine: PSGOU


Information

PSGOU ;BIR/CML3,MV-PROFILE UTILITIES ;19 SEP 96 / 3:59 PM

Source Information

Source file <PSGOU.m>

Entry Points

Name Comments DBIA/ICR reference
ECHK ;
DS ; Get drug name
SET ; Set orders into TMP
ENS
ENL ; Ask profile type
SCHK ; Sort type
SM
LCHK ; Long or short profile
LM
ENU ; update status field to reflect expired orders, if necessary
ENUNM ;
ENGORD ; get and sort orders
MAE ; change status to expired
ENUH ;
CKPC(DFN,OLDON,NEWON) ; Compare old provider comments to new for speed finish.
ENRNAT(OWD,NWD,SC,OAT) ; Determine admin times for renewal orders.

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Formatting: !!
  • Prompt: "Sort by DATE or MEDICATION: M// "
  • Variable: PSGOS
  • Timeout: DTIME
  • Line Location: ENS+0
Function Call: READ
  • Variable: PSGOL
  • Timeout: DTIME
  • Line Location: ENL+3
Function Call: WRITE
  • Prompt: !!,"SHORT, LONG, or NO Profile? ",$S('$D(PSJPDD)!$G(PSJCLCHK):"SHORT",'PSJPDD:"SHORT",1:"LONG"),"// "
  • Line Location: ENL+3
Function Call: WRITE
  • Prompt: PSGOL="^"
  • Condition for execution: '$T $C(7) S:'$T
  • Line Location: ENL+3
Function Call: WRITE
  • Prompt: "MEDICATION"
  • Line Location: SCHK+2
Function Call: WRITE
  • Prompt: $P(X,PSGOS,2)
  • Line Location: SCHK+3
Function Call: WRITE
  • Prompt: !!?3,"Enter 'MEDICATION' (or 'M', or press the RETURN key to have this patient's orders shown alphabetically by drug name. Enter 'DATE' (or 'D') to have this patient's orders shown by start date (the newest orders showing first)."
  • Line Location: SM+0
Function Call: WRITE
  • Prompt: " Enter a '^' to not show this patient's orders."
  • Line Location: SM+1
Function Call: WRITE
  • Prompt: $S('$D(PSJPDD):" SHORT",'PSJPDD:" SHORT",1:" LONG")
  • Line Location: LCHK+2
Function Call: WRITE
  • Prompt: $P(X,PSGOL,2)
  • Line Location: LCHK+4
Function Call: WRITE
  • Prompt: !!?3,"Enter 'SHORT' (or 'S', or press the RETURN key) to exclude this patient's",!,"discontinued and expired orders in the following profile. Enter 'LONG' (or 'L') to include those orders."
  • Line Location: LM+0
Function Call: WRITE
  • Prompt: " Enter 'NO' (or 'N') to bypass the profile com-",!,"pletely. Enter '^' if you wish to go no further with this patient."
  • Line Location: LM+1
Function Call: WRITE
  • Prompt: !!,"...a few moments, I have some updating to do..."
  • Line Location: ENU+1
Info |  Source |  Entry Points |  Interaction Calls