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

Package: Controlled Substances

Routine: PSDGSK


Information

PSDGSK ;BIR/CML,JPW-Build Sort Key for NAOUs in Inven. Grp ; 2 Aug 94

Source Information

Source file <PSDGSK.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 5 NOW^%DTC  ^DIC  YN^DICN  ^DIE  EN1^DIP  
Controlled Substances 2 ^PSDSET  IGSET^PSDUTL  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Controlled Substances 1 PSD NAOU INV GROUP SORT  

Entry Points

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

External References

Name Field # of Occurrence
NOW^%DTC PSDGSK+3
^DIC DIC, ASK1+1, ASK2+1
YN^DICN BOTTOM
^DIE DIE
EN1^DIP PRINT
^PSDSET PSDGSK+2
IGSET^PSDUTL DIE

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Formatting: !!
  • Prompt: "Make..... "
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASK1+0
Function Call: WRITE
  • Prompt: !!,"Enter the name of the NAOU you wish to move to another location.",!,"Enter <RET> or ""^"" to EXIT."
  • Line Location: ASK1+0
Function Call: READ
  • Formatting: !
  • Prompt: "Follow... "
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASK2+0
Function Call: WRITE
  • Prompt: !!,"Enter the name of the NAOU you wish ",NAOUM," to follow.",!,"Enter <RET> or ""^"" to EXIT.",!
  • Line Location: ASK2+0
Function Call: WRITE
  • Prompt: !!,"Do you wish to print the NAOU 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: !,"NAOU Inventory Group List",?60,PSDT,!!,"Current NAOU Sort Order for ",$P(^PSI(58.2,INVGRP,0),"^"),!,LN
  • Line Location: HDR+0
Routine Call
  • DIC
  • Line Location:
    • DIC
    • ASK1+1
    • ASK2+1
Routine Call
  • DIE
  • Line Location:
    • DIE

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" PSDGSK+3
^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
% PSDGSK+3, BOTTOM*, BOTTOM+1, END!
%H END!
%I END!
%Y END!
A END!
B END!
BY END!, PRINT*
C END!
D END!
D0 END!
D1 END!
DA DIE*, END!
DHD END!, PRINT*
DI END!
DIC DIC*!, ASK1+1*!, ASK2+1*!, END!, PRINT*
DIC("A" DIC*
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
DTOUT END!
FLDS END!, PRINT*
FR END!, PRINT*
INVGRP DIC*, ASK1+1, ASK2+1, NEW, DIE, BOTTOM, END!, PRINT, HDR
L END!, PRINT*
LN PSDGSK+3!*, END!, HDR
NAOUDA ASK1+1*, END!
NAOUM ASK1+1*, ASK2, DIE, END!
POP END!
PSDFGRP END!
PSDNSORT NEW*, NEW+1*, DIE, END!
>> PSDSITE PSDGSK+2
PSDSORT NEW*, NEW+1, END!
PSDSORTN NEW*, NEW+1, END!
PSDT PSDGSK+3*, END!, HDR
TO END!, PRINT*
X ASK1*, ASK2*, END!
Y PSDGSK+3*, 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