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

Package: Inpatient Medications

Routine: PSGPER


Information

PSGPER ;BIR/CML3-PRINTS PRE-EXCHANGE NEEDS REPORT ;04 JAN 95 / 5:08 PM

Source Information

Source file <PSGPER.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; Entry point
DEV ; Select Device
DEV1 ; Get default device, select and validate device
OUT ; Clean up on the way out
POP ; Abort?
AG ;
AGMSG ;
CURDEF ;
DEFMSG ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"PRE-EXCHANGE UNITS REPORT"
  • Line Location: DEV1+2
Function Call: WRITE
  • Prompt: !,"Do you want another chance to choose a device"
  • Line Location: POP+2
Function Call: WRITE
  • Prompt: !?3,"Enter 'YES' to choose a device to print. Enter 'NO' to quit now."
  • Line Location: POP+2
Function Call: WRITE
  • Prompt: !!,"DO YOU NEED TO PRINT THIS REPORT AGAIN"
  • Line Location: AG+1
Function Call: WRITE
  • Prompt: $C(7)," ANSWER 'YES' OR 'NO' (Entry required)"
  • Line Location: AGMSG+1
Function Call: WRITE
  • Prompt: !," Enter 'YES' to print this report again. Enter 'NO' (or an '^') to quit",!,"now. PLEASE NOTE that you will NOT be able to retrieve this data at a later",!,"date. You should print this information now."
  • Line Location: AGMSG+2
Function Call: WRITE
  • Prompt: !!,"Keep ",ION," as the PRE-EXCHANGE REPORT DEVICE for this session"
  • Line Location: CURDEF+4
Function Call: WRITE
  • Prompt: !,$C(7)," ANSWER 'YES' OR 'NO' (Entry required)"
  • Line Location: DEFMSG+1
Function Call: WRITE
  • Prompt: !!," Enter 'YES' to make ",ION," the PRE-EXCHANGE REPORT default DEVICE"
  • Line Location: DEFMSG+2
Function Call: WRITE
  • Prompt: !," for the current session. PLEASE NOTE that this will override the ward"
  • Line Location: DEFMSG+3
Function Call: WRITE
  • Prompt: !," default PRE-EXCHANGE REPORT DEVICE for this session only."
  • Line Location: DEFMSG+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^%ZIS(1 - [#3.5] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call