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

Package: Auto Replenishment Ward Stock

Routine: PSGWRAC


Information

PSGWRAC ;BHAM ISC/CML-Print AOU Status for AMIS - Inpatient Site, Returns, and AMIS Count ; 19 Mar 93 / 8:35 AM

Source Information

Source file <PSGWRAC.m>

Entry Points

Name Comments DBIA/ICR reference
DEV
ENQ ;ENTRY POINT WHEN QUEUED
AOU
BUILD ;BUILD DATA ELEMENTS
SETGL ;
PRTQUE ;AFTER DATA IS COMPILED, QUEUE THE PRINT
PRINT ;
DONE
QUIT ;
WRTDATA ;DATA LINES
HDR ;HEADER
PRTCHK ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This option prints a list of active AOUs displaying the following data:",!!?5,"1. INPATIENT SITE",!?5,"2. RETURNS CREDITED TO",!?5,"3. COUNT ON AMIS"
  • Line Location: PSGWRAC+3
Function Call: WRITE
  • Prompt: !!,"Right margin for this report is 80 columns.",!,"You may queue the report to print at a later time.",!!
  • Line Location: PSGWRAC+4
Function Call: WRITE
  • Prompt: !,"You MUST create AOUs before running this report!"
  • Line Location: PSGWRAC+5
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!"
  • Line Location: DEV+0
Function Call: WRITE
  • Prompt: !?17,"***** NO DATA AVAILABLE FOR THIS REPORT *****"
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DONE+0
Function Call: WRITE
  • Prompt: !,AOUNM,?31,$S(SITE="ZZSITE":"NONE LISTED",1:SITE),?64,RET,?74,ACNT
  • Line Location: WRTDATA+1
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !?22,"AOU LISTING - RETURNS AND AMIS COUNT",?70,"PAGE: ",PG,!?31,"PRINTED: ",HDT,!!?74,"COUNT",!?62,"RETURNS",?74,"ON",!,"AREA OF USE (AOU)",?33,"INPATIENT SITE",?60,"CREDITED TO AMIS?",!,LN
  • Line Location: HDR+1
Function Call: READ
  • Variable: ANS
  • Timeout: DTIME
  • Line Location: PRTCHK+1
Info |  Source |  Entry Points |  Interaction Calls