Routine: PSAUTL1

PSAUTL1 ;BIR/JMB-Prime Vendor Invoice Data Utility ;9/19/97

 ;;3.0; DRUG ACCOUNTABILITY/INVENTORY INTERFACE;**3,12,15,21,48,49**; 10/24/97

 ;This routine contains utilities to get the location name, display an

 ;error-free item, display an item with errors, and display a line ready

 ;for verification.

 ;References to global ^PS(59.4, are covered under IA #2505

 ;References to global ^DIC(51.5, are covered under IA #1931

 ;References to global ^PS(59, are covered under IA #212

 ;References to ^PSDRUG( are covered by IA #2095

SITES ;Gets the combined IP/OP's IP & OP site names

 ;PSA*3*22 (DAVE B) no location defined

 I $G(PSALOC)'>0 S (PSAISITN,PSAOSITN)="Unknown",PSACOMB=" No location identifed" Q

 ;End PSA*3*22

 S PSAISIT=+$P($G(^PSD(58.8,PSALOC,0)),"^",3) D OPSITE

 I $G(PSAOSIT)="" S PSAOSIT=0

 S PSAISITN=$S($P($G(^PS(59.4,PSAISIT,0)),"^")'="":$P($G(^PS(59.4,PSAISIT,0)),"^"),1:"UNKNOWN")

 I PSAISIT,PSAOSIT S PSACOMB=": "_PSAISITN_" (IP) "_PSAOSITN_" (OP)" Q

 I PSAISIT S PSACOMB=": "_PSAISITN_" (IP)" Q

 I PSAOSIT S PSACOMB=": "_PSAOSITN_" (OP)" Q

 ;DAVE B (PSA*3*12) no DA sites defined

 S PSACOMB="No Inpatient or Outpatient Sites defined"

OPSITE ;PSA*3*25 - check for multiple OP sites

 ;VMP OIFO BAY PINES;ELR;PSA*3*49  ADDED THE FOLLOWING LINE

 S (PSAOSIT,PSAOSITN)=""

 K PSAOSITC

 Q:'$D(PSALOC)

 I '$D(^PSD(58.8,+PSALOC,7)),$P(^PSD(58.8,+PSALOC,0),"^",10)'="" S PSAOSIT=$P(^PSD(58.8,+PSALOC,0),"^",10),PSAOSITN=$P($G(^PS(59,PSAOSIT,0)),"^"),PSAOSITN=$S($G(PSAOSITN)="":"Unknown",1:PSAOSITN)

 S XX=0 F  S XX=$O(^PSD(58.8,+PSALOC,7,XX)) Q:XX'>0  S PSAOSIT=XX,PSAOSITC=$G(PSAOSITC)+1,SN=$P($G(^PS(59,XX,0)),"^") D

 .I PSAOSITC=1 S PSAOSITN=SN Q

 .S PSAOSITN=PSAOSITN_" & "_SN

 I $G(PSAOSITN)="",$P(^PSD(58.8,+PSALOC,0),"^",10)'="" S PSAOSIT=$P(^PSD(58.8,+PSALOC,0),"^",10),PSAOSITN=$P($G(^PS(59,+PSAOSIT,0)),"^")

 S PSAOSITN=$S($G(PSAOSITN)="":"unknown",1:PSAOSITN)

DISPLAY ;Displays an error-free line item

 S PSADISP=1

 S PSAIEN=$P(PSADATA,"^",6),PSASUB=$P($P(PSADATA,"^",7),"~"),PSANDC=$P($P(PSADATA,"^",4),"~"),PSAVSN=$P($P(PSADATA,"^",5),"~")

 W !,PSALINE_"  "_$S($P($G(^PSDRUG(PSAIEN,0)),"^")'="":$P(^PSDRUG(PSAIEN,0),"^"),1:"UNKNOWN")

 I PSAIEN D

 .I $P($G(^PSDRUG(PSAIEN,2)),"^",3)["N" W " (Controlled Substance)" I $P($G(^PSD(58.8,+$P(PSAIN,"^",12),1,PSAIEN,0)),"^",14),$P($G(^(0)),"^",14)'>DT W !,$C(7),$C(7),"** INACTIVE IN MASTER VAULT **" Q

 .I $P($G(^PSD(58.8,+$P(PSAIN,"^",7),1,PSAIEN,0)),"^",14),$P($G(^(0)),"^",14)'>DT W !,$C(7),$C(7),"** INACTIVE IN PHARMACY LOCATION **"

 .I $D(^PSDRUG(PSAIEN,"I")) W !?5,"** INACTIVE IN DRUG FILE **"

 W !,"Qty Invoiced: "_+$P(PSADATA,"^")

 W:$P($P(PSADATA,"^",26),"~")'="" ?38,"UPC: "_$P($P(PSADATA,"^",26),"~")

 W !,"Order Unit  : "

 S PSAOU=$S(+$P(PSADATA,"^",12):+$P(PSADATA,"^",12),+$P($P(PSADATA,"^",2),"~",2):+$P($P(PSADATA,"^",2),"~",2),PSAIEN&(PSASUB)&(+$P($G(^PSDRUG(PSAIEN,1,PSASUB,0)),"^",5)):+$P(^PSDRUG(PSAIEN,1,PSASUB,0),"^",5),1:0)

 W $S(PSAOU:$P($G(^DIC(51.5,+PSAOU,0)),"^"),1:"UNKNOWN")

 W:$E(PSANDC)'="S" ?38,"NDC: " D PSANDC1^PSAHELP W PSANDCX K PSANDCX

 W !,"Unit Price  : $"_$P(PSADATA,"^",3),?38,"VSN: "_$S(PSAVSN'="":PSAVSN,1:"Blank"),!

 I $P(PSADATA,U,13)=.5 D  ;*48 AUTO OU UPDATE FOR MCKESSON

 . W !,"*****>",!,"Note: The order unit was changed from EACH to ",$P($G(^DIC(51.5,+PSAOU,0)),"^")," by Drug Accountability"

 . W !,"      during the upload of the invoiced data. Adjustments may be necessary.",!,"*****<"

 W !,"Dispense Units: "_$S(+PSAIEN&($P($G(^PSDRUG(+PSAIEN,660)),"^",8)'=""):$P($G(^PSDRUG(+PSAIEN,660)),"^",8),1:"Blank")

 W !,"Dispense Units Per Order Unit: "_$S($P(PSADATA,"^",20):+$P(PSADATA,"^",20),+PSASUB&(+$P($G(^PSDRUG(+PSAIEN,1,PSASUB,0)),"^",7)):+$P($G(^PSDRUG(+PSAIEN,1,PSASUB,0)),"^",7),1:"Blank")

 S PSALOC=$S($P(PSADATA,"^",19)="":+$P(PSAIN,"^",7),1:+$P(PSAIN,"^",12))

 Q:'+$P($G(^PSD(58.8,+PSALOC,0)),"^",14)!('$G(PSAIEN))

 S PSASTOCK=$S(+$P(PSADATA,"^",27):+$P(PSADATA,"^",27),+$P($G(^PSD(58.8,+PSALOC,1,+PSAIEN,0)),"^",3):+$P($G(^PSD(58.8,+PSALOC,1,+PSAIEN,0)),"^",3),1:"Blank")

 W !,"Stock Level   : "_PSASTOCK

 S PSAREORD=$S(+$P(PSADATA,"^",21):+$P(PSADATA,"^",21),+$P($G(^PSD(58.8,+PSALOC,1,+PSAIEN,0)),"^",5):+$P($G(^PSD(58.8,+PSALOC,1,+PSAIEN,0)),"^",5),1:"Blank") ;*48

 W !,"Reorder Level : "_PSAREORD,!

EDITDISP ;Displays a line item with errors.

 W @IOF,!?23,"<<< PROCESS LINE ITEM SCREEN >>>",!,"Order#: "_$P(PSAIN,"^",4)_"  Invoice#: "_$P(PSAIN,"^",2)_"  Invoice Date: "_$$FMTE^XLFDT(+PSAIN),!,PSASLN

EDIT1 S PSADATA=$G(^XTMP("PSAPV",PSACTRL,"IT",PSALINE))

 S PSALOC=$S($P(PSADATA,"^",19)="":+$P(PSAIN,"^",7),1:+$P(PSAIN,"^",12))

 W !,PSALINE_"  "_$S($D(^XTMP("PSAPV",PSACTRL,"IT",PSALINE,"SUP")):$P(^XTMP("PSAPV",PSACTRL,"IT",PSALINE,"SUP"),"^",3),PSAIEN&($P($G(^PSDRUG(PSAIEN,0)),"^")'=""):$P(^PSDRUG(PSAIEN,0),"^"),1:"UNKNOWN ITEM")

 I PSAIEN D

 .I $P($G(^PSDRUG(PSAIEN,2)),"^",3)["N" W " (Controlled Substance)" I $P($G(^PSD(58.8,+$P(PSAIN,"^",12),1,PSAIEN,0)),"^",14),$P($G(^(0)),"^",14)'>DT W !,$C(7),$C(7),"** INACTIVE IN MASTER VAULT **" Q

 .I $P($G(^PSD(58.8,+$P(PSAIN,"^",7),1,PSAIEN,0)),"^",14),$P($G(^(0)),"^",14)'>DT W !,$C(7),$C(7),"** INACTIVE IN PHARMACY LOCATION **"

 W !,"Qty Invoiced: "

 I $P(PSADATA,"^",8)'="" W $P(PSADATA,"^",8)_" ("_$S(+PSADATA:+PSADATA,$P(PSADATA,"^")=0:0,1:"Blank")_")"

 I $P(PSADATA,"^",8)="" W $S(+PSADATA:+PSADATA,$P(PSADATA,"^")=0:0,1:"Blank")

 W:$P($P(PSADATA,"^",26),"~")'="" ?38,"UPC: "_$P($P(PSADATA,"^",26),"~")

 W !,"Order Unit  : "

 I +$P(PSADATA,"^",12) D

 .W $P($G(^DIC(51.5,+$P(PSADATA,"^",12),0)),"^")

 .W " ("_$S($P($P(PSADATA,"^",2),"~")'="":$P($P(PSADATA,"^",2),"~"),$P($G(^DIC(51.5,+$P($P(PSADATA,"^",2),"~",3),0)),"^")'="":$P($G(^DIC(51.5,+$P($P(PSADATA,"^",2),"~",3),0)),"^"),1:"Blank")_")"

 I '+$P(PSADATA,"^",12) D

 .W $S(+$P($P(PSADATA,"^",2),"~",2):$P($P(PSADATA,"^",2),"~"),PSAIEN&(PSASUB)&(+$P($G(^PSDRUG(PSAIEN,1,PSASUB,0)),"^",5)):$P($G(^DIC(51.5,+$P(^PSDRUG(PSAIEN,1,PSASUB,0),"^",5),0)),"^"),1:"Blank")

 W:$E(PSANDC)'="S" ?38,"NDC: " D PSANDC1^PSAHELP W PSANDCX K PSANDCX

 S PSAPRICE=$P(PSADATA,"^",3)

 I +PSAPRICE,$L($P(PSAPRICE,".",2))<2 S PSAPRICE=$P(PSAPRICE,".")_"."_$P(PSAPRICE,".",2)_$E("00",1,(2-$L($P(PSAPRICE,".",2))))

 W !,"Unit Price  : $"_$S($G(PSAPRICE):PSAPRICE,PSAPRICE=0:0,1:"Blank"),?38,"VSN: "_$S(PSAVSN'="":PSAVSN,1:"Blank"),!

 I $P(PSADATA,U,13)=.5 D  ;*48 AUTO OU UPDATE FOR MCKESSON

 . N PSAOU S PSAOU=$P(PSADATA,U,12)

 . W !,"*****>",!,"Note: The order unit was changed from EACH to ",$P($G(^DIC(51.5,+PSAOU,0)),"^")," by Drug Accountability"

 . W !,"      during the upload of the invoiced data. Adjustments may be necessary.",!,"*****<"

 S PSAIN=^XTMP("PSAPV",PSACTRL,"IN"),PSALOC=$S($P(PSADATA,"^",19)="CS":+$P(PSAIN,"^",12),1:+$P(PSAIN,"^",7))

DU W !,"Dispense Units: "_$S(+PSAIEN&($P($G(^PSDRUG(+PSAIEN,660)),"^",8)'=""):$P($G(^PSDRUG(+PSAIEN,660)),"^",8),1:"Blank")

DUOU W !,"Dispense Units Per Order Unit: "_$S($P(PSADATA,"^",20):+$P(PSADATA,"^",20),+PSASUB&(+$P($G(^PSDRUG(+PSAIEN,1,PSASUB,0)),"^",7)):+$P($G(^PSDRUG(+PSAIEN,1,PSASUB,0)),"^",7),1:"Blank"),!

 Q:'+$P($G(^PSD(58.8,+PSALOC,0)),"^",14)

 S PSASTOCK=$S(+$P(PSADATA,"^",27):+$P(PSADATA,"^",27),+$P($G(^PSD(58.8,+PSALOC,1,+PSAIEN,0)),"^",3):+$P($G(^PSD(58.8,+PSALOC,1,+PSAIEN,0)),"^",3),1:"Blank")

 W "Stock Level   : "_PSASTOCK

 S PSAREORD=$S(+$P(PSADATA,"^",21):+$P(PSADATA,"^",21),+$P($G(^PSD(58.8,+PSALOC,1,+PSAIEN,0)),"^",5):+$P($G(^PSD(58.8,+PSALOC,1,+PSAIEN,0)),"^",5),1:"Blank")

 W !,"Reorder Level : "_PSAREORD,!

PSAUTL1   ;BIR/JMB-Prime Vendor Invoice Data Utility ;9/19/97

 +1       ;;3.0; DRUG ACCOUNTABILITY/INVENTORY INTERFACE;**3,12,15,21,48,49**; 10/24/97

 +2       ;This routine contains utilities to get the location name, display an

 +3       ;error-free item, display an item with errors, and display a line ready

 +4       ;for verification.

 +5       ;References to global ^PS(59.4, are covered under IA #2505

 +6       ;References to global ^DIC(51.5, are covered under IA #1931

 +7       ;References to global ^PS(59, are covered under IA #212

 +8       ;References to ^PSDRUG( are covered by IA #2095

 +9       ;

SITES     ;Gets the combined IP/OP's IP & OP site names

 +1       ;PSA*3*22 (DAVE B) no location defined

 +2        IF $GET(PSALOC)'>0

               SET (PSAISITN,PSAOSITN)="Unknown"

               SET PSACOMB=" No location identifed"

               QUIT

 +3       ;End PSA*3*22

 +4        SET PSAISIT=+$PIECE($GET(^PSD(58.8,PSALOC,0)),"^",3)

           DO OPSITE

 +5        IF $GET(PSAOSIT)=""

               SET PSAOSIT=0

 +6        SET PSAISITN=$SELECT($PIECE($GET(^PS(59.4,PSAISIT,0)),"^")'="":$PIECE($GET(^PS(59.4,PSAISIT,0)),"^"),1:"UNKNOWN")

 +7        IF PSAISIT

               IF PSAOSIT

                   SET PSACOMB=": "_PSAISITN_" (IP) "_PSAOSITN_" (OP)"

                   QUIT

 +8        IF PSAISIT

               SET PSACOMB=": "_PSAISITN_" (IP)"

               QUIT

 +9        IF PSAOSIT

               SET PSACOMB=": "_PSAOSITN_" (OP)"

               QUIT

 +10      ;DAVE B (PSA*3*12) no DA sites defined

 +11       SET PSACOMB="No Inpatient or Outpatient Sites defined"

 +12       QUIT

OPSITE    ;PSA*3*25 - check for multiple OP sites

 +1       ;VMP OIFO BAY PINES;ELR;PSA*3*49  ADDED THE FOLLOWING LINE

 +2        SET (PSAOSIT,PSAOSITN)=""

 +3        KILL PSAOSITC

 +4        IF '$DATA(PSALOC)

               QUIT

 +5        IF '$DATA(^PSD(58.8,+PSALOC,7))

               IF $PIECE(^PSD(58.8,+PSALOC,0),"^",10)'=""

                   SET PSAOSIT=$PIECE(^PSD(58.8,+PSALOC,0),"^",10)

                   SET PSAOSITN=$PIECE($GET(^PS(59,PSAOSIT,0)),"^")

                   SET PSAOSITN=$SELECT($GET(PSAOSITN)="":"Unknown",1:PSAOSITN)

 +6        SET XX=0

FOR

               SET XX=$ORDER(^PSD(58.8,+PSALOC,7,XX))

               IF XX'>0

                   QUIT

               SET PSAOSIT=XX

               SET PSAOSITC=$GET(PSAOSITC)+1

               SET SN=$PIECE($GET(^PS(59,XX,0)),"^")

               Begin DoDot:1

 +7                IF PSAOSITC=1

                       SET PSAOSITN=SN

                       QUIT

 +8                SET PSAOSITN=PSAOSITN_" & "_SN

               End DoDot:1

 +9        IF $GET(PSAOSITN)=""

               IF $PIECE(^PSD(58.8,+PSALOC,0),"^",10)'=""

                   SET PSAOSIT=$PIECE(^PSD(58.8,+PSALOC,0),"^",10)

                   SET PSAOSITN=$PIECE($GET(^PS(59,+PSAOSIT,0)),"^")

 +10       SET PSAOSITN=$SELECT($GET(PSAOSITN)="":"unknown",1:PSAOSITN)

 +11       QUIT

 +12      ;

DISPLAY   ;Displays an error-free line item

 +1        SET PSADISP=1

 +2        SET PSAIEN=$PIECE(PSADATA,"^",6)

           SET PSASUB=$PIECE($PIECE(PSADATA,"^",7),"~")

           SET PSANDC=$PIECE($PIECE(PSADATA,"^",4),"~")

           SET PSAVSN=$PIECE($PIECE(PSADATA,"^",5),"~")

 +3        WRITE !,PSALINE_"  "_$SELECT($PIECE($GET(^PSDRUG(PSAIEN,0)),"^")'="":$PIECE(^PSDRUG(PSAIEN,0),"^"),1:"UNKNOWN")

 +4        IF PSAIEN

               Begin DoDot:1

 +5                IF $PIECE($GET(^PSDRUG(PSAIEN,2)),"^",3)["N"

                       WRITE " (Controlled Substance)"

                       IF $PIECE($GET(^PSD(58.8,+$PIECE(PSAIN,"^",12),1,PSAIEN,0)),"^",14)

                           IF $PIECE($GET(^(0)),"^",14)'>DT

                               WRITE !,$CHAR(7),$CHAR(7),"** INACTIVE IN MASTER VAULT **"

                               QUIT

 +6                IF $PIECE($GET(^PSD(58.8,+$PIECE(PSAIN,"^",7),1,PSAIEN,0)),"^",14)

                       IF $PIECE($GET(^(0)),"^",14)'>DT

                           WRITE !,$CHAR(7),$CHAR(7),"** INACTIVE IN PHARMACY LOCATION **"

 +7                IF $DATA(^PSDRUG(PSAIEN,"I"))

                       WRITE !?5,"** INACTIVE IN DRUG FILE **"

               End DoDot:1

 +8        WRITE !,"Qty Invoiced: "_+$PIECE(PSADATA,"^")

 +9        IF $PIECE($PIECE(PSADATA,"^",26),"~")'=""

               WRITE ?38,"UPC: "_$PIECE($PIECE(PSADATA,"^",26),"~")

 +10       WRITE !,"Order Unit  : "

 +11       SET PSAOU=$SELECT(+$PIECE(PSADATA,"^",12):+$PIECE(PSADATA,"^",12),+$PIECE($PIECE(PSADATA,"^",2),"~",2):+$PIECE($PIECE(PSADATA,"^",2),"~",2),PSAIEN&(PSASUB)&(+$PIECE($GET(^PSDRUG(PSAIEN,1,PSASUB,0)),"^",5)):+$PIECE(^PSDRUG(PSAIEN,1,PSASUB,0),"^"

,5),1:0)

 +12       WRITE $SELECT(PSAOU:$PIECE($GET(^DIC(51.5,+PSAOU,0)),"^"),1:"UNKNOWN")

 +13       IF $EXTRACT(PSANDC)'="S"

               WRITE ?38,"NDC: "

           DO PSANDC1^PSAHELP

           WRITE PSANDCX

           KILL PSANDCX

 +14       WRITE !,"Unit Price  : $"_$PIECE(PSADATA,"^",3),?38,"VSN: "_$SELECT(PSAVSN'="":PSAVSN,1:"Blank"),!

 +15      ;*48 AUTO OU UPDATE FOR MCKESSON

           IF $PIECE(PSADATA,U,13)=.5

               Begin DoDot:1

 +16               WRITE !,"*****>",!,"Note: The order unit was changed from EACH to ",$PIECE($GET(^DIC(51.5,+PSAOU,0)),"^")," by Drug Accountability"

 +17               WRITE !,"      during the upload of the invoiced data. Adjustments may be necessary.",!,"*****<"

               End DoDot:1

 +18       WRITE !,"Dispense Units: "_$SELECT(+PSAIEN&($PIECE($GET(^PSDRUG(+PSAIEN,660)),"^",8)'=""):$PIECE($GET(^PSDRUG(+PSAIEN,660)),"^",8),1:"Blank")

 +19       WRITE !,"Dispense Units Per Order Unit: "_$SELECT($PIECE(PSADATA,"^",20):+$PIECE(PSADATA,"^",20),+PSASUB&(+$PIECE($GET(^PSDRUG(+PSAIEN,1,PSASUB,0)),"^",7)):+$PIECE($GET(^PSDRUG(+PSAIEN,1,PSASUB,0)),"^",7),1:"Blank")

 +20       SET PSALOC=$SELECT($PIECE(PSADATA,"^",19)="":+$PIECE(PSAIN,"^",7),1:+$PIECE(PSAIN,"^",12))

 +21       IF '+$PIECE($GET(^PSD(58.8,+PSALOC,0)),"^",14)!('$GET(PSAIEN))

               QUIT

 +22       SET PSASTOCK=$SELECT(+$PIECE(PSADATA,"^",27):+$PIECE(PSADATA,"^",27),+$PIECE($GET(^PSD(58.8,+PSALOC,1,+PSAIEN,0)),"^",3):+$PIECE($GET(^PSD(58.8,+PSALOC,1,+PSAIEN,0)),"^",3),1:"Blank")

 +23       WRITE !,"Stock Level   : "_PSASTOCK

 +24      ;*48

           SET PSAREORD=$SELECT(+$PIECE(PSADATA,"^",21):+$PIECE(PSADATA,"^",21),+$PIECE($GET(^PSD(58.8,+PSALOC,1,+PSAIEN,0)),"^",5):+$PIECE($GET(^PSD(58.8,+PSALOC,1,+PSAIEN,0)),"^",5),1:"Blank")

 +25       WRITE !,"Reorder Level : "_PSAREORD,!

 +26       QUIT

 +27      ;

EDITDISP  ;Displays a line item with errors.

 +1        WRITE @IOF,!?23,"<<< PROCESS LINE ITEM SCREEN >>>",!,"Order#: "_$PIECE(PSAIN,"^",4)_"  Invoice#: "_$PIECE(PSAIN,"^",2)_"  Invoice Date: "_$$FMTE^XLFDT(+PSAIN),!,PSASLN

EDIT1      SET PSADATA=$GET(^XTMP("PSAPV",PSACTRL,"IT",PSALINE))

 +1        SET PSALOC=$SELECT($PIECE(PSADATA,"^",19)="":+$PIECE(PSAIN,"^",7),1:+$PIECE(PSAIN,"^",12))

 +2        WRITE !,PSALINE_"  "_$SELECT($DATA(^XTMP("PSAPV",PSACTRL,"IT",PSALINE,"SUP")):$PIECE(^XTMP("PSAPV",PSACTRL,"IT",PSALINE,"SUP"),"^",3),PSAIEN&($PIECE($GET(^PSDRUG(PSAIEN,0)),"^")'=""):$PIECE(^PSDRUG(PSAIEN,0),"^"),1:"UNKNOWN ITEM")

 +3        IF PSAIEN

               Begin DoDot:1

 +4                IF $PIECE($GET(^PSDRUG(PSAIEN,2)),"^",3)["N"

                       WRITE " (Controlled Substance)"

                       IF $PIECE($GET(^PSD(58.8,+$PIECE(PSAIN,"^",12),1,PSAIEN,0)),"^",14)

                           IF $PIECE($GET(^(0)),"^",14)'>DT

                               WRITE !,$CHAR(7),$CHAR(7),"** INACTIVE IN MASTER VAULT **"

                               QUIT

 +5                IF $PIECE($GET(^PSD(58.8,+$PIECE(PSAIN,"^",7),1,PSAIEN,0)),"^",14)

                       IF $PIECE($GET(^(0)),"^",14)'>DT

                           WRITE !,$CHAR(7),$CHAR(7),"** INACTIVE IN PHARMACY LOCATION **"

               End DoDot:1

 +6       ;

 +7        WRITE !,"Qty Invoiced: "

 +8        IF $PIECE(PSADATA,"^",8)'=""

               WRITE $PIECE(PSADATA,"^",8)_" ("_$SELECT(+PSADATA:+PSADATA,$PIECE(PSADATA,"^")=0:0,1:"Blank")_")"

 +9        IF $PIECE(PSADATA,"^",8)=""

               WRITE $SELECT(+PSADATA:+PSADATA,$PIECE(PSADATA,"^")=0:0,1:"Blank")

 +10       IF $PIECE($PIECE(PSADATA,"^",26),"~")'=""

               WRITE ?38,"UPC: "_$PIECE($PIECE(PSADATA,"^",26),"~")

 +11      ;

 +12       WRITE !,"Order Unit  : "

 +13       IF +$PIECE(PSADATA,"^",12)

               Begin DoDot:1

 +14               WRITE $PIECE($GET(^DIC(51.5,+$PIECE(PSADATA,"^",12),0)),"^")

 +15               WRITE " ("_$SELECT($PIECE($PIECE(PSADATA,"^",2),"~")'="":$PIECE($PIECE(PSADATA,"^",2),"~"),$PIECE($GET(^DIC(51.5,+$PIECE($PIECE(PSADATA,"^",2),"~",3),0)),"^")'="":$PIECE($GET(^DIC(51.5,+$PIECE($PIECE(PSADATA,"^",2),"~",3),0)),"^"),1:"Bl

ank")_")"

               End DoDot:1

 +16       IF '+$PIECE(PSADATA,"^",12)

               Begin DoDot:1

 +17               WRITE $SELECT(+$PIECE($PIECE(PSADATA,"^",2),"~",2):$PIECE($PIECE(PSADATA,"^",2),"~"),PSAIEN&(PSASUB)&(+$PIECE($GET(^PSDRUG(PSAIEN,1,PSASUB,0)),"^",5)):$PIECE($GET(^DIC(51.5,+$PIECE(^PSDRUG(PSAIEN,1,PSASUB,0),"^",5),0)),"^"),1:"Blank")

               End DoDot:1

 +18      ;

 +19       IF $EXTRACT(PSANDC)'="S"

               WRITE ?38,"NDC: "

           DO PSANDC1^PSAHELP

           WRITE PSANDCX

           KILL PSANDCX

 +20       SET PSAPRICE=$PIECE(PSADATA,"^",3)

 +21       IF +PSAPRICE

               IF $LENGTH($PIECE(PSAPRICE,".",2))<2

                   SET PSAPRICE=$PIECE(PSAPRICE,".")_"."_$PIECE(PSAPRICE,".",2)_$EXTRACT("00",1,(2-$LENGTH($PIECE(PSAPRICE,".",2))))

 +22       WRITE !,"Unit Price  : $"_$SELECT($GET(PSAPRICE):PSAPRICE,PSAPRICE=0:0,1:"Blank"),?38,"VSN: "_$SELECT(PSAVSN'="":PSAVSN,1:"Blank"),!

 +23      ;*48 AUTO OU UPDATE FOR MCKESSON

           IF $PIECE(PSADATA,U,13)=.5

               Begin DoDot:1

 +24               NEW PSAOU

                   SET PSAOU=$PIECE(PSADATA,U,12)

 +25               WRITE !,"*****>",!,"Note: The order unit was changed from EACH to ",$PIECE($GET(^DIC(51.5,+PSAOU,0)),"^")," by Drug Accountability"

 +26               WRITE !,"      during the upload of the invoiced data. Adjustments may be necessary.",!,"*****<"

               End DoDot:1

 +27       SET PSAIN=^XTMP("PSAPV",PSACTRL,"IN")

           SET PSALOC=$SELECT($PIECE(PSADATA,"^",19)="CS":+$PIECE(PSAIN,"^",12),1:+$PIECE(PSAIN,"^",7))

DU         WRITE !,"Dispense Units: "_$SELECT(+PSAIEN&($PIECE($GET(^PSDRUG(+PSAIEN,660)),"^",8)'=""):$PIECE($GET(^PSDRUG(+PSAIEN,660)),"^",8),1:"Blank")

DUOU       WRITE !,"Dispense Units Per Order Unit: "_$SELECT($PIECE(PSADATA,"^",20):+$PIECE(PSADATA,"^",20),+PSASUB&(+$PIECE($GET(^PSDRUG(+PSAIEN,1,PSASUB,0)),"^",7)):+$PIECE($GET(^PSDRUG(+PSAIEN,1,PSASUB,0)),"^",7),1:"Blank"),!

 +1       ;

 +2        IF '+$PIECE($GET(^PSD(58.8,+PSALOC,0)),"^",14)

               QUIT

 +3       ;

 +4        SET PSASTOCK=$SELECT(+$PIECE(PSADATA,"^",27):+$PIECE(PSADATA,"^",27),+$PIECE($GET(^PSD(58.8,+PSALOC,1,+PSAIEN,0)),"^",3):+$PIECE($GET(^PSD(58.8,+PSALOC,1,+PSAIEN,0)),"^",3),1:"Blank")

 +5        WRITE "Stock Level   : "_PSASTOCK

 +6        SET PSAREORD=$SELECT(+$PIECE(PSADATA,"^",21):+$PIECE(PSADATA,"^",21),+$PIECE($GET(^PSD(58.8,+PSALOC,1,+PSAIEN,0)),"^",5):+$PIECE($GET(^PSD(58.8,+PSALOC,1,+PSAIEN,0)),"^",5),1:"Blank")

 +7        WRITE !,"Reorder Level : "_PSAREORD,!

 +8        QUIT

PSAUTL1.m