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

Package: Inpatient Medications

Routine: PSGMAR


Information

PSGMAR ;BIR/CML3-24 HOUR MAR - MAIN DRIVER ;14 Oct 98 / 4:27 PM

Source Information

Source file <PSGMAR.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
ENDATE ; get start date
ENQ ; when queued
OUT
DONE ;
G ; get ward group
W ; get ward
P ; get patient
C ;
CDIC ;
L ;
LDIC ;
DEV ; ask print device and queue if asked to
BH ;
DH ;
SHTH ;
ENLM ;

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Timeout: DTIME
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: " (Both)"
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: $S(X="C":"ontinuous",X="P":"RN",1:"oth")
  • Line Location: EN+7
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ENDATE+1
Function Call: WRITE
  • Prompt: !!,"Enter START DATE/TIME for 24 hour MAR: "
  • Line Location: ENDATE+1
Function Call: WRITE
  • Prompt: X="^"
  • Condition for execution: '$T $C(7) S:'$T
  • Line Location: ENDATE+1
Function Call: WRITE
  • Prompt: $C(7),!!?5,"(No date selected for MAR run.)"
  • Line Location: ENDATE+2
Function Call: WRITE
  • Prompt: $C(7),!!?5,"(No patient(s) selected for MAR run.)"
  • Line Location: OUT+0
Function Call: WRITE
  • Prompt: !
  • Line Location: G+1
Function Call: WRITE
  • Prompt: !
  • Line Location: C+4
Function Call: WRITE
  • Prompt: !
  • Line Location: L+2
Function Call: WRITE
  • Prompt: !!," Enter a 'Y' to print BLANK (no data) MARs for the patient(s) you select.",!,"Enter an 'N' (or press the RETURN key) to print MARs complete with orders.",!,"Enter an '^' to exit this option now."
  • Line Location: BH+1
Function Call: WRITE
  • Prompt: !!?2,"Enter the START DATE of the 24 hour period for which this MAR is to print.",!,"Unless the BLANK MARs are selected, all orders for the patient(s) selected that",!,"are (or were) active during the date range selected will print."
  • Line Location: DH+1
Function Call: WRITE
  • Prompt: !?2,"Time is not required. If time is not entered, the default time is used (if",!,"found in the site parameters). If the default time is not found, the start of",!,"the day is used."
  • Line Location: DH+2
Function Call: WRITE
  • Prompt: !!?2,"Enter 'C' to print ONLY CONTINUOUS blank sheets for the patients selected.",!,"Enter 'P' to print ONLY PRN sheets. Enter 'B' (or press RETURN) to print BOTH",!,"sheets for each patient."
  • Line Location: SHTH+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(42 - [#42] Classic Fileman Calls
^SC - [#44] Classic Fileman Calls
^PS(57.5 - [#57.5] Classic Fileman Calls
^PS(57.8 - [#57.8] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call