Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSGWPIG

Package: Auto Replenishment Ward Stock

Routine: PSGWPIG


Information

PSGWPIG ;BHAM ISC/CML-Print AOU Inventory Group List ; 19 Mar 93 / 8:33 AM

Source Information

Source file <PSGWPIG.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
VA Fileman 3 ^%DT  NOW^%DTC  ^DIK  
Auto Replenishment Ward Stock 1 (HELP,SS)^PSGWUTL1  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Auto Replenishment Ward Stock 1 PSGW AOU INV GROUP PRINT  

Entry Points

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

External References

Name Field # of Occurrence
^%DT PRINT+1
NOW^%DTC PSGWPIG+2
^%ZIS DEV
HOME^%ZIS DEV+2
^%ZISC QUIT+2
^%ZTLOAD DEV+2, PRTQUE+2
^DIK BUILD+1
HELP^PSGWUTL1 PRTCHK+1
SS^PSGWUTL1 DONE+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!,"This report shows data stored for AOU Inventory Groups.",!!,"Right margin for this report is 80 columns.",!,"You may queue the report to print at a later time.",!!
  • Line Location: PSGWPIG+3
Function Call: WRITE
  • Prompt: !,"You MUST create Inventory Groups before running this report!"
  • Line Location: PSGWPIG+4
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: !!,"=> ",GNM
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !?13,$P(ANM,"^")
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DONE+0
Function Call: WRITE
  • Prompt: " *** INACTIVE ***"
  • Line Location: WRTDATA+1
Function Call: WRITE
  • Prompt: !?18,TYPENM
  • Line Location: WRTDATA+2
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !?28,"AOU INVENTORY GROUP LIST",?71,"PAGE: ",PG,!?31,"PRINTED: ",HDT,!!,"=> INVENTORY GROUP",!?13,"AREA OF USE",!?18,"TYPE",!,LN
  • Line Location: HDR+1
Function Call: READ
  • Timeout: DTIME
  • Variable: ANS
  • Line Location: PRTCHK+1
Routine Call
  • %ZIS
  • Line Location:
    • DEV+2
Routine Call
  • %ZIS
  • Line Location:
    • DEV

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSI(58.2 - [#58.2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" PRINT+1
^PSI(58.1 - [#58.1] SETGL+1, SETGL+2
^PSI(58.16 - [#58.16] SETGL+1
^PSI(58.2 - [#58.2] PSGWPIG+4, INVG, BUILD+1, BUILD+2, SETGL+1
^TMP("PSGWPIG" INVG!, SETGL+3*, PRTQUE+2!, PRINT+2, PRINT+3, QUIT+2!, WRTDATA+2

Label References

Name Line Occurrences
BUILD INVG
HDR PRINT+1, PRTCHK+2
PRINT INVG
PRTCHK PRINT+3, WRTDATA+2
PRTQUE INVG
QUIT DEV, DEV+2, PRTQUE+2, PRINT+2
SETGL BUILD+2
WRTDATA PRINT+3

Naked Globals

Name Field # of Occurrence
^( BUILD+2
^("I" SETGL+2
^(0 BUILD+1, SETGL+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% PSGWPIG+2, PSGWPIG+4!, QUIT+1!
%DT PRINT+1*, QUIT+1!
%H PSGWPIG+4!, QUIT+1!
%I PSGWPIG+4!, QUIT+1!
%ZIS DEV!*
%ZIS("B" DEV*
ANM SETGL+1*, SETGL+3, PRINT+1*, PRINT+3*, QUIT+1!, WRTDATA+1, WRTDATA+2
ANS QUIT+1!, PRTCHK+1*
AOU BUILD+2*, SETGL+1, SETGL+2, QUIT+1!
DA BUILD+1*, QUIT+1!
DIK BUILD+1*!
DT SETGL+2
DTIME PRTCHK+1
GNM SETGL+1*, SETGL+3, PRINT+1*, PRINT+3*, QUIT+1!, WRTDATA+2
HDT PRINT+1*, QUIT+1!, HDR+1
INACT SETGL+1*, SETGL+2*, SETGL+3, QUIT+1!
INVG INVG*, BUILD+1, BUILD+2, SETGL+1, QUIT+1!
IO DEV+3
IO("Q" DEV+1!, QUIT+1!
IOF DONE, HDR+1
ION DEV+1
IOP DEV!
IOSL PRINT+3, WRTDATA+2
IOST DONE, DONE+1, PRTCHK+1
LL PRINT+3*, QUIT+1!, WRTDATA+2*
LN PRINT+1*, QUIT+1!, HDR+1
PG PRINT+1*, QUIT+1!, HDR+1*
>> POP DEV
PSGWDT PSGWPIG+2*, QUIT+1!
PSGWIO DEV+1*, PRTQUE+1, QUIT+1!
QFLG PRINT+1*, PRINT+3, DONE+1, QUIT+1!, WRTDATA+2, PRTCHK+1*
TYPE BUILD+2*, SETGL+1, QUIT+1!
TYPENM SETGL+1*, SETGL+3, PRINT+1*, QUIT+1!, WRTDATA+2*
X PRINT+1*, QUIT+1!
Y PRINT+1, QUIT+1!
>> ZTDESC DEV+1*, PRTQUE+1*
ZTDTH DEV+1!, PRTQUE+1*
ZTIO DEV+1*, PRTQUE+1!*, QUIT+1!
>> ZTQUEUED INVG, QUIT+3
>> ZTREQ QUIT+3*
>> ZTRTN DEV+1*, PRTQUE+1*
ZTSAVE DEV+1!, PRTQUE+1!
ZTSAVE("PSGWDT" DEV+1*
ZTSAVE("PSGWIO" DEV+1*
ZTSAVE("^TMP(""PSGWPIG"",$J," PRTQUE+1*
ZTSK DEV+1!, DEV+2!, QUIT+1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All