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 |  Local Variables |  All
Print Page as PDF
Routine: PSGWSIG

Package: Auto Replenishment Ward Stock

Routine: PSGWSIG


Information

PSGWSIG ;BHAM ISC/CML-Build Sort Key for AOUs in Inventory Group ; 17 Aug 93 / 12:58 PM

Source Information

Source file <PSGWSIG.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 4 ^DIC  YN^DICN  ^DIE  EN1^DIP  
Auto Replenishment Ward Stock 1 ($$PSGWDT,IGSET)^PSGWUTL1  

Caller Graph

Caller Graph Total: 1

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

Entry Points

Name Comments DBIA/ICR reference
ASK1
HDR
ASK2
DIE
BOTTOM
DIC
END
PRINT
NEW

External References

Name Field # of Occurrence
^DIC DIC, ASK1+1, ASK2+1
YN^DICN BOTTOM
^DIE DIE
EN1^DIP PRINT
$$PSGWDT^PSGWUTL1 PSGWSIG+2
IGSET^PSGWUTL1 DIE

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Prompt: "Make..... "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • Line Location: ASK1+0
Function Call: WRITE
  • Prompt: !!,"Enter the name of the AOU you wish to move to another location.",!,"Enter <RETURN> or ""^"" to Exit."
  • Line Location: ASK1+0
Function Call: READ
  • Prompt: "Follow... "
  • Formatting: !
  • Timeout: DTIME
  • Variable: X
  • Line Location: ASK2+0
Function Call: WRITE
  • Prompt: !!,"Enter the name of the AOU you wish ",AOUM," to follow.",!,"Enter <RETURN> or ""^"" to Exit.",!
  • Line Location: ASK2+0
Function Call: WRITE
  • Prompt: !!,"Do you wish to print the AOU List again "
  • Line Location: BOTTOM+0
Function Call: WRITE
  • Prompt: !?5,"Enter 'YES' if you wish to see the current AOU sort order for ",!?5,$P(^PSI(58.2,INVGRP,0),"^")
  • Line Location: BOTTOM+0
Function Call: WRITE
  • Prompt: !,"AOU Inventory Group List",?60,PSGWDT,!!,"Current AOU Sort Order for ",$P(^PSI(58.2,INVGRP,0),"^"),!,LN
  • Line Location: HDR+0
Routine Call
  • DIE
  • Line Location:
    • DIE
Routine Call
  • DIC
  • Line Location:
    • DIC
    • ASK1+1
    • ASK2+1

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)
^PSI(58.2 - [#58.2] NEW, BOTTOM, HDR

Label References

Name Line Occurrences
ASK1 ASK1, ASK1+1, BOTTOM+1
ASK2 ASK2, ASK2+1
BOTTOM BOTTOM
END DIC, ASK1, ASK2
PRINT DIC, BOTTOM+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% BOTTOM*, BOTTOM+1, END!
%H END!
%I END!
%Y END!
A END!
AOUDA ASK1+1*, END!
AOUM ASK1+1*, ASK2, DIE, END!
B END!
BY END!, PRINT*
C END!
D END!
D0 END!
D1 END!
DA DIE*, END!
>> DHD PRINT*
DI END!
DIC DIC*!, ASK1+1*!, ASK2+1*!, END!, PRINT*
DIC("S" DIC*, ASK2+1*
DIC(0 DIC*, ASK1+1*, ASK2+1*
DIE DIE*, END!
DIJ END!
DISYS END!
DP END!
DQ END!
DR DIE*, END!
DR(2 DIE*
DTIME ASK1, ASK2
FLDS END!, PRINT*
FR END!, PRINT*
INVGRP DIC*, ASK1+1, ASK2+1, NEW, DIE, BOTTOM, END!, PRINT, HDR
L END!, PRINT*
LN PSGWSIG+2*, END!, HDR
>> POP DIC
PSGFGRP END!
PSGNSORT NEW*, NEW+1*, DIE, END!
PSGSORT NEW*, NEW+1, END!
PSGSORTN NEW*, NEW+1, END!
PSGWDT PSGWSIG+2*, END!, HDR
TO END!, PRINT*
X ASK1*, ASK2*, END!
Y DIC, ASK1+1, ASK2+1, END!
Y(0 ASK1+1, NEW
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 |  Local Variables |  All