BPCRXSET.m

BPCRXSET ; IHS/OIT/MJL - FILES RX FOR BPC GUI ;

 ;;1.5;BPC;;MAY 26, 2005

SETDATA(BPCARRAY,BPCDATA) ;EP CALL FROM REMOTE PROC: BPC RX FILE DATA

TEST S BPCGUI=1 K ^TMP($J)

 S XWBWRAP=1,BPCARRAY="^TMP("_$J_")"

 ;S DUZ=1

 ;S BPCDATA="1078269~25241~3010115~1~ADAM,ADAM~N~212~788~ACETAMINOPHEN 325MG UD~30~3~4~TIT PO TID~1~W~THIS IS A TEST~1~1"

 S (CRIT,DRG,LSI,DGI,DGS,SER,SERS)=""

 S PSONEW("IRXN")=$P(BPCDATA,"~",1)

 S PSONEW("RX #")=$P(BPCDATA,"~",1)

 S PSODFN=$P(BPCDATA,"~",2)

 S PSONEW("ISSUE DATE")=$P(BPCDATA,"~",3)

 S PSONEW("FILL DATE")=$P(BPCDATA,"~",3)

 S PSONEW("PROVIDER")=$P(BPCDATA,"~",4)

 S PSONEW("PROVIDER NAME")=$P(BPCDATA,"~",5)

 S PSONEW("CM")=$P(BPCDATA,"~",6)

 S PSONEW("CLINIC")=$P(BPCDATA,"~",7)

 S PSODRUG("IEN")=$P(BPCDATA,"~",8)

 S PSODRUG("NAME")=$P(BPCDATA,"~",9)

 S PSONEW("QTY")=$P(BPCDATA,"~",10)

 S PSONEW("DAYS SUPPLY")=$P(BPCDATA,"~",11)

 S PSONEW("# OF REFILLS")=$P(BPCDATA,"~",12)

 S PSONEW("SIG")=$P(BPCDATA,"~",13)

 S PSONEW("COPIES")=$P(BPCDATA,"~",14)

 S PSONEW("MAIL/WINDOW")=$P(BPCDATA,"~",15)

 S PSONEW("REMARKS")=$P(BPCDATA,"~",16)

 S PSONEW("CLERK CODE")=$P(BPCDATA,"~",17)

 S PSONEW("STATUS")=$P(BPCDATA,"~",18)

 S PSONEW("PATIENT STATUS")=+$P($G(^PS(55,PSODFN,"PS")),U,1)

 I 'PSONEW("PATIENT STATUS") D

 . S PSONEW("PATIENT STATUS")=1

 . S X=$G(^DPT(PSODFN,.1))

 . S:$L(X) PSONEW("PATIENT STATUS")=2 K X

 S DGI=$P(BPCDATA,"~",19)

 S SER=$P(BPCDATA,"~",20)

 S PSORX("VERIFY")=1

 D EN^PSON52(.PSONEW)

 I $G(DGI) D

 . K DIC,DLAYGO,DINUM

 . S $P(^PS(52.4,PSOX("IRXN"),0),U,8)=1,$P(^(0),U,9)=DGI,$P(^(0),U,10)=SER

 . K DIK,DA

 . S DIK="^PS(52.4,",DA=PSOX("IRXN")

 . D IX^DIK K DIK,DA

 ;

 K BPCRX S:$D(^PSRX("B",PSONEW("RX #"))) BPCRX=PSONEW("RX #")

 I 'BPCRX S ^TMP($J,1)=-1,^TMP($J,2)="ERROR: RX "_PSONEW("RX #")_" NOT FILED" Q

 S ^TMP($J,1)=1,^TMP($J,2)="RX "_BPCRX_" FILED"

 K BPCRX,PSONEW,PSODRUG,PSOX,PSORX,PSOEXSIG,PSODFN,BPCDATA

 Q

DDTEMP S PSONEW("RX #")=$P(BPCDATA,"~",1)

 S PSONEW("DFN")=$P(BPCDATA,"~",2)

 S PSONEW("ISSUE DATE")=$P(BPCDATA,"~",3)

 S PSODFN=$P(BPCDATA,"~",4)

 S PSONEW("PATIENT STATUS")=$P(BPCDATA,"~",5)

 S PSONEW("PROVIDER")=$P(BPCDATA,"~",6)

 S PSONEW("CM")=$P(BPCDATA,"~",7)

 S PSONEW("CLINIC")=$P(BPCDATA,"~",8)

 S PSODRUG("IEN")=$P(BPCDATA,"~",9)

 S PSODRUG("TRADE NAME")=$P(BPCDATA,"~",10)

 S PSONEW("QTY")=$P(BPCDATA,"~",11)

 S PSONEW("DAYS SUPPLY")=$P(BPCDATA,"~",12)

 S PSONEW("# OF REFILLS")=$P(BPCDATA,"~",13)

 S PSONEW("SIG")=$P(BPCDATA,"~",14)

 S PSONEW("COPIES")=$P(BPCDATA,"~",15)

 S PSONEW("MAIL/WINDOW")=$P(BPCDATA,"~",16)

 S PSONEW("REMARKS")=$P(BPCDATA,"~",17)

 S PSONEW("CLERK CODE")=$P(BPCDATA,"~",18)

 S PSODRUG("COST")=$P(BPCDATA,"~",19)

 S PSOSITE=$P(BPCDATA,"~",20)

 S PSONEW("LOGIN DATE")=$P(BPCDATA,"~",21)

 S PSONEW("FILL DATE")=$P(BPCDATA,"~",22)

 S PSONEW("PHARMACIST")=$P(BPCDATA,"~",23)

 S PSONEW("LOT #")=$P(BPCDATA,"~",24)

 S PSONEW("DISPENSED DATE")=$P(BPCDATA,"~",25)

 S PSONEW("STOP DATE")=$P(BPCDATA,"~",26)

 S PSODRUG("NDC")=$P(BPCDATA,"~",27)

 S PSONEW("NDC")=$P(BPCDATA,"~",28)

 S PSONEW("MANUFACTURER")=$P(BPCDATA,"~",29)

 S PSONEW("EXPIRATION DATE")=$P(BPCDATA,"~",30)

 S PSONEW("GENERIC PROVIDER")=$P(BPCDATA,"~",31)

 S PSONEW("RELEASED DATE/TIME")=$P(BPCDATA,"~",32)

 S PSONEW("METHOD OF PICK-UP")=$P(BPCDATA,"~",33)

 S PSONEW("STATUS")=$P(BPCDATA,"~",34)

 S PSONEW("LAST DISPENSED DATE")=$P(BPCDATA,"~",35)

 S PSONEW("NEXT POSSIBLE REFILL")=$P(BPCDATA,"~",36)

 S PSONEW("COSIGNING PROVIDER")=$P(BPCDATA,"~",37)

 S PSONEW("TYPE OF RX")=$P(BPCDATA,"~",38)

 S PSONEW("SAND")=$P(BPCDATA,"~",39)

 S PSODRUG("AWP")=$P(BPCDATA,"~",40)

 S PSONEW("AWP")=$P(BPCDATA,"~",41)

 S PSONEW("BST")=$P(BPCDATA,"~",42)

 S PSONEW("INSURER")=$P(BPCDATA,"~",43)

BPCRXSET  ; IHS/OIT/MJL - FILES RX FOR BPC GUI ;

 +1       ;;1.5;BPC;;MAY 26, 2005

SETDATA(BPCARRAY,BPCDATA) ;EP CALL FROM REMOTE PROC: BPC RX FILE DATA

TEST       SET BPCGUI=1

           KILL ^TMP($JOB)

 +1        SET XWBWRAP=1

           SET BPCARRAY="^TMP("_$JOB_")"

 +2       ;S DUZ=1

 +3       ;S BPCDATA="1078269~25241~3010115~1~ADAM,ADAM~N~212~788~ACETAMINOPHEN 325MG UD~30~3~4~TIT PO TID~1~W~THIS IS A TEST~1~1"

 +4        SET (CRIT,DRG,LSI,DGI,DGS,SER,SERS)=""

 +5        SET PSONEW("IRXN")=$PIECE(BPCDATA,"~",1)

 +6        SET PSONEW("RX #")=$PIECE(BPCDATA,"~",1)

 +7        SET PSODFN=$PIECE(BPCDATA,"~",2)

 +8        SET PSONEW("ISSUE DATE")=$PIECE(BPCDATA,"~",3)

 +9        SET PSONEW("FILL DATE")=$PIECE(BPCDATA,"~",3)

 +10       SET PSONEW("PROVIDER")=$PIECE(BPCDATA,"~",4)

 +11       SET PSONEW("PROVIDER NAME")=$PIECE(BPCDATA,"~",5)

 +12       SET PSONEW("CM")=$PIECE(BPCDATA,"~",6)

 +13       SET PSONEW("CLINIC")=$PIECE(BPCDATA,"~",7)

 +14       SET PSODRUG("IEN")=$PIECE(BPCDATA,"~",8)

 +15       SET PSODRUG("NAME")=$PIECE(BPCDATA,"~",9)

 +16       SET PSONEW("QTY")=$PIECE(BPCDATA,"~",10)

 +17       SET PSONEW("DAYS SUPPLY")=$PIECE(BPCDATA,"~",11)

 +18       SET PSONEW("# OF REFILLS")=$PIECE(BPCDATA,"~",12)

 +19       SET PSONEW("SIG")=$PIECE(BPCDATA,"~",13)

 +20       SET PSONEW("COPIES")=$PIECE(BPCDATA,"~",14)

 +21       SET PSONEW("MAIL/WINDOW")=$PIECE(BPCDATA,"~",15)

 +22       SET PSONEW("REMARKS")=$PIECE(BPCDATA,"~",16)

 +23       SET PSONEW("CLERK CODE")=$PIECE(BPCDATA,"~",17)

 +24       SET PSONEW("STATUS")=$PIECE(BPCDATA,"~",18)

 +25       SET PSONEW("PATIENT STATUS")=+$PIECE($GET(^PS(55,PSODFN,"PS")),U,1)

 +26       IF 'PSONEW("PATIENT STATUS")

               Begin DoDot:1

 +27               SET PSONEW("PATIENT STATUS")=1

 +28               SET X=$GET(^DPT(PSODFN,.1))

 +29               IF $LENGTH(X)

                       SET PSONEW("PATIENT STATUS")=2

                   KILL X

               End DoDot:1

 +30       SET DGI=$PIECE(BPCDATA,"~",19)

 +31       SET SER=$PIECE(BPCDATA,"~",20)

 +32       SET PSORX("VERIFY")=1

 +33       DO EN^PSON52(.PSONEW)

 +34       IF $GET(DGI)

               Begin DoDot:1

 +35               KILL DIC,DLAYGO,DINUM

 +36               SET $PIECE(^PS(52.4,PSOX("IRXN"),0),U,8)=1

                   SET $PIECE(^(0),U,9)=DGI

                   SET $PIECE(^(0),U,10)=SER

 +37               KILL DIK,DA

 +38               SET DIK="^PS(52.4,"

                   SET DA=PSOX("IRXN")

 +39               DO IX^DIK

                   KILL DIK,DA

               End DoDot:1

 +40      ;

 +41       KILL BPCRX

           IF $DATA(^PSRX("B",PSONEW("RX #")))

               SET BPCRX=PSONEW("RX #")

 +42       IF 'BPCRX

               SET ^TMP($JOB,1)=-1

               SET ^TMP($JOB,2)="ERROR: RX "_PSONEW("RX #")_" NOT FILED"

               QUIT 

 +43       SET ^TMP($JOB,1)=1

           SET ^TMP($JOB,2)="RX "_BPCRX_" FILED"

 +44       KILL BPCRX,PSONEW,PSODRUG,PSOX,PSORX,PSOEXSIG,PSODFN,BPCDATA

 +45       QUIT 

DDTEMP     SET PSONEW("RX #")=$PIECE(BPCDATA,"~",1)

 +1        SET PSONEW("DFN")=$PIECE(BPCDATA,"~",2)

 +2        SET PSONEW("ISSUE DATE")=$PIECE(BPCDATA,"~",3)

 +3        SET PSODFN=$PIECE(BPCDATA,"~",4)

 +4        SET PSONEW("PATIENT STATUS")=$PIECE(BPCDATA,"~",5)

 +5        SET PSONEW("PROVIDER")=$PIECE(BPCDATA,"~",6)

 +6        SET PSONEW("CM")=$PIECE(BPCDATA,"~",7)

 +7        SET PSONEW("CLINIC")=$PIECE(BPCDATA,"~",8)

 +8        SET PSODRUG("IEN")=$PIECE(BPCDATA,"~",9)

 +9        SET PSODRUG("TRADE NAME")=$PIECE(BPCDATA,"~",10)

 +10       SET PSONEW("QTY")=$PIECE(BPCDATA,"~",11)

 +11       SET PSONEW("DAYS SUPPLY")=$PIECE(BPCDATA,"~",12)

 +12       SET PSONEW("# OF REFILLS")=$PIECE(BPCDATA,"~",13)

 +13       SET PSONEW("SIG")=$PIECE(BPCDATA,"~",14)

 +14       SET PSONEW("COPIES")=$PIECE(BPCDATA,"~",15)

 +15       SET PSONEW("MAIL/WINDOW")=$PIECE(BPCDATA,"~",16)

 +16       SET PSONEW("REMARKS")=$PIECE(BPCDATA,"~",17)

 +17       SET PSONEW("CLERK CODE")=$PIECE(BPCDATA,"~",18)

 +18       SET PSODRUG("COST")=$PIECE(BPCDATA,"~",19)

 +19       SET PSOSITE=$PIECE(BPCDATA,"~",20)

 +20       SET PSONEW("LOGIN DATE")=$PIECE(BPCDATA,"~",21)

 +21       SET PSONEW("FILL DATE")=$PIECE(BPCDATA,"~",22)

 +22       SET PSONEW("PHARMACIST")=$PIECE(BPCDATA,"~",23)

 +23       SET PSONEW("LOT #")=$PIECE(BPCDATA,"~",24)

 +24       SET PSONEW("DISPENSED DATE")=$PIECE(BPCDATA,"~",25)

 +25       SET PSONEW("STOP DATE")=$PIECE(BPCDATA,"~",26)

 +26       SET PSODRUG("NDC")=$PIECE(BPCDATA,"~",27)

 +27       SET PSONEW("NDC")=$PIECE(BPCDATA,"~",28)

 +28       SET PSONEW("MANUFACTURER")=$PIECE(BPCDATA,"~",29)

 +29       SET PSONEW("EXPIRATION DATE")=$PIECE(BPCDATA,"~",30)

 +30       SET PSONEW("GENERIC PROVIDER")=$PIECE(BPCDATA,"~",31)

 +31       SET PSONEW("RELEASED DATE/TIME")=$PIECE(BPCDATA,"~",32)

 +32       SET PSONEW("METHOD OF PICK-UP")=$PIECE(BPCDATA,"~",33)

 +33       SET PSONEW("STATUS")=$PIECE(BPCDATA,"~",34)

 +34       SET PSONEW("LAST DISPENSED DATE")=$PIECE(BPCDATA,"~",35)

 +35       SET PSONEW("NEXT POSSIBLE REFILL")=$PIECE(BPCDATA,"~",36)

 +36       SET PSONEW("COSIGNING PROVIDER")=$PIECE(BPCDATA,"~",37)

 +37       SET PSONEW("TYPE OF RX")=$PIECE(BPCDATA,"~",38)

 +38       SET PSONEW("SAND")=$PIECE(BPCDATA,"~",39)

 +39       SET PSODRUG("AWP")=$PIECE(BPCDATA,"~",40)

 +40       SET PSONEW("AWP")=$PIECE(BPCDATA,"~",41)

 +41       SET PSONEW("BST")=$PIECE(BPCDATA,"~",42)

 +42       SET PSONEW("INSURER")=$PIECE(BPCDATA,"~",43)