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 |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: PSGWINIT

Package: Auto Replenishment Ward Stock

Routine: PSGWINIT


Information

PSGWINIT ; ; 04-JAN-1994 [ 02/28/2002 10:43 AM ]

Source Information

Source file <PSGWINIT.m>

Call Graph

Call Graph Total: 13

Package Total Call Graph
VA Fileman 7 NOW^%DTC  ^DIC  Q^DIFROM0  IXALL^DIK  EN^DIKZ  N^DINIT  ^DIR  
Auto Replenishment Ward Stock 6 ^PSGWINI1  (,REP)^PSGWINI2  ^PSGWINI3  PAC^PSGWINIS  ^PSGWPOST  ^PSGWPRE1  

Entry Points

Name Comments DBIA/ICR reference
Q
EN ; ENTER HERE TO BYPASS THE PRE-INIT PROGRAM
D
ERX
IXF ;;AUTO REPLENISHMENT/WARD STOCK^PSGW;303
1
S
R
PKG
GO ;

External References

Name Field # of Occurrence
NOW^%DTC GO+1, EN+1, EN+9
^DIC PKG
Q^DIFROM0 EN+14, Q
IXALL^DIK D+2
EN^DIKZ D+1
N^DINIT PSGWINIT+7
^DIR 1+7, S+1
^PSGWINI1 EN+5
^PSGWINI2 EN+7
REP^PSGWINI2 R
^PSGWINI3 EN+7
PAC^PSGWINIS EN+13
^PSGWPOST EN+9
^PSGWPRE1 GO+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"This version (#2.3) of 'PSGWINIT' was created on 04-JAN-1994"
  • Line Location: PSGWINIT+4
Function Call: WRITE
  • Prompt: !?9,"(at BIRMINGHAM ISC - 10, by VA FileMan V.20.0)",!
  • Line Location: PSGWINIT+5
Function Call: WRITE
  • Prompt: !,"FIRST, I'LL FRESHEN UP YOUR VA FILEMAN...."
  • Line Location: PSGWINIT+7
Function Call: WRITE
  • Prompt: !,"BUT I NEED VERSION 20 OF THE VA FILEMAN!"
  • Line Location: PSGWINIT+8
Function Call: WRITE
  • Prompt: "."
  • Line Location: D+2
Function Call: WRITE
  • Prompt: !!?3,N,?13,DIF,$P(" (Partial Definition)",U,$P(DIF(I),";",6)),$P(" (including data)",U,$P(DIF(I),";",13)="y")
  • Line Location: 1+1
Function Call: READ
  • Timeout: DIFQ
  • Variable: Q
  • Line Location: 1+3
Function Call: WRITE
  • Prompt: *7,!,"*BUT YOU ALREADY HAVE '",$P(Z,U),"' AS FILE #",N,"!"
  • Line Location: 1+3
Function Call: WRITE
  • Prompt: *7,!,"Note: You already have the '",$P(Z,U),"' File."
  • Line Location: 1+5
Function Call: WRITE
  • Prompt: !,*7,"I will ",$P("MERGE^OVERWRITE",U,%+1)," your data with mine."
  • Line Location: S+2
Function Call: WRITE
  • Prompt: *7,!!,"NO UPDATING HAS OCCURRED!"
  • Line Location: Q+0
Function Call: WRITE
  • Prompt: *7,!!,"This INIT was built as a Network Mail Message and can ONLY be installed",!,"within the Mail system!!"
  • Line Location: ERX+0
Routine Call
  • DIC
  • Line Location:
    • PKG
Routine Call
  • DIR
  • Line Location:
    • 1+7
    • S+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(9.4 - [#9.4] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("TEST" EN+13
^DD( EN+10*, D+1
^DD("ROU" D+1
^DD("VERSION" PSGWINIT+6, PSGWINIT+8, D+1
^DIC - [#1] D, 1+1
^DIC(0 EN+12
^DIC(9.4 - [#9.4] EN+11*, EN+14*
^UTILITY("DIF" EN+4, EN+6, EN+10, 1+6

Label References

Name Line Occurrences
1 EN+4, 1+3
@( EN+3
D EN+6
GO PSGWINIT+6
IXF EN+13, PKG
PKG GO+1, EN+5
Q PSGWINIT+8, EN+4, EN+5, ERX
R 1+3
S 1+2, 1+3, 1+6

Naked Globals

Name Field # of Occurrence
^("DIK" D+1
^("VERSION" PSGWINIT+6
^(0 EN+12*, D*, 1+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % GO+1, EN+6*, EN+9, EN+10*, EN+11*, 1+6*, S+2*
>> D EN+6*, D
D0 PSGWINIT+3!
DA PSGWINIT+3!
DDF PSGWINIT+3!
DDT PSGWINIT+3!
DFR PSGWINIT+3!
DIC PSGWINIT+3!, PKG*!
DIC("S" PKG*
DIC(0 PKG*
DIDUZ PSGWINIT+3!, EN+8
DIF PSGWINIT+3!, EN+6*, EN+10*, 1*, 1+1, 1+3, S+1*
DIF( EN+4*!, 1, 1+1, 1+4, 1+7, S, S+1, S+2
>> DIFKEP( 1+3
DIFQ PSGWINIT+3!, PSGWINIT+4*, GO+1, EN+2*, EN+4, EN+5, 1+3
DIFQ( EN+6!, 1+2*, 1+4*, 1+6*, 1+7*
DIFQ(0 1+5*
DIFQN PSGWINIT+3!, EN+12!, 1+2*
DIFQR PSGWINIT+3!, EN+7!, D+1*, D+2
DIFQR( D+1, S*, S+1*, S+2*
>> DIFRIR EN+3*
DIFROM PSGWINIT+3!, PSGWINIT+4*, EN+5*, EN+10, EN+13, EN+14
DIFROM( EN+11
DIFROM("INIT" EN+9*
DIFROM("PRE" GO+1*
DIFROM(0 EN+5, EN+11, EN+14, PKG*
>> DIFRRTN EN+3*
DIK PSGWINIT+3!, EN+6*, D, D+2
DIK(0 EN+5*
DIR PSGWINIT+3!
DIR("??" 1+7*, S+1*
DIR("A" 1+7*, S+1*
DIR("B" 1+7*
DIR(0 1+7*, S+1*
DIRUT PSGWINIT+3!, EN+2!, EN+4, S
DIX PSGWINIT+3!
DLAYGO PSGWINIT+3!
>> DMAX D+1*
>> DSEC EN+8
DTN PSGWINIT+3!
DTO PSGWINIT+3!
DTOUT PSGWINIT+3!, EN+2!
DUOUT PSGWINIT+3!, EN+2!
DUZ EN+8*
DZ PSGWINIT+3!
>> I EN+4*, 1, 1+1, 1+4, 1+6, 1+7, S, S+1, S+2
>> INITDT EN+1*
>> MIN EN+1*
>> N EN+6*, EN+10*, D, D+1, 1*, 1+1, 1+2, 1+3, 1+4, 1+6
, 1+7, S, S+1, S+2
>> S 1*, S+1
U PSGWINIT+4*, EN+6, EN+8, EN+11, EN+12, D, 1+1, 1+2, 1+3, 1+5
, S+1, S+2, PKG
>> X EN+1, EN+13*, D*, D+1*, PKG*
>> Y D+1*, 1+7, S+1, PKG
>> Z 1+1*, 1+2, 1+3, 1+5, 1+7

Marked Items

Name Field # of Occurrence
$T(IXF EN+13, PKG
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All