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 |  Marked Items  | All
Print Page as PDF
Routine: PRCPLO1

Package: IFCAP

Routine: PRCPLO1


Information

PRCPLO1 ;WOIFO/RLL/DAP-utilities: setup inventory variables ; 1/24/06 9:56am

Source Information

Source file <PRCPLO1.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
IFCAP 4 EN1^PRCPLO  EN1^PRCPLO2  $$INVPT^PRCPUINV  DISPLAY^PRCPUX2  
Kernel 2 ^%ZIS  ENDR^%ZISS  
VA FileMan 2 DD^%DT  IX^DIC  

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

Package Total Caller Graph
IFCAP 2 PRCPLO  PRCPLO2  

Entry Points

Name Comments DBIA/ICR reference
V ;;5.1;IFCAP;**83**;Oct 20, 2000
PRCPUSEL ; Old routine label (to resolve goto below for xindex)
DOIT ; ADDED label here
GETIPT ; $O through PRCP(^445,"B", get Station ID, Inactive?, IPID#
;
DOIT1 ; ADDED label here
DOSITE ; Set up PRC array from PRCFSITE
DOSITEP ; Set up PRCP array from DISPLAY^PRCPLO1
V1 ; internal program jump
DISPLAY ; display top of page header
NOMENU ; user did not select a valid inventory point, do not allow access
; to the menu (called from option file)
PARAM(INVPT)
TERM ; get terminal attributes
SSMSG ; check supply station secondaries, give message of qty mismatch

External References

Name Field # of Occurrence
DD^%DT DISPLAY+18
^%ZIS TERM+2
ENDR^%ZISS TERM+3
IX^DIC DOSITEP+30
EN1^PRCPLO GETIPT+38
EN1^PRCPLO2 GETIPT+37
$$INVPT^PRCPUINV DOSITEP+11
DISPLAY^PRCPUX2 NOMENU+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !," Station ID#=",V3
  • Line Location: GETIPT+10
Function Call: WRITE
  • Prompt: !," Inventory Point =",V4
  • Line Location: GETIPT+11
Function Call: WRITE
  • Prompt: !," Inventory Point ID# =",V2
  • Line Location: GETIPT+12
Function Call: WRITE
  • Prompt: !,"DATA 1 IS ",DATA1
  • Line Location: GETIPT+19
Function Call: WRITE
  • Prompt: !," PRC(PARAM) IS ",PRC("PARAM")
  • Line Location: GETIPT+28
Function Call: WRITE
  • Prompt: !,"YOU ARE NOT SETUP AS A USER!"
  • Line Location: DOIT1+2
Function Call: WRITE
  • Prompt: !,"ERROR - SITE PARAMETERS IN FILE 411 FOR SITE "
  • Line Location: DOSITEP+20
Function Call: WRITE
  • Prompt: +Y(0)," ARE MISSING."
  • Line Location: DOSITEP+21
Function Call: WRITE
  • Prompt: @IOF,PRCP("RV1"),$E(X,1,40)
  • Line Location: DISPLAY+9
Function Call: WRITE
  • Prompt: $E(X,41,80),PRCP("RV0")
  • Line Location: DISPLAY+11
Function Call: WRITE
  • Prompt: !,X,?(80-$L($P($G(PRC("PER")),"^",2))),$P($G(PRC("PER")),"^",2)
  • Line Location: DISPLAY+16
Function Call: WRITE
  • Prompt: !,?6,"--> NEXT REQUEST FOR WAREHOUSE ISSUES IS DUE IN SUPPLY ON ",Y,"."
  • Line Location: DISPLAY+19
Function Call: WRITE
  • Prompt: !?6,"--> THERE ARE ITEMS AT OR BELOW THE EMERGENCY STOCK LEVEL."
  • Line Location: DISPLAY+21
Function Call: WRITE
  • Prompt: !?6,"--> USAGE/DISTRIBUTION TOTALS NEEDS TO BE PURGED."
  • Line Location: DISPLAY+23
Function Call: WRITE
  • Prompt: !?6,"--> RECEIPTS HISTORY BY ITEM NEEDS TO BE PURGED."
  • Line Location: DISPLAY+25
Function Call: WRITE
  • Prompt: !?6,"--> DISTRIBUTION HISTORY NEEDS TO BE PURGED."
  • Line Location: DISPLAY+27
Function Call: WRITE
  • Prompt: !?6,"--> TRANSACTION REGISTER NEEDS TO BE PURGED."
  • Line Location: DISPLAY+29
Function Call: WRITE
  • Prompt: !?6,"--> OPENING MONTHLY INVENTORY BALANCES NEED TO BE SET."
  • Line Location: DISPLAY+31
Function Call: WRITE
  • Prompt: !?6,"--> THERE ARE UNPROCESSED SUPPLY STATION TRANSACTIONS."
  • Line Location: DISPLAY+34
Function Call: WRITE
  • Prompt: !,PRCP("RV1"),$E(%,1,40)
  • Line Location: DISPLAY+36
Function Call: WRITE
  • Prompt: $E(%,41,80),PRCP("RV0")
  • Line Location: DISPLAY+36
Function Call: WRITE
  • Prompt: !,?6,"--> QUANTITY DISCREPANCIES EXIST WITH THE SUPPLY STATION."
  • Line Location: SSMSG+10
Routine Call
  • DIC
  • Line Location:
    • DOSITEP+30
Routine Call
  • %ZIS
  • Line Location:
    • TERM+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PRCP(445 - [#445] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("XY" TERM+5
^PRC(411 - [#411] GETIPT+21, DOSITE+3, DOSITEP+19
^PRCP(445 - [#445] GETIPT+4, GETIPT+5, GETIPT+13, DOSITEP+9, DOSITEP+16, DOSITEP+17, DOSITEP+23, DISPLAY+12, DISPLAY+32, PARAM+3
, SSMSG+4, SSMSG+5, SSMSG+6, SSMSG+7
^PRCP(447.1 - [#447.1] DISPLAY+33

Label References

Name Line Occurrences
DOIT1 DOIT+2
PARAM DOSITEP+4, V1+1
PRCPUSEL DISPLAY+1
SSMSG DISPLAY+32
TERM DISPLAY+3
V1 DOSITEP+18, DOSITEP+22

Naked Globals

Name Field # of Occurrence
^(0 DOSITEP+17

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% DOIT1+1~, DOIT1+4*, DOSITEP+1*, DOSITEP+9*, DOSITEP+14*, DOSITEP+17, DISPLAY+2*, DISPLAY+3, DISPLAY+5*, DISPLAY+8
, DISPLAY+36
C DOIT1+1~
>> CLRSFLAG GETIPT+37, GETIPT+38
D DOIT+1~, DOSITEP+29*
DATA PARAM+2~, PARAM+3*, PARAM+10
DATA1 GETIPT+2~, GETIPT+13*, GETIPT+14, GETIPT+15, GETIPT+16, GETIPT+18
DATA2 GETIPT+2~, GETIPT+21*, GETIPT+22
DIC DOSITEP+25*, DOSITEP+31!
DIC("A" DOSITEP+28*
DIC("S" DOSITEP+26*, DOSITEP+27*
DIC(0 DOSITEP+25*
DISYS DOIT1+1~
DT DISPLAY+17, DISPLAY+22, DISPLAY+24, DISPLAY+26, DISPLAY+28, DISPLAY+30
DUZ DOIT1+2, DOSITE+4, DOSITEP+16
GIPCNT SSMSG+1~, SSMSG+6*, SSMSG+8, SSMSG+9
I DOIT1+1~, DOIT1+4*, DOSITEP+1*, DOSITEP+15*, DOSITEP+16*, DOSITEP+17, DISPLAY+2*
INVPT PARAM~, PARAM+3, PARAM+10, SSMSG+1~, SSMSG+2*, SSMSG+4, SSMSG+5, SSMSG+6, SSMSG+7
IOF DISPLAY+9, TERM+2
IOP TERM+2*!
IORVOFF DOIT+1~, TERM+4
IORVON DOIT+1~, TERM+4
IOST(0 TERM+2
ITEM SSMSG+1~, SSMSG+3*, SSMSG+4*, SSMSG+5, SSMSG+6, SSMSG+7
J DOIT1+1~, DOSITEP+15*, DOSITEP+16, DOSITEP+17*, DOSITEP+18
PRC DOIT1+2!, DOSITEP+12!, DOSITEP+19!, DOSITEP+32!
PRC( DOIT1+4
PRC("FY" GETIPT+26*, DOSITE+2*
PRC("MDIV" GETIPT+24*, DOSITE+1*
PRC("PARAM" GETIPT+22*, DOSITE+3*
PRC("PER" GETIPT+25*, DOSITE+4*, DISPLAY+16
PRC("QTR" GETIPT+27*, DOSITE+5*
PRC("SITE" GETIPT+23*, DOSITE+6*, DOSITEP+9, DOSITEP+11, DOSITEP+18*, DISPLAY+13
PRCF DOIT1+1~
PRCHAUTH DOIT+1~, DOSITEP+22
PRCP DOIT1+2!, DOSITEP+12!, DOSITEP+19!, DOSITEP+32!, PARAM+1!
PRCP( DOSITEP+1, DISPLAY+2
PRCP("DPTYPE" GETIPT+14*, DOSITEP+7, DOSITEP+14, DOSITEP+27, DOSITEP+28, DISPLAY+14, DISPLAY+17, DISPLAY+26, DISPLAY+32, PARAM+10*
PRCP("HIS" GETIPT+16*, PARAM+10*
PRCP("I" GETIPT+17*, DOSITEP+11*, DOSITEP+12, DOSITEP+22, DOSITEP+23, DISPLAY+1, DISPLAY+12, DISPLAY+32, DISPLAY+33, PARAM+10*
, SSMSG+2
PRCP("IN" DISPLAY+15, PARAM+10*
PRCP("INV" GETIPT+18*, PARAM+10*
PRCP("PAR" GETIPT+15*, DISPLAY+12*, DISPLAY+17, DISPLAY+20, DISPLAY+22, DISPLAY+24, DISPLAY+26, DISPLAY+28, DISPLAY+30, DISPLAY+33
PRCP("RV0" DISPLAY+11, DISPLAY+36, TERM+4*
PRCP("RV1" DISPLAY+9, DISPLAY+36, TERM+4*
PRCP("XY" DISPLAY+10, DISPLAY+36, TERM+5*
PRCPEX PARAM+2~
PRCPFLAG DOIT1+1~, DOSITEP+7, DOSITEP+8!, DOSITEP+9*, DOSITEP+10!, DOSITEP+12*, DOSITEP+18, DOSITEP+19*, SSMSG+1~, SSMSG+4
, SSMSG+11*
PRCPPRIV DOSITEP+29*, DOSITEP+31!
SSCNT SSMSG+1~, SSMSG+7*, SSMSG+8, SSMSG+9
U DOSITEP+23
V1 GETIPT+2~, GETIPT+3*, GETIPT+4*, GETIPT+5, GETIPT+6, GETIPT+8, GETIPT+9
V2 GETIPT+2~, GETIPT+3*, GETIPT+5*, GETIPT+13, GETIPT+17, DOSITE+3, DOSITE+6, DOSITEP+4
V3 GETIPT+2~, GETIPT+8*, GETIPT+21, GETIPT+23
V4 GETIPT+2~, GETIPT+9*
V5 GETIPT+2~
X DOIT1+1~, DISPLAY+6*, DISPLAY+7, DISPLAY+8*, DISPLAY+9, DISPLAY+11, DISPLAY+13*, DISPLAY+14*, DISPLAY+15*, DISPLAY+16
, NOMENU+2~, NOMENU+3, TERM+1~, TERM+3*
X(1 NOMENU+3*
Y DOIT1+1~, DOSITEP+17*, DOSITEP+23*, DOSITEP+32, V1+1, DISPLAY+7*, DISPLAY+8, DISPLAY+17*, DISPLAY+19
Y(0 DOSITEP+17*, DOSITEP+18, DOSITEP+19, DOSITEP+21

Marked Items

Name Field # of Occurrence
$T(PRCPUSEL+1 DISPLAY+6
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 |  Marked Items  | All