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

Package: Auto Replenishment Ward Stock

Routine: PSGWAIO


Information

PSGWAIO ;BHAM ISC/PTD,CML-AOU Inventory Outline for Selected Date Range ; 11 Aug 93 / 7:54 AM

Source Information

Source file <PSGWAIO.m>

Entry Points

Name Comments DBIA/ICR reference
BDT
EDT
DEV
ENQ ;ENTRY POINT WHEN QUEUED
DTLP
INVLP
PRINT ;PRINT AOU INVENTORY OUTLINE
AOU
WKDT
DUZ
DONE
END
HDR ;PRINT REPORT MAIN HEADER
BUILD ;STORE INVENTORY DATA FOR DATE RANGE
AOULP
TYPLP
SETGL
WRTYPE
PRTCHK ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"The right margin for this report is 80.",!,"You may queue the report to print at a later time.",!!
  • Line Location: EDT+1
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!"
  • Line Location: DEV+0
Function Call: WRITE
  • Prompt: !?5,"NO INVENTORIES LISTED FOR SELECTED DATES."
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !?5,Y
  • Line Location: WKDT+0
Function Call: WRITE
  • Prompt: ?39,$J(ID,6)
  • Line Location: WKDT+1
Function Call: WRITE
  • Prompt: ?51,$P(^VA(200,IDUZ,0),"^")
  • Line Location: DUZ+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DONE+0
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,"PHARMACY AREA OF USE INVENTORY LIST FROM "
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: Y," TO "
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: Y," TO "
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: ?70,"PAGE ",PGCT
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !!,"==> AREA OF USE",!?5,"INVENTORY DATE/TIME",?27,"DAY/WEEK",?39,"INV. ID#",?51,"RESPONSIBLE PERSON",!?22,"TYPES INVENTORIED",!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !!,"==> AREA OF USE",!?5,"INVENTORY DATE/TIME",?27,"DAY/WEEK",?39,"INV. ID#",?51,"RESPONSIBLE PERSON",!?22,"TYPES INVENTORIED",!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !?22,$S($D(^PSI(58.16,($P(LOC,",",P)),0)):$P(^(0),"^"),1:"TYPE NAME HAS BEEN DELETED IN FILE 58.16")
  • Line Location: WRTYPE+0
Function Call: READ
  • Variable: ANS
  • Timeout: DTIME
  • Line Location: PRTCHK+1
Info |  Source |  Entry Points |  Interaction Calls