Routine: OREORV

Information

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

Package	Total	Caller Graph
Order Entry Results Reporting	1	ORE ORDERABLE ITEMS VALIDATION

Name	Comments	DBIA/ICR reference
PL6	;;Enter "^" to quit
PL5	;;Queue the program to run at a later time.
PL4	;;Enter the name of the printer.
PL3	;;Just hit enter to send the report to the screen.
PL2	;;
PL1	;;Select where you want the report to print to.
PMT1	;;Do you wish to run this program? Enter Yes or No
DL3	;;It take the value stored in the ID field and performs a set of tests.
DL2	;;This program scans the Orderable Items file, file # 101.43.
DL1	;;Brief Description:
DL7	;; 3. It determines if it has a source record package code
DL6	;; 2. It determines if it has a source record IEN
DL5	;; 1. It determines if the ID field is null.
DL4	;;
DL9	;; 5. It determines if the package code is in the current spec*
DL8	;; 4. It determines if the package code is formatted properly
EN	;Process the File 101.43
DL17	;;* The source files the orderable item record is tested against are
DL16	;;
DL15	;; 7. It creates a report detailing its findings.
DL14	;; If no match found and record is active it is flagged inactive.
DL13	;; 6. It Validates records by matching to a source file record
DL12	;; utility.
DL11	;; report for manual confirmation. It is not modified by this
DL10	;; If package code is not in current spec*, it is included in the
DL19	;;2001
DL18	;;defined in the OE/RR Version 3 Package Interface Specification July
SH	;;Orderable Items File Record Validation
EXIT	;Exit point for this program
MAIN	;Main entry point for this program

Name	Line Occurrences
Function Call: WRITE	Prompt: $P($T(SH),";",3),! Line Location: MAIN+19
Function Call: WRITE	Prompt: !,$P($T(@DL),";",3) Line Location: MAIN+20
Function Call: WRITE	Prompt: ! Line Location: MAIN+22
Function Call: WRITE	Prompt: $P($T(SH),";",3),! Line Location: MAIN+27
Function Call: WRITE	Prompt: !,$P($T(@PL),";",3) Line Location: MAIN+28
Function Call: WRITE	Prompt: ! Line Location: MAIN+29
Function Call: WRITE	Prompt: !?32,"REQUEST QUEUED" Line Location: MAIN+37
Routine Call	DIR Line Location: MAIN+22
Routine Call	%ZIS Line Location: MAIN+30

Name	Line Occurrences (* Changed, ! Killed)
^TMP($J	EN+3!, EN+9!