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

Package: Inpatient Medications

Routine: PSGPER1


Information

PSGPER1 ;BIR/CML3-PRINTS PRE-EXCHANGE NEEDS REPORT ; 2/8/18 11:56am

Source Information

Source file <PSGPER1.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; Entry point
DEV ; Select Device
DEV0 ; Validate Device
DEV1 ; Device validation loop
DONE ;
OUT ;
POP ;
AG ;
AGMSG ;
DEFON() ; All Pre-Exchange Devices have been removed from Ward Parameters - restore previous functionality
DEFCL(PSGPXN,CLINICS) ; Default devices for Clinics
TASKPRGE(PXN) ; Task purge of entry from file 53.4
PURGE ; Purge entry from file 53.4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"PRE-EXCHANGE UNITS REPORT"
  • Line Location: DEV1+1
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

FileMan Files Accessed Via FileMan Db Call

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