Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PRCP(445 - [#445] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call