Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: PSSNCPDP

Package: Pharmacy Data Management

Routine: PSSNCPDP


Information

PSSNCPDP ;BIR/LE - Pharmacy Data Management DD Utility ;10/30/97 9:41

Source Information

Source file <PSSNCPDP.m>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
VA FileMan 2 EN^DDIOL  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Pharmacy Data Management 1 ^PSDRUG  

Entry Points

Name Comments DBIA/ICR reference
EN ;
HDR ;
EACH ;Each help text
GRAM ;Gram help text
MILL ;Milliliter help text
12 ;CHECK BCMA Prompt for removal flag
D12 ;
D13 ;

External References

Name Field # of Occurrence
EN^DDIOL 12+5, 12+9, D12+1, D12+2, D12+3, D12+4, D12+5, D12+6, D12+7, D13+2
D13+3
^DIR 12+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !?5,"The value in the NCPDP QUANTITY MULTIPLIER field is multiplied by the"
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !?5,"VISTA dispensed quantity of the drug for ePharmacy prescriptions,"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !?5,"resulting in the NCPDP quantity that should be electronically billed"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !?5,"to a Third Party Insurance Company."
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !!?5,"Most products with a NCPDP DISPENSE UNIT of EA (EACH) should have the"
  • Line Location: EACH+1
Function Call: WRITE
  • Prompt: !?5,"NCPDP QUANTITY MULTIPLIER field set to 1 (one) because the VA dispensed"
  • Line Location: EACH+2
Function Call: WRITE
  • Prompt: !?5,"quantity is the same quantity that should be billed to the Third Party"
  • Line Location: EACH+3
Function Call: WRITE
  • Prompt: !?5,"Insurance Companies. HOWEVER some exceptions require a value different"
  • Line Location: EACH+4
Function Call: WRITE
  • Prompt: !?5,"than 1 (one). See examples below:"
  • Line Location: EACH+5
Function Call: WRITE
  • Prompt: !!?10,"Drug: ORTHO TRI-CYCLEN TAB,28 Quantity Dispensed: 3 CYCLES"
  • Line Location: EACH+6
Function Call: WRITE
  • Prompt: !!?5,"The Quantity Dispensed above indicates how many 28-day cycles are"
  • Line Location: EACH+7
Function Call: WRITE
  • Prompt: !?5,"being dispensed (3). However, the Third Party Insurance Companies need"
  • Line Location: EACH+8
Function Call: WRITE
  • Prompt: !?5,"to know how many TABLETS are being dispensed. Therefore, the correct"
  • Line Location: EACH+9
Function Call: WRITE
  • Prompt: !?5,"value for the NCPDP QUANTITY MULTIPLIER would be 28. The correct quantity"
  • Line Location: EACH+10
Function Call: READ
  • Formatting: !?5
  • Prompt: "Enter to continue: "
  • Variable: ZZX
  • Timeout: 60
  • Line Location: EACH+11
Function Call: WRITE
  • Prompt: $C(13)
  • Line Location: EACH+11
Function Call: WRITE
  • Prompt: ?5,"to submit electronically is 3 x 28 = 84 tablets."
  • Line Location: EACH+12
Function Call: WRITE
  • Prompt: !!?5,"A similar case is METHYLPREDNISOLONE 4MG TAB DOSEPAK,21, which is"
  • Line Location: EACH+13
Function Call: WRITE
  • Prompt: !?5,"dispensed in packages (PKG) and not in tablets. The NCPDP QUANTITY"
  • Line Location: EACH+14
Function Call: WRITE
  • Prompt: !?5,"MULTIPLIER for this product is 21."
  • Line Location: EACH+15
Function Call: WRITE
  • Prompt: !!?5,"Most products with a NCPDP DISPENSE UNIT of GM (GRAMS) should have the"
  • Line Location: GRAM+1
Function Call: WRITE
  • Prompt: !?5,"NCPDP QUANTITY MULTIPLIER set to 1 (one). HOWEVER for products dispensed"
  • Line Location: GRAM+2
Function Call: WRITE
  • Prompt: !?5,"in units such as TUBE, the NCPDP QUANTITY MULTIPLIER field should contain"
  • Line Location: GRAM+3
Function Call: WRITE
  • Prompt: !?5,"the number of GRAMS contained in 1 TUBE. See examples below:"
  • Line Location: GRAM+4
Function Call: WRITE
  • Prompt: !!?10,"Drug: GENTAMICIN SO4 0.3% OINT,OPH Quantity Dispensed: 1 TUBE"
  • Line Location: GRAM+5
Function Call: WRITE
  • Prompt: !!?5,"The Quantity Dispensed above indicates how many tubes are being dispensed"
  • Line Location: GRAM+6
Function Call: WRITE
  • Prompt: !?5,"(1). However, the Third Party Insurance Companies need to know how many"
  • Line Location: GRAM+7
Function Call: WRITE
  • Prompt: !?5,"GRAMS are being dispensed. The correct value for the NCPDP QUANTITY"
  • Line Location: GRAM+8
Function Call: READ
  • Formatting: !?5
  • Prompt: "Enter to continue: "
  • Variable: ZZX
  • Timeout: 60
  • Line Location: GRAM+9
Function Call: WRITE
  • Prompt: $C(13)
  • Line Location: GRAM+9
Function Call: WRITE
  • Prompt: ?5,"MULTIPLIER field for this product is 3.5, because there are 3.5 grams in"
  • Line Location: GRAM+10
Function Call: WRITE
  • Prompt: !?5,"each tube. The correct quantity to submit electronically will be"
  • Line Location: GRAM+11
Function Call: WRITE
  • Prompt: !?5,"3.5 x 1 = 3.5 grams."
  • Line Location: GRAM+12
Function Call: WRITE
  • Prompt: !!?5,"Another example is IPRATROPIUM BR 17MCG/SPRAY AEROSOL,INHL., which is"
  • Line Location: GRAM+13
Function Call: WRITE
  • Prompt: !?5,"dispensed by the number of inhalers used to fill the prescription. Each"
  • Line Location: GRAM+14
Function Call: WRITE
  • Prompt: !?5,"inhaler contains 12.9 grams of IPRATROPIUM, so the NCPDP QUANTITY"
  • Line Location: GRAM+15
Function Call: WRITE
  • Prompt: !?5,"MULTIPLIER for this product will be 12.9."
  • Line Location: GRAM+16
Function Call: WRITE
  • Prompt: !!?5,"Most products with a NCPDP DISPENSE UNIT of ML (Milliliters) should have"
  • Line Location: MILL+1
Function Call: WRITE
  • Prompt: !?5,"this field set to 1 (one). HOWEVER for some drugs that are dispensed in"
  • Line Location: MILL+2
Function Call: WRITE
  • Prompt: !?5,"units such as VIAL or BOTTLE, the NCPDP QUANTITY MULTIPLIER field should"
  • Line Location: MILL+3
Function Call: WRITE
  • Prompt: !?5,"contain the number of MILILLITERS contained in 1 VIAL or BOTTLE for this"
  • Line Location: MILL+4
Function Call: WRITE
  • Prompt: !?5,"drug. See examples below:"
  • Line Location: MILL+5
Function Call: WRITE
  • Prompt: !!?10,"Drug: INSULIN,NPH,HUMAN 100UNT/ML INJ Quantity Dispensed 3 VIALS"
  • Line Location: MILL+6
Function Call: WRITE
  • Prompt: !!?5,"The Quantity Dispensed above indicates how many vials are being dispensed"
  • Line Location: MILL+7
Function Call: WRITE
  • Prompt: !?5,"(3). However, the Third Party Insurance Companies need to know how many"
  • Line Location: MILL+8
Function Call: WRITE
  • Prompt: !?5,"milliliters are being dispensed. The correct value for the NCPDP QUANTITY"
  • Line Location: MILL+9
Function Call: WRITE
  • Prompt: !?5,"MULTIPLIER field for this product is 10, because there are 10 milliliters"
  • Line Location: MILL+10
Function Call: WRITE
  • Prompt: !?5,"in each vial. The correct quantity to submit electronically will be "
  • Line Location: MILL+11
Function Call: WRITE
  • Prompt: !?5,"3 x 10 = 30 milliliters."
  • Line Location: MILL+12
Function Call: READ
  • Formatting: !?5
  • Prompt: "Enter to continue: "
  • Variable: ZZX
  • Timeout: 60
  • Line Location: MILL+13
Function Call: WRITE
  • Prompt: $C(13)
  • Line Location: MILL+13
Function Call: WRITE
  • Prompt: " "
  • Line Location: MILL+13
Function Call: WRITE
  • Prompt: !?5,"Another example is DARBEPOETIN ALFA,RECOMBINANT 150MCG/0.3ML SYR INJ,"
  • Line Location: MILL+14
Function Call: WRITE
  • Prompt: !?5,"SURECLICK which is dispensed by the number of syringes used for the "
  • Line Location: MILL+15
Function Call: WRITE
  • Prompt: !?5,"prescription. Each syringe contains 0.3 ML of DARBEPOETIN, so the NCPDP"
  • Line Location: MILL+16
Function Call: WRITE
  • Prompt: !?5,"QUANTITY MULTIPLIER for this product will be 0.3. Notice in this case the"
  • Line Location: MILL+17
Function Call: WRITE
  • Prompt: !?5,"NCPDP QUANTITY MULTIPLIER is less than 1."
  • Line Location: MILL+18
Function Call: WRITE
  • Prompt: !
  • Line Location: MILL+19
Routine Call
  • DIR
  • Line Location:
    • 12+8

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(50.606 - [#50.606] 12+2, 12+3, D13+2
^PS(50.7 - [#50.7] 12+1, 12+9, D13+1
^PSDRUG - [#50] EN+4, EN+5, EN+6

Label References

Name Line Occurrences
EACH EN+4
GRAM EN+5
HDR EN+3
MILL EN+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DA EN+4, EN+5, EN+6, 12+1, 12+9, D13+1
DIR 12+6!, 12+8!
DIR("?" 12+8*
DIR("A" 12+7*
DIR("B" 12+6*
DIR(0 12+6*
DIRUT 12+6!
DTOUT 12+6!
DUOUT 12+6!
PSDOSE 12+1~*, 12+2, 12+3, D13+1~*, D13+2
PSSNQM3 EN+2!
VAL 12+4~*, 12+10
>> X 12+2, 12+3, 12+4, 12+9*, 12+10*
>> Y 12+9, 12+10
ZZX EN+1~, EACH+11*, GRAM+9*, MILL+13*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All