OREORV ; SLC/GDU - Orderable Items File Record Validation [10/15/04 09:16]
;;3.0;ORDER ENTRY/RESULTS REPORTING;**217**;Dec 17, 1997
;OREORV - Orderable Item Record Validation
;
;FIX FOR NOIS CASES:
;DAN-0204-42157, ALB-1001-51034, SBY-0803-30443, NJH-0402-20607
;
;Presents the user with an explanation of the purpose of this program.
;It will ask the user if they wish to run the OI record validation.
;Allows the user to select where the output of the report is sent to.
;Also allows the user to queue the program run to TASKMAN.
;
;External Variables
; IO - Selected IO device
; IOF - IO device Form Feed
; ION - IO device logical name
;
;External References
; ^%ZIS - DBIA 10086
; ^%ZISC - DBIA 10089
; ^%ZTLOAD - DBIA 10063
; ^DIR - DBIA 10026
; ^OREORV1 - Second routine of this utility
; ^OREORV2 - Third routine of this utility
;
MAIN ;Main entry point for this program
;Local Variables
; %ZIS - Input specification variable, ^%ZIS
; DIR - Input array variable for ^DIR
; DLI - Description Line Index
; DL - Description Line, indirect variable
; DTOUT - Time out indicator, output variable ^DIR
; DUOUT - Up arrow out indicator, output variable ^DIR
; PLI - Prompt Line Index
; PL - Prompt Line, indirect variable
; POP - Exit Status, output variable ^%ZIS
; ZTDESC - Task Description, input variable ^%ZTLOAD
; ZTIO - Task IO device, input variable ^%ZTLOAD
; ZTRTN - Task routine entry point, input variable ^%ZTLOAD
; ZTSK - Task number assigned, output variable ^%ZTLOAD
; Y - Processed user input, output variable ^DIR
N %ZIS,DIR,DLI,DL,DTOUT,DUOUT,PLI,PL,POP,ZTDESC,ZTIO,ZTRTN,ZTSK,Y
;Clears screen and presents explanation, asks if user wants to continue
W:$D(IOF) @IOF
W $P($T(SH),";",3),!
F DLI=1:1:19 S DL="DL"_DLI W !,$P($T(@DL),";",3)
S DIR(0)="Y",DIR("A")=$P($T(PMT1),";",3)
W ! D ^DIR
;If user selects No, up-arrows out, or times out program is stopped
I Y=0!($D(DTOUT))!($D(DUOUT)) G EXIT
;If user selects Yes, programs presents user with device selection.
W:$D(IOF) @IOF
W $P($T(SH),";",3),!
F PLI=1:1:6 S PL="PL"_PLI W !,$P($T(@PL),";",3)
W !
S %ZIS="Q" D ^%ZIS
;Processing user device selection
I POP G EXIT
I $D(IO("Q")) D K IO("Q") G EXIT
. S ZTDESC="Orderable Item Validation Report"
. S ZTRTN="EN^OREORV"
. S ZTIO=ION
. D ^%ZTLOAD I $D(ZTSK) W !?32,"REQUEST QUEUED"
U IO D EN
EXIT ;Exit point for this program
D ^%ZISC
Q
EN ;Process the File 101.43
;TASKMAN entry point
;^TMP($J,"OIC" is fully documented in OREORV1
K ^TMP($J,"OIC")
;Builds temp global ^TMP($J,"OIC", flags active OI records w/o matching
;source records.
D ^OREORV1
;Print report from contents of ^TMP($J,"OIC"
D ^OREORV2
K ^TMP($J,"OIC")
Q
;User interface text
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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HOREORV 4257 printed Oct 16, 2024@18:31:07 Page 2
OREORV ; SLC/GDU - Orderable Items File Record Validation [10/15/04 09:16]
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**217**;Dec 17, 1997
+2 ;OREORV - Orderable Item Record Validation
+3 ;
+4 ;FIX FOR NOIS CASES:
+5 ;DAN-0204-42157, ALB-1001-51034, SBY-0803-30443, NJH-0402-20607
+6 ;
+7 ;Presents the user with an explanation of the purpose of this program.
+8 ;It will ask the user if they wish to run the OI record validation.
+9 ;Allows the user to select where the output of the report is sent to.
+10 ;Also allows the user to queue the program run to TASKMAN.
+11 ;
+12 ;External Variables
+13 ; IO - Selected IO device
+14 ; IOF - IO device Form Feed
+15 ; ION - IO device logical name
+16 ;
+17 ;External References
+18 ; ^%ZIS - DBIA 10086
+19 ; ^%ZISC - DBIA 10089
+20 ; ^%ZTLOAD - DBIA 10063
+21 ; ^DIR - DBIA 10026
+22 ; ^OREORV1 - Second routine of this utility
+23 ; ^OREORV2 - Third routine of this utility
+24 ;
MAIN ;Main entry point for this program
+1 ;Local Variables
+2 ; %ZIS - Input specification variable, ^%ZIS
+3 ; DIR - Input array variable for ^DIR
+4 ; DLI - Description Line Index
+5 ; DL - Description Line, indirect variable
+6 ; DTOUT - Time out indicator, output variable ^DIR
+7 ; DUOUT - Up arrow out indicator, output variable ^DIR
+8 ; PLI - Prompt Line Index
+9 ; PL - Prompt Line, indirect variable
+10 ; POP - Exit Status, output variable ^%ZIS
+11 ; ZTDESC - Task Description, input variable ^%ZTLOAD
+12 ; ZTIO - Task IO device, input variable ^%ZTLOAD
+13 ; ZTRTN - Task routine entry point, input variable ^%ZTLOAD
+14 ; ZTSK - Task number assigned, output variable ^%ZTLOAD
+15 ; Y - Processed user input, output variable ^DIR
+16 NEW %ZIS,DIR,DLI,DL,DTOUT,DUOUT,PLI,PL,POP,ZTDESC,ZTIO,ZTRTN,ZTSK,Y
+17 ;Clears screen and presents explanation, asks if user wants to continue
+18 if $DATA(IOF)
WRITE @IOF
+19 WRITE $PIECE($TEXT(SH),";",3),!
+20 FOR DLI=1:1:19
SET DL="DL"_DLI
WRITE !,$PIECE($TEXT(@DL),";",3)
+21 SET DIR(0)="Y"
SET DIR("A")=$PIECE($TEXT(PMT1),";",3)
+22 WRITE !
DO ^DIR
+23 ;If user selects No, up-arrows out, or times out program is stopped
+24 IF Y=0!($DATA(DTOUT))!($DATA(DUOUT))
GOTO EXIT
+25 ;If user selects Yes, programs presents user with device selection.
+26 if $DATA(IOF)
WRITE @IOF
+27 WRITE $PIECE($TEXT(SH),";",3),!
+28 FOR PLI=1:1:6
SET PL="PL"_PLI
WRITE !,$PIECE($TEXT(@PL),";",3)
+29 WRITE !
+30 SET %ZIS="Q"
DO ^%ZIS
+31 ;Processing user device selection
+32 IF POP
GOTO EXIT
+33 IF $DATA(IO("Q"))
Begin DoDot:1
+34 SET ZTDESC="Orderable Item Validation Report"
+35 SET ZTRTN="EN^OREORV"
+36 SET ZTIO=ION
+37 DO ^%ZTLOAD
IF $DATA(ZTSK)
WRITE !?32,"REQUEST QUEUED"
End DoDot:1
KILL IO("Q")
GOTO EXIT
+38 USE IO
DO EN
EXIT ;Exit point for this program
+1 DO ^%ZISC
+2 QUIT
EN ;Process the File 101.43
+1 ;TASKMAN entry point
+2 ;^TMP($J,"OIC" is fully documented in OREORV1
+3 KILL ^TMP($JOB,"OIC")
+4 ;Builds temp global ^TMP($J,"OIC", flags active OI records w/o matching
+5 ;source records.
+6 DO ^OREORV1
+7 ;Print report from contents of ^TMP($J,"OIC"
+8 DO ^OREORV2
+9 KILL ^TMP($JOB,"OIC")
+10 QUIT
+11 ;User interface text
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
