source: FOIAVistA/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OREORV.m@ 1765

Last change on this file since 1765 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 4.1 KB
Line 
1OREORV ; SLC/GDU - Orderable Items File Record Validation [10/15/04 09:16]
2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**217**;Dec 17, 1997
3 ;OREORV - Orderable Item Record Validation
4 ;
5 ;FIX FOR NOIS CASES:
6 ;DAN-0204-42157, ALB-1001-51034, SBY-0803-30443, NJH-0402-20607
7 ;
8 ;Presents the user with an explanation of the purpose of this program.
9 ;It will ask the user if they wish to run the OI record validation.
10 ;Allows the user to select where the output of the report is sent to.
11 ;Also allows the user to queue the program run to TASKMAN.
12 ;
13 ;External Variables
14 ; IO - Selected IO device
15 ; IOF - IO device Form Feed
16 ; ION - IO device logical name
17 ;
18 ;External References
19 ; ^%ZIS - DBIA 10086
20 ; ^%ZISC - DBIA 10089
21 ; ^%ZTLOAD - DBIA 10063
22 ; ^DIR - DBIA 10026
23 ; ^OREORV1 - Second routine of this utility
24 ; ^OREORV2 - Third routine of this utility
25 ;
26MAIN ;Main entry point for this program
27 ;Local Variables
28 ; %ZIS - Input specification variable, ^%ZIS
29 ; DIR - Input array variable for ^DIR
30 ; DLI - Description Line Index
31 ; DL - Description Line, indirect variable
32 ; DTOUT - Time out indicator, output variable ^DIR
33 ; DUOUT - Up arrow out indicator, output variable ^DIR
34 ; PLI - Prompt Line Index
35 ; PL - Prompt Line, indirect variable
36 ; POP - Exit Status, output variable ^%ZIS
37 ; ZTDESC - Task Description, input variable ^%ZTLOAD
38 ; ZTIO - Task IO device, input variable ^%ZTLOAD
39 ; ZTRTN - Task routine entry point, input variable ^%ZTLOAD
40 ; ZTSK - Task number assigned, output variable ^%ZTLOAD
41 ; Y - Processed user input, output variable ^DIR
42 N %ZIS,DIR,DLI,DL,DTOUT,DUOUT,PLI,PL,POP,ZTDESC,ZTIO,ZTRTN,ZTSK,Y
43 ;Clears screen and presents explanation, asks if user wants to continue
44 W:$D(IOF) @IOF
45 W $P($T(SH),";",3),!
46 F DLI=1:1:19 S DL="DL"_DLI W !,$P($T(@DL),";",3)
47 S DIR(0)="Y",DIR("A")=$P($T(PMT1),";",3)
48 W ! D ^DIR
49 ;If user selects No, up-arrows out, or times out program is stopped
50 I Y=0!($D(DTOUT))!($D(DUOUT)) G EXIT
51 ;If user selects Yes, programs presents user with device selection.
52 W:$D(IOF) @IOF
53 W $P($T(SH),";",3),!
54 F PLI=1:1:6 S PL="PL"_PLI W !,$P($T(@PL),";",3)
55 W !
56 S %ZIS="Q" D ^%ZIS
57 ;Processing user device selection
58 I POP G EXIT
59 I $D(IO("Q")) D K IO("Q") G EXIT
60 . S ZTDESC="Orderable Item Validation Report"
61 . S ZTRTN="EN^OREORV"
62 . S ZTIO=ION
63 . D ^%ZTLOAD I $D(ZTSK) W !?32,"REQUEST QUEUED"
64 U IO D EN
65EXIT ;Exit point for this program
66 D ^%ZISC
67 Q
68EN ;Process the File 101.43
69 ;TASKMAN entry point
70 ;^TMP($J,"OIC" is fully documented in OREORV1
71 K ^TMP($J,"OIC")
72 ;Builds temp global ^TMP($J,"OIC", flags active OI records w/o matching
73 ;source records.
74 D ^OREORV1
75 ;Print report from contents of ^TMP($J,"OIC"
76 D ^OREORV2
77 K ^TMP($J,"OIC")
78 Q
79 ;User interface text
80SH ;;Orderable Items File Record Validation
81DL1 ;;Brief Description:
82DL2 ;;This program scans the Orderable Items file, file # 101.43.
83DL3 ;;It take the value stored in the ID field and performs a set of tests.
84DL4 ;;
85DL5 ;; 1. It determines if the ID field is null.
86DL6 ;; 2. It determines if it has a source record IEN
87DL7 ;; 3. It determines if it has a source record package code
88DL8 ;; 4. It determines if the package code is formatted properly
89DL9 ;; 5. It determines if the package code is in the current spec*
90DL10 ;; If package code is not in current spec*, it is included in the
91DL11 ;; report for manual confirmation. It is not modified by this
92DL12 ;; utility.
93DL13 ;; 6. It Validates records by matching to a source file record
94DL14 ;; If no match found and record is active it is flagged inactive.
95DL15 ;; 7. It creates a report detailing its findings.
96DL16 ;;
97DL17 ;;* The source files the orderable item record is tested against are
98DL18 ;;defined in the OE/RR Version 3 Package Interface Specification July
99DL19 ;;2001
100PMT1 ;;Do you wish to run this program? Enter Yes or No
101PL1 ;;Select where you want the report to print to.
102PL2 ;;
103PL3 ;;Just hit enter to send the report to the screen.
104PL4 ;;Enter the name of the printer.
105PL5 ;;Queue the program to run at a later time.
106PL6 ;;Enter "^" to quit
Note: See TracBrowser for help on using the repository browser.