PSSNCPDP ;BIR/LE - Pharmacy Data Management DD Utility ;10/30/97 9:41
;;1.0;PHARMACY DATA MANAGEMENT;**127,191**;9/30/97;Build 40
;
Q
EN ;
N ZZX
I $G(PSSNQM3) K PSSNQM3 Q ;killing PSSNQM3 so that a secondary ? entered would get full help text message
D HDR
D EACH:$P($G(^PSDRUG(DA,"EPH")),"^",2)="EA"
D GRAM:$P($G(^PSDRUG(DA,"EPH")),"^",2)="GM"
D MILL:$P($G(^PSDRUG(DA,"EPH")),"^",2)="ML"
W !
Q
;
;Help text for NCPDP QUANTITY MULTIPLIER field (#83) of DRUG file (#50).
HDR ;
W !?5,"The value in the NCPDP QUANTITY MULTIPLIER field is multiplied by the"
W !?5,"VISTA dispensed quantity of the drug for ePharmacy prescriptions,"
W !?5,"resulting in the NCPDP quantity that should be electronically billed"
W !?5,"to a Third Party Insurance Company."
Q
;
EACH ;Each help text
W !!?5,"Most products with a NCPDP DISPENSE UNIT of EA (EACH) should have the"
W !?5,"NCPDP QUANTITY MULTIPLIER field set to 1 (one) because the VA dispensed"
W !?5,"quantity is the same quantity that should be billed to the Third Party"
W !?5,"Insurance Companies. HOWEVER some exceptions require a value different"
W !?5,"than 1 (one). See examples below:"
W !!?10,"Drug: ORTHO TRI-CYCLEN TAB,28 Quantity Dispensed: 3 CYCLES"
W !!?5,"The Quantity Dispensed above indicates how many 28-day cycles are"
W !?5,"being dispensed (3). However, the Third Party Insurance Companies need"
W !?5,"to know how many TABLETS are being dispensed. Therefore, the correct"
W !?5,"value for the NCPDP QUANTITY MULTIPLIER would be 28. The correct quantity"
R !?5,"Enter to continue: ",ZZX:60 W $C(13)
W ?5,"to submit electronically is 3 x 28 = 84 tablets."
W !!?5,"A similar case is METHYLPREDNISOLONE 4MG TAB DOSEPAK,21, which is"
W !?5,"dispensed in packages (PKG) and not in tablets. The NCPDP QUANTITY"
W !?5,"MULTIPLIER for this product is 21."
Q
;
GRAM ;Gram help text
W !!?5,"Most products with a NCPDP DISPENSE UNIT of GM (GRAMS) should have the"
W !?5,"NCPDP QUANTITY MULTIPLIER set to 1 (one). HOWEVER for products dispensed"
W !?5,"in units such as TUBE, the NCPDP QUANTITY MULTIPLIER field should contain"
W !?5,"the number of GRAMS contained in 1 TUBE. See examples below:"
W !!?10,"Drug: GENTAMICIN SO4 0.3% OINT,OPH Quantity Dispensed: 1 TUBE"
W !!?5,"The Quantity Dispensed above indicates how many tubes are being dispensed"
W !?5,"(1). However, the Third Party Insurance Companies need to know how many"
W !?5,"GRAMS are being dispensed. The correct value for the NCPDP QUANTITY"
R !?5,"Enter to continue: ",ZZX:60 W $C(13)
W ?5,"MULTIPLIER field for this product is 3.5, because there are 3.5 grams in"
W !?5,"each tube. The correct quantity to submit electronically will be"
W !?5,"3.5 x 1 = 3.5 grams."
W !!?5,"Another example is IPRATROPIUM BR 17MCG/SPRAY AEROSOL,INHL., which is"
W !?5,"dispensed by the number of inhalers used to fill the prescription. Each"
W !?5,"inhaler contains 12.9 grams of IPRATROPIUM, so the NCPDP QUANTITY"
W !?5,"MULTIPLIER for this product will be 12.9."
Q
;
MILL ;Milliliter help text
W !!?5,"Most products with a NCPDP DISPENSE UNIT of ML (Milliliters) should have"
W !?5,"this field set to 1 (one). HOWEVER for some drugs that are dispensed in"
W !?5,"units such as VIAL or BOTTLE, the NCPDP QUANTITY MULTIPLIER field should"
W !?5,"contain the number of MILILLITERS contained in 1 VIAL or BOTTLE for this"
W !?5,"drug. See examples below:"
W !!?10,"Drug: INSULIN,NPH,HUMAN 100UNT/ML INJ Quantity Dispensed 3 VIALS"
W !!?5,"The Quantity Dispensed above indicates how many vials are being dispensed"
W !?5,"(3). However, the Third Party Insurance Companies need to know how many"
W !?5,"milliliters are being dispensed. The correct value for the NCPDP QUANTITY"
W !?5,"MULTIPLIER field for this product is 10, because there are 10 milliliters"
W !?5,"in each vial. The correct quantity to submit electronically will be "
W !?5,"3 x 10 = 30 milliliters."
R !?5,"Enter to continue: ",ZZX:60 W $C(13) W " "
W !?5,"Another example is DARBEPOETIN ALFA,RECOMBINANT 150MCG/0.3ML SYR INJ,"
W !?5,"SURECLICK which is dispensed by the number of syringes used for the "
W !?5,"prescription. Each syringe contains 0.3 ML of DARBEPOETIN, so the NCPDP"
W !?5,"QUANTITY MULTIPLIER for this product will be 0.3. Notice in this case the"
W !?5,"NCPDP QUANTITY MULTIPLIER is less than 1."
W !
Q
;
;*191
12 ;CHECK BCMA Prompt for removal flag
I '$G(PSDOSE) N PSDOSE S PSDOSE=$P(^PS(50.7,+DA,0),"^",2)
I X<1,$G(PSDOSE),^PS(50.606,PSDOSE,0)'="PATCH" Q
I X>0,$G(PSDOSE),^PS(50.606,PSDOSE,0)'="PATCH" D
.N VAL S VAL=X
.D EN^DDIOL("The dosage form for this orderable item is not PATCH.","","!!")
.K DIR,DIRUT,DUOUT,DTOUT S DIR(0)="Y",DIR("B")="N"
.S DIR("A")="Are you sure you want to designate this medication as requiring removal"
.S DIR("?")="Enter Y for Yes or N for No." D ^DIR K DIR
.I 'Y S X=$P($G(^PS(50.7,DA,4)),"^") D EN^DDIOL("No Changes were recorded.") Q
.S:Y X=VAL
Q
;
D12 ;
D EN^DDIOL("ENTRY OF 1, 2 OR 3 IS REQUIRED FOR DOSAGE FORM PATCH.")
D EN^DDIOL("Enter the value that applies to this orderable item.")
D EN^DDIOL("Choose from:","","!,?5")
D EN^DDIOL("1 Removal at Next Administration","","!,?7")
D EN^DDIOL("2 Removal Period Optional Prior to Next Administration","","!,?7")
D EN^DDIOL("3 Removal Period Required Prior to Next Administration","","!,?7")
D EN^DDIOL(" ","","!")
Q
;
D13 ;
N PSDOSE S PSDOSE=$P(^PS(50.7,+DA,0),"^",2)
I $G(PSDOSE),^PS(50.606,PSDOSE,0)="PATCH" D EN^DDIOL("ENTRY OF 1, 2 OR 3 IS REQUIRED FOR DOSAGE FORM PATCH.")
D EN^DDIOL("Enter the value that applies to this orderable item.")
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSSNCPDP 5801 printed Oct 16, 2024@18:33:54 Page 2
PSSNCPDP ;BIR/LE - Pharmacy Data Management DD Utility ;10/30/97 9:41
+1 ;;1.0;PHARMACY DATA MANAGEMENT;**127,191**;9/30/97;Build 40
+2 ;
+3 QUIT
EN ;
+1 NEW ZZX
+2 ;killing PSSNQM3 so that a secondary ? entered would get full help text message
IF $GET(PSSNQM3)
KILL PSSNQM3
QUIT
+3 DO HDR
+4 if $PIECE($GET(^PSDRUG(DA,"EPH")),"^",2)="EA"
DO EACH
+5 if $PIECE($GET(^PSDRUG(DA,"EPH")),"^",2)="GM"
DO GRAM
+6 if $PIECE($GET(^PSDRUG(DA,"EPH")),"^",2)="ML"
DO MILL
+7 WRITE !
+8 QUIT
+9 ;
+10 ;Help text for NCPDP QUANTITY MULTIPLIER field (#83) of DRUG file (#50).
HDR ;
+1 WRITE !?5,"The value in the NCPDP QUANTITY MULTIPLIER field is multiplied by the"
+2 WRITE !?5,"VISTA dispensed quantity of the drug for ePharmacy prescriptions,"
+3 WRITE !?5,"resulting in the NCPDP quantity that should be electronically billed"
+4 WRITE !?5,"to a Third Party Insurance Company."
+5 QUIT
+6 ;
EACH ;Each help text
+1 WRITE !!?5,"Most products with a NCPDP DISPENSE UNIT of EA (EACH) should have the"
+2 WRITE !?5,"NCPDP QUANTITY MULTIPLIER field set to 1 (one) because the VA dispensed"
+3 WRITE !?5,"quantity is the same quantity that should be billed to the Third Party"
+4 WRITE !?5,"Insurance Companies. HOWEVER some exceptions require a value different"
+5 WRITE !?5,"than 1 (one). See examples below:"
+6 WRITE !!?10,"Drug: ORTHO TRI-CYCLEN TAB,28 Quantity Dispensed: 3 CYCLES"
+7 WRITE !!?5,"The Quantity Dispensed above indicates how many 28-day cycles are"
+8 WRITE !?5,"being dispensed (3). However, the Third Party Insurance Companies need"
+9 WRITE !?5,"to know how many TABLETS are being dispensed. Therefore, the correct"
+10 WRITE !?5,"value for the NCPDP QUANTITY MULTIPLIER would be 28. The correct quantity"
+11 READ !?5,"Enter to continue: ",ZZX:60
WRITE $CHAR(13)
+12 WRITE ?5,"to submit electronically is 3 x 28 = 84 tablets."
+13 WRITE !!?5,"A similar case is METHYLPREDNISOLONE 4MG TAB DOSEPAK,21, which is"
+14 WRITE !?5,"dispensed in packages (PKG) and not in tablets. The NCPDP QUANTITY"
+15 WRITE !?5,"MULTIPLIER for this product is 21."
+16 QUIT
+17 ;
GRAM ;Gram help text
+1 WRITE !!?5,"Most products with a NCPDP DISPENSE UNIT of GM (GRAMS) should have the"
+2 WRITE !?5,"NCPDP QUANTITY MULTIPLIER set to 1 (one). HOWEVER for products dispensed"
+3 WRITE !?5,"in units such as TUBE, the NCPDP QUANTITY MULTIPLIER field should contain"
+4 WRITE !?5,"the number of GRAMS contained in 1 TUBE. See examples below:"
+5 WRITE !!?10,"Drug: GENTAMICIN SO4 0.3% OINT,OPH Quantity Dispensed: 1 TUBE"
+6 WRITE !!?5,"The Quantity Dispensed above indicates how many tubes are being dispensed"
+7 WRITE !?5,"(1). However, the Third Party Insurance Companies need to know how many"
+8 WRITE !?5,"GRAMS are being dispensed. The correct value for the NCPDP QUANTITY"
+9 READ !?5,"Enter to continue: ",ZZX:60
WRITE $CHAR(13)
+10 WRITE ?5,"MULTIPLIER field for this product is 3.5, because there are 3.5 grams in"
+11 WRITE !?5,"each tube. The correct quantity to submit electronically will be"
+12 WRITE !?5,"3.5 x 1 = 3.5 grams."
+13 WRITE !!?5,"Another example is IPRATROPIUM BR 17MCG/SPRAY AEROSOL,INHL., which is"
+14 WRITE !?5,"dispensed by the number of inhalers used to fill the prescription. Each"
+15 WRITE !?5,"inhaler contains 12.9 grams of IPRATROPIUM, so the NCPDP QUANTITY"
+16 WRITE !?5,"MULTIPLIER for this product will be 12.9."
+17 QUIT
+18 ;
MILL ;Milliliter help text
+1 WRITE !!?5,"Most products with a NCPDP DISPENSE UNIT of ML (Milliliters) should have"
+2 WRITE !?5,"this field set to 1 (one). HOWEVER for some drugs that are dispensed in"
+3 WRITE !?5,"units such as VIAL or BOTTLE, the NCPDP QUANTITY MULTIPLIER field should"
+4 WRITE !?5,"contain the number of MILILLITERS contained in 1 VIAL or BOTTLE for this"
+5 WRITE !?5,"drug. See examples below:"
+6 WRITE !!?10,"Drug: INSULIN,NPH,HUMAN 100UNT/ML INJ Quantity Dispensed 3 VIALS"
+7 WRITE !!?5,"The Quantity Dispensed above indicates how many vials are being dispensed"
+8 WRITE !?5,"(3). However, the Third Party Insurance Companies need to know how many"
+9 WRITE !?5,"milliliters are being dispensed. The correct value for the NCPDP QUANTITY"
+10 WRITE !?5,"MULTIPLIER field for this product is 10, because there are 10 milliliters"
+11 WRITE !?5,"in each vial. The correct quantity to submit electronically will be "
+12 WRITE !?5,"3 x 10 = 30 milliliters."
+13 READ !?5,"Enter to continue: ",ZZX:60
WRITE $CHAR(13)
WRITE " "
+14 WRITE !?5,"Another example is DARBEPOETIN ALFA,RECOMBINANT 150MCG/0.3ML SYR INJ,"
+15 WRITE !?5,"SURECLICK which is dispensed by the number of syringes used for the "
+16 WRITE !?5,"prescription. Each syringe contains 0.3 ML of DARBEPOETIN, so the NCPDP"
+17 WRITE !?5,"QUANTITY MULTIPLIER for this product will be 0.3. Notice in this case the"
+18 WRITE !?5,"NCPDP QUANTITY MULTIPLIER is less than 1."
+19 WRITE !
+20 QUIT
+21 ;
+22 ;*191
12 ;CHECK BCMA Prompt for removal flag
+1 IF '$GET(PSDOSE)
NEW PSDOSE
SET PSDOSE=$PIECE(^PS(50.7,+DA,0),"^",2)
+2 IF X<1
IF $GET(PSDOSE)
IF ^PS(50.606,PSDOSE,0)'="PATCH"
QUIT
+3 IF X>0
IF $GET(PSDOSE)
IF ^PS(50.606,PSDOSE,0)'="PATCH"
Begin DoDot:1
+4 NEW VAL
SET VAL=X
+5 DO EN^DDIOL("The dosage form for this orderable item is not PATCH.","","!!")
+6 KILL DIR,DIRUT,DUOUT,DTOUT
SET DIR(0)="Y"
SET DIR("B")="N"
+7 SET DIR("A")="Are you sure you want to designate this medication as requiring removal"
+8 SET DIR("?")="Enter Y for Yes or N for No."
DO ^DIR
KILL DIR
+9 IF 'Y
SET X=$PIECE($GET(^PS(50.7,DA,4)),"^")
DO EN^DDIOL("No Changes were recorded.")
QUIT
+10 if Y
SET X=VAL
End DoDot:1
+11 QUIT
+12 ;
D12 ;
+1 DO EN^DDIOL("ENTRY OF 1, 2 OR 3 IS REQUIRED FOR DOSAGE FORM PATCH.")
+2 DO EN^DDIOL("Enter the value that applies to this orderable item.")
+3 DO EN^DDIOL("Choose from:","","!,?5")
+4 DO EN^DDIOL("1 Removal at Next Administration","","!,?7")
+5 DO EN^DDIOL("2 Removal Period Optional Prior to Next Administration","","!,?7")
+6 DO EN^DDIOL("3 Removal Period Required Prior to Next Administration","","!,?7")
+7 DO EN^DDIOL(" ","","!")
+8 QUIT
+9 ;
D13 ;
+1 NEW PSDOSE
SET PSDOSE=$PIECE(^PS(50.7,+DA,0),"^",2)
+2 IF $GET(PSDOSE)
IF ^PS(50.606,PSDOSE,0)="PATCH"
DO EN^DDIOL("ENTRY OF 1, 2 OR 3 IS REQUIRED FOR DOSAGE FORM PATCH.")
+3 DO EN^DDIOL("Enter the value that applies to this orderable item.")
+4 QUIT
+5 ;
