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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: PRCHCLN

Package: IFCAP

Routine: PRCHCLN


Information

PRCHCLN ;WISC/AKS-Routine to correct Food Groups in Item Master file ;7/7/93 09:35

Source Information

Source file <PRCHCLN.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA FileMan 2 DD^%DT  NOW^%DTC  
IFCAP 1 ($$SQUE,ENK3,ENRDAT,SELDEV)^PRCHUTL1  
Kernel 1 (,$$S)^%ZTLOAD  

Entry Points

Name Comments DBIA/ICR reference
EN ;
HDR
Q

External References

Name Field # of Occurrence
DD^%DT EN+1
NOW^%DTC EN+1
^%ZTLOAD PRCHCLN+13
$$S^%ZTLOAD EN+1, Q
$$SQUE^PRCHUTL1 Q
ENK3^PRCHUTL1 PRCHCLN+13
ENRDAT^PRCHUTL1 PRCHCLN+10
SELDEV^PRCHUTL1 PRCHCLN+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This option will loop through your 'ITEM MASTER' file and correct any Food Group",!,"that it can i.e. from 01 to 1, 02 to 2 etc. If it finds any Food Group for which",!
  • Line Location: PRCHCLN+4
Function Call: WRITE
  • Prompt: "the correct Food Group can not be determined, it will print the report."
  • Line Location: PRCHCLN+5
Function Call: WRITE
  • Prompt: !!,"No items with 'Uncorrectable' Food Groups have been found."
  • Line Location: PRCHCLN+7
Function Call: WRITE
  • Prompt: !!,"Some items in your 'ITEM MASTER' file have invalid Food Groups that the system cannot correct. Select a device to print the list of those items."
  • Line Location: PRCHCLN+8
Function Call: WRITE
  • Prompt: @IOF,"Report Of Invalid Food Groups",?57,PRCHPDAT,?73,"PAGE ",PRCHPAGE,!
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: "-------------------------------------------------------------------------------- ",!
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: " ITEM NO. FOOD GROUP",!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,$$SQUE^PRCHUTL1($T(+0)),!
  • Line Location: Q+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRC(441 - [#441] PRCHCLN+6*
^TMP($J PRCHCLN+3!, PRCHCLN+6*, PRCHCLN+7, PRCHCLN+8, EN+1, EN+2, Q+1!

Label References

Name Line Occurrences
HDR EN+1
Q EN+1, EN+3

Naked Globals

Name Field # of Occurrence
^(3 PRCHCLN+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% PRCHCLN+3~, EN+1
C PRCHCLN+3~
FGRP PRCHCLN+3~, PRCHCLN+6*
FLG PRCHCLN+3~, PRCHCLN+6*
HDRFLG PRCHCLN+3~, EN+1*, HDR+3*
IO PRCHCLN+9
>> IO(0 PRCHCLN+9
IOF HDR
IOSL EN+1
M PRCHCLN+3~, PRCHCLN+10*, EN+1*, EN+2
N PRCHCLN+3~, PRCHCLN+6*
POP PRCHCLN+3~, PRCHCLN+9
PRC PRCHCLN+3~
PRCHDT PRCHCLN+3~, EN+1*
PRCHDY PRCHCLN+3~, EN+1*, EN+2*, HDR+2*
PRCHPAGE PRCHCLN+3~, EN+1*, HDR*
PRCHPDAT PRCHCLN+3~, PRCHCLN+11, EN+1*, HDR
U PRCHCLN+6
X PRCHCLN+3~, PRCHCLN+10
Y PRCHCLN+3~, EN+1*
ZTDESC PRCHCLN+3~, PRCHCLN+11*
ZTDTH PRCHCLN+3~, PRCHCLN+11*
ZTRTN PRCHCLN+3~, PRCHCLN+8*
ZTSAVE PRCHCLN+3~, PRCHCLN+12!
ZTSAVE("DUZ*" PRCHCLN+12*
ZTSAVE("PRC*" PRCHCLN+12*
ZTSAVE("U" PRCHCLN+12*
ZTSAVE("^TMP($J," PRCHCLN+12*

Marked Items

Name Field # of Occurrence
$T( Q
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All