Changeset 623 for WorldVistAEHR/trunk/r/DRUG_ACCOUNTABILITY-PSA/PSABRKU5.m

Timestamp:

Dec 4, 2009, 12:11:15 AM (14 years ago)

Author:

George Lilly

Message:

revised back to 6/30/08 version

File:

• WorldVistAEHR/trunk/r/DRUG_ACCOUNTABILITY-PSA/PSABRKU5.m (modified) (1 diff)

WorldVistAEHR/trunk/r/DRUG_ACCOUNTABILITY-PSA/PSABRKU5.m

@@ -1 @@
-PSABRKU5        ;BIR/DB-Upload and Process Prime Vendor Invoice Data - CONT'D ;7/23/97
-        ;;3.0; DRUG ACCOUNTABILITY/INVENTORY INTERFACE;**26,67**; 10/24/97;Build 15
-        ;This routine checks for correct X12 formating.
-        ;
-ORDER   ;  check order of code sheets
-        S PSANEXT=$P(PSADATA,"^")
-        ;
-        I PSALAST="GE",PSANEXT="GS" Q
-        I PSALAST="GE",PSANEXT'="IEA" D ORDERROR("GE",PSANEXT,"IEA") Q
-        ;
-        I PSALAST="ISA",PSANEXT'="GS" D ORDERROR("ISA",PSANEXT,"GS") Q
-        ;
-        I PSALAST="SE",PSANEXT="ST" Q
-        I PSALAST="SE",PSANEXT'="GE" D ORDERROR("SE",PSANEXT,"GE") Q
-        ;
-        I PSALAST="GS",PSANEXT'="ST" D ORDERROR("GS",PSANEXT,"ST") Q
-        ;
-        I PSALAST="CTT",PSANEXT'="SE" D ORDERROR("CTT",PSANEXT,"SE") Q
-        ;
-        I PSALAST="ST",PSANEXT'="BIG" D ORDERROR("ST",PSANEXT,"BIG") Q
-        ;
-        ;adding next two lines for new format
-        I PSALAST="IT1",PSANEXT="PID" Q
-        I PSALAST="PO4",PSANEXT'="IT1",PSANEXT'="CTT"&(PSANEXT'="TDS") D ORDERROR("PO4",PSANEXT,"CTT") Q
-        ;End of PSA*3*67 Changes
-        Q
-        ;
-ORDERROR(PSALAST,PSANEW,PSAEXPEC)       ;Segments out of order
-        ;ISA segment should be first
-        I PSALAST="" S PSASEG="ORDER1" D MSG^PSABRKU8 Q
-        ;Segments other than ISA
-        S PSASEG="ORDER2" D MSG^PSABRKU8
-        Q
+PSABRKU5 ;BIR/JMB-Upload and Process Prime Vendor Invoice Data - CONT'D ;7/23/97
+ ;;3.0; DRUG ACCOUNTABILITY/INVENTORY INTERFACE;**26**; 10/24/97
+ ;This routine checks for correct X12 formating.
+ ;
+ORDER ;  check order of code sheets
+ ;  isa   <--------------+
+ ;    gs    <----------+ |
+ ;      st    <------+ | |
+ ;      | big        | | |
+ ;      | it1   <--+ | | |
+ ;      | ...      | | | |--repeats
+ ;      | it1   <--+ | | |
+ ;      | ctt        | | |
+ ;      se    <------+ | |
+ ;    ge    <----------+ |
+ ;  iea   <--------------+
+ S PSANEXT=$P(PSADATA,"^")
+ ;
+ I PSALAST="GE",PSANEXT="GS" Q
+ I PSALAST="GE",PSANEXT'="IEA" D ORDERROR("GE",PSANEXT,"IEA") Q
+ ;
+ I PSALAST="ISA",PSANEXT'="GS" D ORDERROR("ISA",PSANEXT,"GS") Q
+ ;
+ I PSALAST="SE",PSANEXT="ST" Q
+ I PSALAST="SE",PSANEXT'="GE" D ORDERROR("SE",PSANEXT,"GE") Q
+ ;
+ I PSALAST="GS",PSANEXT'="ST" D ORDERROR("GS",PSANEXT,"ST") Q
+ ;
+ I PSALAST="CTT",PSANEXT'="SE" D ORDERROR("CTT",PSANEXT,"SE") Q
+ ;
+ I PSALAST="ST",PSANEXT'="BIG" D ORDERROR("ST",PSANEXT,"BIG") Q
+ ;
+ I PSALAST="IT1",PSANEXT="IT1" Q
+ I PSALAST="IT1",PSANEXT'="CTT"&(PSANEXT'="TDS") D ORDERROR("IT1",PSANEXT,"CTT") Q
+ Q
+ ;
+ORDERROR(PSALAST,PSANEW,PSAEXPEC) ;Segments out of order
+ ;ISA segment should be first
+ I PSALAST="" S PSASEG="ORDER1" D MSG^PSABRKU8 Q
+ ;Segments other than ISA
+ S PSASEG="ORDER2" D MSG^PSABRKU8
+ Q