OREORV2 ; SLC/GDU - Orderable Item Records Validation [10/15/04 09:16]
;;3.0;ORDER ENTRY/RESULTS REPORTING;**217**;Dec 17, 1997
;OREORV2 - Orderable Item Record Validation
;
;FIX FOR NOIS CASES:
;DAN-0204-42157, ALB-1001-51034, SBY-0803-30443, NJH-0402-20607
;
;This prints a report of the results from OREORV1.
;The results are stored in ^TMP($J,"OIC".
;^TMP($J,"OIC" is fully documented in OREORV1.
;The output is sorted and printed in the following manner:
;
;A report summary of the overall findings
;Section 1, details of OI records with null ID field
;Section 2, details of OI records without source IENs
;Section 3, details of OI records without source package codes
;Section 4, details of OI records with bad source package codes
;Section 5, details of OI records with packages with package
; codes not listed in the OE/RR Interface Specifications
; of July 2001. These records have properly formatted
; package codes but can not be validated with this
; utility.
;Section 6, summary of OI records validated with source records
;Section 7, details of OI records not validated with source records
;
;External Variables
; IOF - Standard FileMan/Kernel IO variable, Form Feed
; IOM - Standard FileMan/Kernel IO variable, Margin width
; IOSL - Standard FileMan/Kernel IO variable, Page Length
; IOST - Standard FileMan/Kernel IO variable, Terminal type
; U - Standard FileMan/Kernel delimiter variable
;
;External References
; ^DIR DBIA 10026
; $$REPEAT^XLFSTR DBIA 10104
;
MAIN ;Main entry point for this program
;Local Variables
; PAGE - Page number counter
; STOP - Stop report execution
;
N PAGE,STOP
S PAGE=1,STOP=0
D RPTSUM I STOP=1 G EXIT ;Report Summary
D PS(1) I STOP=1 G EXIT
D PS(2) I STOP=1 G EXIT
D PS(3) I STOP=1 G EXIT
D PS(4) I STOP=1 G EXIT
D PS(5) I STOP=1 G EXIT
D PS(6) I STOP=1 G EXIT
D PS(7)
EXIT ;Exit point for this program
Q
RPTSUM ;Report Summary - Summary of ZGOIRV1 findings
;Local Variables
; RSL - Report Summary Line, indirect variable to print summary type
; X - Standard FileMan work variable
;
N RSL,X
D RPH
W !,$P($T(RS),";",3),!
F X=0:1:7 D
. S RSL="RS"_X
. W !,$P($T(@RSL),";",3),?65,$J(^TMP($J,"OIC",X),10)
D @$S($E(IOST,1,2)="C-":"NS",1:"RPF")
Q
PS(SN) ;Print Sections
;Variable Passed to PS
; SN - Section Number
;Local Variables
; SH - Section Header
; SF - Section Footer
; PACK - Package Code
; PH - Package Subsection Header
; PF - Package Subsection Footer
; NAME - Orderable Item Name
;
N SH,SF,PACK,PH,PF,NAME
S SH="SH"_SN,SF="SF"_SN
W !,$P($T(@SH),";",3)
W ! D LCC Q:STOP=1
I SN=1!(SN=2)!(SN=3) D
. I ^TMP($J,"OIC",SN)>0 D
.. W !,$P($T(@SH),";",3) D LCC Q:STOP=1
.. W !,$$REPEAT^XLFSTR("-",IOM) D LCC Q:STOP=1
.. S NAME="" F S NAME=$O(^TMP($J,"OIC",SN,"B",NAME)) Q:NAME=""!(STOP=1) D
... W !,NAME,?65,$P(^TMP($J,"OIC",SN,"B",NAME),U,2)
I SN=4!(SN=5) D
. I ^TMP($J,"OIC",SN)>0 D
.. S PACK="" F S PACK=$O(^TMP($J,"OIC",SN,PACK)) Q:PACK=""!(STOP=1) D
... S PH=$P($T(PHT),";",3)_" : "_PACK_" - "_$P($T(@$E(PACK,3,5)),";",3)
... S PF=$P($T(PFT),";",3)_" : "_PACK_" - "_$P($T(@$E(PACK,3,5)),";",3)
... W !,PH D LCC Q:STOP=1
... W !,$P($T(CH1),";",3),?65,$P($T(CH2),";",3) D LCC Q:STOP=1
... W !,$$REPEAT^XLFSTR("-",IOM) D LCC Q:STOP=1
... S NAME="" F S NAME=$O(^TMP($J,"OIC",SN,PACK,"B",NAME)) Q:NAME=""!(STOP=1) D
.... W !,NAME,?65,$P(^TMP($J,"OIC",SN,PACK,"B",NAME),U,2) D LCC Q:STOP=1
... W !,PF,?65,$J(^TMP($J,"OIC",SN,PACK),10) D LCC Q:STOP=1
... W ! D LCC Q:STOP=1
I SN=6 D
. I ^TMP($J,"OIC",SN)>0 D
. S PACK="" F S PACK=$O(^TMP($J,"OIC",SN,PACK)) Q:PACK=""!(STOP=1) D
.. S PH=PACK_" - "_$P($T(@$E(PACK,3,5)),";",3)
.. W !,PH,?65,$J(^TMP($J,"OIC",SN,PACK),10) D LCC Q:STOP=1
I SN=7 D PS7
W ! D LCC Q:STOP=1
W !,$P($T(@SF),";",3),?65,$J(^TMP($J,"OIC",SN),10) D LCC Q:STOP=1
I SN=7 S STOP=1
D @$S($E(IOST,1,2)="C-":"NS",1:"RPF")
Q
PS7 ;Print Section 7
;Local Variables
; AH - Activity Type Subsection Header
; AF - Activity Type Subsection Footer
; AI - Active / Inactive Indicator
;
N AH,AF,AI
I ^TMP($J,"OIC",SN)=0 Q
S AI="" F S AI=$O(^TMP($J,"OIC",SN,AI)) Q:AI=""!(STOP=1) D
. S AH=AI_"HT",AF=AI_"FT"
. W !,$P($T(@AH),";",3) D LCC Q:STOP=1
. S PACK="" F S PACK=$O(^TMP($J,"OIC",SN,AI,PACK)) Q:PACK=""!(STOP=1) D
.. S PH=$P($T(PHT),";",3)_" : "_PACK_" - "_$P($T(@$E(PACK,3,5)),";",3)
.. S PF=PACK_" - "_$P($T(@$E(PACK,3,5)),";",3)
.. W !,PH D LCC Q:STOP=1
.. W !,$P($T(CH1),";",3),?65,$P($T(CH2),";",3) D LCC Q:STOP=1
.. W !,$$REPEAT^XLFSTR("-",IOM) D LCC Q:STOP=1
.. S NAME="" F S NAME=$O(^TMP($J,"OIC",SN,AI,PACK,"B",NAME)) Q:NAME=""!(STOP=1) D
... W !,NAME,?65,$P(^TMP($J,"OIC",SN,AI,PACK,"B",NAME),U,2) D LCC Q:STOP=1
.. W !,PF,?65,$J(^TMP($J,"OIC",SN,AI,PACK),10) D LCC Q:STOP=1
.. W ! D LCC Q:STOP=1
. W ! D LCC Q:STOP=1
. W !,$P($T(@AF),";",3),?65,$J(^TMP($J,"OIC",SN,AI),10) D LCC Q:STOP=1
Q
RPH ;Report Page Header
W:$E(IOST,1,2)="C-"!(PAGE>1) @IOF
W $P($T(RH),";",3),?65,"PAGE: ",PAGE
Q
NS ;Next Screen - Advances user to next screen if output directed to
;video console
;Local Variables
; DIR - Input array variable for ^DIR
; DTOUT - Time out indicator, output variable for ^DIR
; DUOUT - Up arrow out indicator, "^", output variable for ^DIR
; Y - Processed User response, output variable for ^DIR
;
N DIR,DTOUT,DUOUT,Y
S DIR(0)="E"
W ! D ^DIR I $D(DTOUT)!($D(DUOUT)) S Y=0
I Y=0 S STOP=1 Q
S PAGE=$$PCI(PAGE)
D:STOP=0 RPH
Q
RPF ;Report Page Footer - Prints page footer if output directed to printer
;Local Variables
; LF - Line Feed, Advances 1 line down the page
; LFC - Line Feed Count, number of lines to advance to end of page
N LF,LFC
S LFC=(IOSL-4)-$Y
F LF=1:1:LFC W !
W $P($T(RF),";",3),?65,"PAGE: ",PAGE
S PAGE=$$PCI(PAGE)
D:STOP=0 RPH
Q
LCC ;Line Count Check - Determine if it is time for end of page/screen logic
I $Y>(IOSL-4) D @$S($E(IOST,1,2)="C-":"NS",1:"RPF") I STOP=1 G EXIT
Q
PCI(PN) ;Page Counter
;Variable Passed to PCI
; PN - Page Number
S PN=PN+1 Q PN
;Text used by the program to print the report
;Text for the report page/screen headers
RH ;;Orderable Items File Record Validation Report
;Text for the report page footers
RF ;;Orderable Items File Record Validation Report
;Text for report summary
RS ;;Summary of Orderable Items Validation:
RS0 ;;Total number of records processed:
RS1 ;;Total number of records with null ID fields:
RS2 ;;Total number of records without source IENs:
RS3 ;;Total number of records without source package codes:
RS4 ;;Total number of records with bad source package codes:
RS5 ;;Total number of records requiring manual confirmation:
RS6 ;;Total number of records with source record matches (validated):
RS7 ;;Total number of records without source record matches:
;
;Section header/footer text
SH1 ;;Section 1, Records with null ID field
SH2 ;;Section 2, Records without source IENs
SH3 ;;Section 3, Records without source package codes
SH4 ;;Section 4, Records with incorrect source package code formats
SH5 ;;Section 5, Records with package codes not in current spec
SH6 ;;Section 6, Records with source record matches (Validated)
SH7 ;;section 7, Records without source record matches
SF1 ;;Total with null ID field
SF2 ;;Total without source IENs:
SF3 ;;Total without source package codes:
SF4 ;;Total with bad source package codes:
SF5 ;;Total with package codes not in spec:
SF6 ;;Total validated:
SF7 ;;Total without source record matches:
;
;Package title text
CON ;;Consult Request Services file
FHD ;;Diets file
FHT ;;Tubefeeding file
LRT ;;Laboratory Test file
ORD ;;Orderable Items file
PRC ;;Consult Procedure file
PRO ;;Protocol file
PSP ;;Pharmacy Orderable Item file
RAP ;;Radiology/Nuclear Medicine Procedures file
;
;Column Header text
CH1 ;;OI Name
CH2 ;;Inactive Date
;
;Package Header/Footer Text
PHT ;;Records for package
PFT ;;Sub-total for package
;
;Active OI records Header/Footer Text
AHT ;;Active OI records w/o matching source record
AFT ;;Sub-total active OI records w/o matching source record
;
;Inactive OI records Header/Footer Text
IHT ;;Inactive OI records w/o matching source record
IFT ;;Sub-total inactive OI records w/o matching source record
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HOREORV2 8534 printed Apr 09, 2024@21:34:25 Page 2
OREORV2 ; SLC/GDU - Orderable Item Records Validation [10/15/04 09:16]
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**217**;Dec 17, 1997
+2 ;OREORV2 - 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 ;This prints a report of the results from OREORV1.
+8 ;The results are stored in ^TMP($J,"OIC".
+9 ;^TMP($J,"OIC" is fully documented in OREORV1.
+10 ;The output is sorted and printed in the following manner:
+11 ;
+12 ;A report summary of the overall findings
+13 ;Section 1, details of OI records with null ID field
+14 ;Section 2, details of OI records without source IENs
+15 ;Section 3, details of OI records without source package codes
+16 ;Section 4, details of OI records with bad source package codes
+17 ;Section 5, details of OI records with packages with package
+18 ; codes not listed in the OE/RR Interface Specifications
+19 ; of July 2001. These records have properly formatted
+20 ; package codes but can not be validated with this
+21 ; utility.
+22 ;Section 6, summary of OI records validated with source records
+23 ;Section 7, details of OI records not validated with source records
+24 ;
+25 ;External Variables
+26 ; IOF - Standard FileMan/Kernel IO variable, Form Feed
+27 ; IOM - Standard FileMan/Kernel IO variable, Margin width
+28 ; IOSL - Standard FileMan/Kernel IO variable, Page Length
+29 ; IOST - Standard FileMan/Kernel IO variable, Terminal type
+30 ; U - Standard FileMan/Kernel delimiter variable
+31 ;
+32 ;External References
+33 ; ^DIR DBIA 10026
+34 ; $$REPEAT^XLFSTR DBIA 10104
+35 ;
MAIN ;Main entry point for this program
+1 ;Local Variables
+2 ; PAGE - Page number counter
+3 ; STOP - Stop report execution
+4 ;
+5 NEW PAGE,STOP
+6 SET PAGE=1
SET STOP=0
+7 ;Report Summary
DO RPTSUM
IF STOP=1
GOTO EXIT
+8 DO PS(1)
IF STOP=1
GOTO EXIT
+9 DO PS(2)
IF STOP=1
GOTO EXIT
+10 DO PS(3)
IF STOP=1
GOTO EXIT
+11 DO PS(4)
IF STOP=1
GOTO EXIT
+12 DO PS(5)
IF STOP=1
GOTO EXIT
+13 DO PS(6)
IF STOP=1
GOTO EXIT
+14 DO PS(7)
EXIT ;Exit point for this program
+1 QUIT
RPTSUM ;Report Summary - Summary of ZGOIRV1 findings
+1 ;Local Variables
+2 ; RSL - Report Summary Line, indirect variable to print summary type
+3 ; X - Standard FileMan work variable
+4 ;
+5 NEW RSL,X
+6 DO RPH
+7 WRITE !,$PIECE($TEXT(RS),";",3),!
+8 FOR X=0:1:7
Begin DoDot:1
+9 SET RSL="RS"_X
+10 WRITE !,$PIECE($TEXT(@RSL),";",3),?65,$JUSTIFY(^TMP($JOB,"OIC",X),10)
End DoDot:1
+11 DO @$SELECT($EXTRACT(IOST,1,2)="C-":"NS",1:"RPF")
+12 QUIT
PS(SN) ;Print Sections
+1 ;Variable Passed to PS
+2 ; SN - Section Number
+3 ;Local Variables
+4 ; SH - Section Header
+5 ; SF - Section Footer
+6 ; PACK - Package Code
+7 ; PH - Package Subsection Header
+8 ; PF - Package Subsection Footer
+9 ; NAME - Orderable Item Name
+10 ;
+11 NEW SH,SF,PACK,PH,PF,NAME
+12 SET SH="SH"_SN
SET SF="SF"_SN
+13 WRITE !,$PIECE($TEXT(@SH),";",3)
+14 WRITE !
DO LCC
if STOP=1
QUIT
+15 IF SN=1!(SN=2)!(SN=3)
Begin DoDot:1
+16 IF ^TMP($JOB,"OIC",SN)>0
Begin DoDot:2
+17 WRITE !,$PIECE($TEXT(@SH),";",3)
DO LCC
if STOP=1
QUIT
+18 WRITE !,$$REPEAT^XLFSTR("-",IOM)
DO LCC
if STOP=1
QUIT
+19 SET NAME=""
FOR
SET NAME=$ORDER(^TMP($JOB,"OIC",SN,"B",NAME))
if NAME=""!(STOP=1)
QUIT
Begin DoDot:3
+20 WRITE !,NAME,?65,$PIECE(^TMP($JOB,"OIC",SN,"B",NAME),U,2)
End DoDot:3
End DoDot:2
End DoDot:1
+21 IF SN=4!(SN=5)
Begin DoDot:1
+22 IF ^TMP($JOB,"OIC",SN)>0
Begin DoDot:2
+23 SET PACK=""
FOR
SET PACK=$ORDER(^TMP($JOB,"OIC",SN,PACK))
if PACK=""!(STOP=1)
QUIT
Begin DoDot:3
+24 SET PH=$PIECE($TEXT(PHT),";",3)_" : "_PACK_" - "_$PIECE($TEXT(@$EXTRACT(PACK,3,5)),";",3)
+25 SET PF=$PIECE($TEXT(PFT),";",3)_" : "_PACK_" - "_$PIECE($TEXT(@$EXTRACT(PACK,3,5)),";",3)
+26 WRITE !,PH
DO LCC
if STOP=1
QUIT
+27 WRITE !,$PIECE($TEXT(CH1),";",3),?65,$PIECE($TEXT(CH2),";",3)
DO LCC
if STOP=1
QUIT
+28 WRITE !,$$REPEAT^XLFSTR("-",IOM)
DO LCC
if STOP=1
QUIT
+29 SET NAME=""
FOR
SET NAME=$ORDER(^TMP($JOB,"OIC",SN,PACK,"B",NAME))
if NAME=""!(STOP=1)
QUIT
Begin DoDot:4
+30 WRITE !,NAME,?65,$PIECE(^TMP($JOB,"OIC",SN,PACK,"B",NAME),U,2)
DO LCC
if STOP=1
QUIT
End DoDot:4
+31 WRITE !,PF,?65,$JUSTIFY(^TMP($JOB,"OIC",SN,PACK),10)
DO LCC
if STOP=1
QUIT
+32 WRITE !
DO LCC
if STOP=1
QUIT
End DoDot:3
End DoDot:2
End DoDot:1
+33 IF SN=6
Begin DoDot:1
+34 IF ^TMP($JOB,"OIC",SN)>0
Begin DoDot:2
End DoDot:2
+35 SET PACK=""
FOR
SET PACK=$ORDER(^TMP($JOB,"OIC",SN,PACK))
if PACK=""!(STOP=1)
QUIT
Begin DoDot:2
+36 SET PH=PACK_" - "_$PIECE($TEXT(@$EXTRACT(PACK,3,5)),";",3)
+37 WRITE !,PH,?65,$JUSTIFY(^TMP($JOB,"OIC",SN,PACK),10)
DO LCC
if STOP=1
QUIT
End DoDot:2
End DoDot:1
+38 IF SN=7
DO PS7
+39 WRITE !
DO LCC
if STOP=1
QUIT
+40 WRITE !,$PIECE($TEXT(@SF),";",3),?65,$JUSTIFY(^TMP($JOB,"OIC",SN),10)
DO LCC
if STOP=1
QUIT
+41 IF SN=7
SET STOP=1
+42 DO @$SELECT($EXTRACT(IOST,1,2)="C-":"NS",1:"RPF")
+43 QUIT
PS7 ;Print Section 7
+1 ;Local Variables
+2 ; AH - Activity Type Subsection Header
+3 ; AF - Activity Type Subsection Footer
+4 ; AI - Active / Inactive Indicator
+5 ;
+6 NEW AH,AF,AI
+7 IF ^TMP($JOB,"OIC",SN)=0
QUIT
+8 SET AI=""
FOR
SET AI=$ORDER(^TMP($JOB,"OIC",SN,AI))
if AI=""!(STOP=1)
QUIT
Begin DoDot:1
+9 SET AH=AI_"HT"
SET AF=AI_"FT"
+10 WRITE !,$PIECE($TEXT(@AH),";",3)
DO LCC
if STOP=1
QUIT
+11 SET PACK=""
FOR
SET PACK=$ORDER(^TMP($JOB,"OIC",SN,AI,PACK))
if PACK=""!(STOP=1)
QUIT
Begin DoDot:2
+12 SET PH=$PIECE($TEXT(PHT),";",3)_" : "_PACK_" - "_$PIECE($TEXT(@$EXTRACT(PACK,3,5)),";",3)
+13 SET PF=PACK_" - "_$PIECE($TEXT(@$EXTRACT(PACK,3,5)),";",3)
+14 WRITE !,PH
DO LCC
if STOP=1
QUIT
+15 WRITE !,$PIECE($TEXT(CH1),";",3),?65,$PIECE($TEXT(CH2),";",3)
DO LCC
if STOP=1
QUIT
+16 WRITE !,$$REPEAT^XLFSTR("-",IOM)
DO LCC
if STOP=1
QUIT
+17 SET NAME=""
FOR
SET NAME=$ORDER(^TMP($JOB,"OIC",SN,AI,PACK,"B",NAME))
if NAME=""!(STOP=1)
QUIT
Begin DoDot:3
+18 WRITE !,NAME,?65,$PIECE(^TMP($JOB,"OIC",SN,AI,PACK,"B",NAME),U,2)
DO LCC
if STOP=1
QUIT
End DoDot:3
+19 WRITE !,PF,?65,$JUSTIFY(^TMP($JOB,"OIC",SN,AI,PACK),10)
DO LCC
if STOP=1
QUIT
+20 WRITE !
DO LCC
if STOP=1
QUIT
End DoDot:2
+21 WRITE !
DO LCC
if STOP=1
QUIT
+22 WRITE !,$PIECE($TEXT(@AF),";",3),?65,$JUSTIFY(^TMP($JOB,"OIC",SN,AI),10)
DO LCC
if STOP=1
QUIT
End DoDot:1
+23 QUIT
RPH ;Report Page Header
+1 if $EXTRACT(IOST,1,2)="C-"!(PAGE>1)
WRITE @IOF
+2 WRITE $PIECE($TEXT(RH),";",3),?65,"PAGE: ",PAGE
+3 QUIT
NS ;Next Screen - Advances user to next screen if output directed to
+1 ;video console
+2 ;Local Variables
+3 ; DIR - Input array variable for ^DIR
+4 ; DTOUT - Time out indicator, output variable for ^DIR
+5 ; DUOUT - Up arrow out indicator, "^", output variable for ^DIR
+6 ; Y - Processed User response, output variable for ^DIR
+7 ;
+8 NEW DIR,DTOUT,DUOUT,Y
+9 SET DIR(0)="E"
+10 WRITE !
DO ^DIR
IF $DATA(DTOUT)!($DATA(DUOUT))
SET Y=0
+11 IF Y=0
SET STOP=1
QUIT
+12 SET PAGE=$$PCI(PAGE)
+13 if STOP=0
DO RPH
+14 QUIT
RPF ;Report Page Footer - Prints page footer if output directed to printer
+1 ;Local Variables
+2 ; LF - Line Feed, Advances 1 line down the page
+3 ; LFC - Line Feed Count, number of lines to advance to end of page
+4 NEW LF,LFC
+5 SET LFC=(IOSL-4)-$Y
+6 FOR LF=1:1:LFC
WRITE !
+7 WRITE $PIECE($TEXT(RF),";",3),?65,"PAGE: ",PAGE
+8 SET PAGE=$$PCI(PAGE)
+9 if STOP=0
DO RPH
+10 QUIT
LCC ;Line Count Check - Determine if it is time for end of page/screen logic
+1 IF $Y>(IOSL-4)
DO @$SELECT($EXTRACT(IOST,1,2)="C-":"NS",1:"RPF")
IF STOP=1
GOTO EXIT
+2 QUIT
PCI(PN) ;Page Counter
+1 ;Variable Passed to PCI
+2 ; PN - Page Number
+3 SET PN=PN+1
QUIT PN
+4 ;Text used by the program to print the report
+5 ;Text for the report page/screen headers
RH ;;Orderable Items File Record Validation Report
+1 ;Text for the report page footers
RF ;;Orderable Items File Record Validation Report
+1 ;Text for report summary
RS ;;Summary of Orderable Items Validation:
RS0 ;;Total number of records processed:
RS1 ;;Total number of records with null ID fields:
RS2 ;;Total number of records without source IENs:
RS3 ;;Total number of records without source package codes:
RS4 ;;Total number of records with bad source package codes:
RS5 ;;Total number of records requiring manual confirmation:
RS6 ;;Total number of records with source record matches (validated):
RS7 ;;Total number of records without source record matches:
+1 ;
+2 ;Section header/footer text
SH1 ;;Section 1, Records with null ID field
SH2 ;;Section 2, Records without source IENs
SH3 ;;Section 3, Records without source package codes
SH4 ;;Section 4, Records with incorrect source package code formats
SH5 ;;Section 5, Records with package codes not in current spec
SH6 ;;Section 6, Records with source record matches (Validated)
SH7 ;;section 7, Records without source record matches
SF1 ;;Total with null ID field
SF2 ;;Total without source IENs:
SF3 ;;Total without source package codes:
SF4 ;;Total with bad source package codes:
SF5 ;;Total with package codes not in spec:
SF6 ;;Total validated:
SF7 ;;Total without source record matches:
+1 ;
+2 ;Package title text
CON ;;Consult Request Services file
FHD ;;Diets file
FHT ;;Tubefeeding file
LRT ;;Laboratory Test file
ORD ;;Orderable Items file
PRC ;;Consult Procedure file
PRO ;;Protocol file
PSP ;;Pharmacy Orderable Item file
RAP ;;Radiology/Nuclear Medicine Procedures file
+1 ;
+2 ;Column Header text
CH1 ;;OI Name
CH2 ;;Inactive Date
+1 ;
+2 ;Package Header/Footer Text
PHT ;;Records for package
PFT ;;Sub-total for package
+1 ;
+2 ;Active OI records Header/Footer Text
AHT ;;Active OI records w/o matching source record
AFT ;;Sub-total active OI records w/o matching source record
+1 ;
+2 ;Inactive OI records Header/Footer Text
IHT ;;Inactive OI records w/o matching source record
IFT ;;Sub-total inactive OI records w/o matching source record
