OREORV ; SLC/GDU - Orderable Items File Record Validation [10/15/04 09:16]
Source file <OREORV.m>
Package | Total | Call Graph |
---|---|---|
Kernel | 3 | ^%ZIS ^%ZISC ^%ZTLOAD |
Order Entry Results Reporting | 2 | ^OREORV1 ^OREORV2 |
VA FileMan | 1 | ^DIR |
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Package | Total | Caller Graph |
---|---|---|
Order Entry Results Reporting | 1 | ORE ORDERABLE ITEMS VALIDATION |
Name | Comments | DBIA/ICR reference |
---|---|---|
MAIN | ;Main entry point for this program
|
|
EXIT | ;Exit point for this program
|
|
EN | ;Process the File 101.43
|
|
SH | ;;Orderable Items File Record Validation
|
|
DL1 | ;;Brief Description:
|
|
DL2 | ;;This program scans the Orderable Items file, file # 101.43.
|
|
DL3 | ;;It take the value stored in the ID field and performs a set of tests.
|
|
DL4 | ;;
|
|
DL5 | ;; 1. It determines if the ID field is null.
|
|
DL6 | ;; 2. It determines if it has a source record IEN
|
|
DL7 | ;; 3. It determines if it has a source record package code
|
|
DL8 | ;; 4. It determines if the package code is formatted properly
|
|
DL9 | ;; 5. It determines if the package code is in the current spec*
|
|
DL10 | ;; If package code is not in current spec*, it is included in the
|
|
DL11 | ;; report for manual confirmation. It is not modified by this
|
|
DL12 | ;; utility.
|
|
DL13 | ;; 6. It Validates records by matching to a source file record
|
|
DL14 | ;; If no match found and record is active it is flagged inactive.
|
|
DL15 | ;; 7. It creates a report detailing its findings.
|
|
DL16 | ;;
|
|
DL17 | ;;* The source files the orderable item record is tested against are
|
|
DL18 | ;;defined in the OE/RR Version 3 Package Interface Specification July
|
|
DL19 | ;;2001
|
|
PMT1 | ;;Do you wish to run this program? Enter Yes or No
|
|
PL1 | ;;Select where you want the report to print to.
|
|
PL2 | ;;
|
|
PL3 | ;;Just hit enter to send the report to the screen.
|
|
PL4 | ;;Enter the name of the printer.
|
|
PL5 | ;;Queue the program to run at a later time.
|
|
PL6 | ;;Enter "^" to quit
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
%ZIS | MAIN+16~, MAIN+30* |
DIR | MAIN+16~ |
DIR("A" | MAIN+21* |
DIR(0 | MAIN+21* |
DL | MAIN+16~, MAIN+20* |
DLI | MAIN+16~, MAIN+20* |
DTOUT | MAIN+16~, MAIN+24 |
DUOUT | MAIN+16~, MAIN+24 |
IO | MAIN+38 |
IO("Q" | MAIN+33! |
IOF | MAIN+18, MAIN+26 |
ION | MAIN+36 |
PL | MAIN+16~, MAIN+28* |
PLI | MAIN+16~, MAIN+28* |
POP | MAIN+16~, MAIN+32 |
Y | MAIN+16~, MAIN+24 |
ZTDESC | MAIN+16~, MAIN+34* |
ZTIO | MAIN+16~, MAIN+36* |
ZTRTN | MAIN+16~, MAIN+35* |
ZTSK | MAIN+16~, MAIN+37 |