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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: PSONDCUT

Package: Outpatient Pharmacy

Routine: PSONDCUT


Information

PSONDCUT ;BIRM/MFR - NDC Utilities ;29-May-2012 14:55;PLS

Source Information

Source file <PSONDCUT.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Outpatient Pharmacy 5 ($$LSTRFL,ECMESND)^PSOBPSU1  ($$MWC,RXACT)^PSOBPSU2  ($$RXSITE,$$STATUS)^PSOBPSUT  $$ISVALID^PSONDCV  $$TRIC^PSOREJP1  
VA Fileman 3 ^DIE  $$GET1^DIQ  ^DIR  
Pharmacy Data Management 1 ($$GETNDC,$$NDCFMT,SAVNDC)^PSSNDCUT  
Registration 1 DEM^VADPT  
Uncategorized 1 $$ECMEON^BPSUTIL  

Caller Graph

Caller Graph Total: 19

Package Total Caller Graph
Outpatient Pharmacy 18 PSOBPSU1  PSOBPSUT  PSODRG  PSOHLDIS  PSOLLL3  PSON52  PSONDCV  PSOORAL2  
PSOORED2  PSOORED6  PSOORED7  PSOORNE2  PSOR52  PSOREJP3  PSOREJU1  PSORXVW  
PSORXVW1  PSOSULBL  
CMOP 1 PSXRXU  

Entry Points

Name Comments DBIA/ICR reference
END
NDCHLP ; Help Text for the NDC Code Selection
CHGNDC(RX,RFL,BCODE,STOCK) ; Prompt for NDC code during Rx Release for HIPAA/NCPDP project
GPPDU(RX,RFL,NDC,DRUG,SAVE,FROM) ;-get Price per dispense unit for the NDC
NDCHLP2 ;Help Text for ?? for the NDC Code Selection
GETNDC(RX,RFL) ; Returns the Rx NDC #
; Input: (r) RX - Rx IEN (#52)
; (o) RFL - Refill #
; Output: NDC - Rx NDC #
  • ICR #4705
    • Status: Active
    • Usage: Controlled Subscription
    NDCEDT(RX,RFL,DRG,SITE,NDC,BCODE) ; Allows editing of the Rx NDC code
    ; Input: (r) RX - Rx IEN (#52)
    ; (o) RFL - Refill Number (#52.1)
    ; (o) DRG - Drug IEN (#50)
    ; (o) NDC - Default NDC Number/Return parameter ("" means no NDC selected) (Note: REQUIRED for Output value)
    ; (o) BCODE - Display the PID/Drug Name in the NDC prompt
    ASK ; Ask for NDC
    SAVNDC(RX,RFL,NDC,CMP,DRG,FROM) ; Saves the NDC in the PRESCRIPTION and DRUG files
    ; Input: (r) RX - Rx IEN (#52)
    ; (o) RFL - Refill Number (#52.1)
    ; (r) NDC - NDC Number
    ; (o) CMP - CMOP? (1-YES/0-NO)
    ; (o) DRG - Save in the DRUG file (1-YES/0-NO) ((Def: 0)
    ; (o) FROM - Calling function
    SPPDU(RX,RFL,PPDU) ;save price per dispense unit

    External References

    Name Field # of Occurrence
    $$ECMEON^BPSUTIL CHGNDC+12
    ^DIE SAVNDC+17, SAVNDC+19, SPPDU+2, SPPDU+4
    $$GET1^DIQ NDCEDT+10, NDCEDT+24, NDCEDT+47, ASK+1, ASK+3, SAVNDC+22, GETNDC+6, GETNDC+7, GPPDU+12, GPPDU+15
    , GPPDU+16
    ^DIR ASK+6
    $$LSTRFL^PSOBPSU1 CHGNDC+11, NDCEDT+11, SAVNDC+11, GETNDC+5, GPPDU+13
    ECMESND^PSOBPSU1 CHGNDC+29
    $$MWC^PSOBPSU2 GPPDU+24
    RXACT^PSOBPSU2 CHGNDC+27, CHGNDC+33
    $$RXSITE^PSOBPSUT CHGNDC+12, NDCEDT+12, SAVNDC+22
    $$STATUS^PSOBPSUT CHGNDC+31
    $$ISVALID^PSONDCV CHGNDC+18
    $$TRIC^PSOREJP1 CHGNDC+24
    $$GETNDC^PSSNDCUT NDCEDT+29, NDCEDT+34
    $$NDCFMT^PSSNDCUT NDCEDT+15, NDCEDT+24, NDCEDT+41, ASK+9, SAVNDC+8, GETNDC+8, GPPDU+15, GPPDU+21
    SAVNDC^PSSNDCUT SAVNDC+22
    DEM^VADPT ASK+3

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: $C(7)
    • Line Location: CHGNDC+21
    Function Call: WRITE
    • Prompt: !!,"No valid NDC codes found for "_$$GET1^DIQ(50,DRG,.01),$C(7)
    • Line Location: NDCEDT+47
    Function Call: WRITE
    • Prompt: !,$C(7)
    • Line Location: ASK+7
    Function Call: WRITE
    • Prompt: !,$C(7)
    • Line Location: ASK+7
    Function Call: WRITE
    • Prompt: !,$C(7)
    • Line Location: ASK+8
    Function Call: WRITE
    • Prompt: !,$C(7)
    • Line Location: ASK+8
    Function Call: WRITE
    • Prompt: " ",NDC
    • Line Location: ASK+12
    Function Call: WRITE
    • Prompt: !!,"If the Product is not listed below, the NDC must be entered as a synonym for"
    • Line Location: NDCHLP2+5
    Function Call: WRITE
    • Prompt: !,"the drug before NDC validation of the prescription may be completed.",!
    • Line Location: NDCHLP2+6
    Function Call: WRITE
    • Prompt: !,"The NDC # entered is either invalid or there is not a matching synonym"
    • Line Location: NDCHLP+3
    Function Call: WRITE
    • Prompt: !,"for NDC "_$S($G(Y):Y,1:DIR("B"))_" defined for "_DRGNAM_" in the"
    • Line Location: NDCHLP+4
    Function Call: WRITE
    • Prompt: !,"drug file. Please verify that you have selected the correct product.",!
    • Line Location: NDCHLP+5
    Function Call: WRITE
    • Prompt: !,"If the product is correct, the NDC must be entered as a synonym for"
    • Line Location: NDCHLP+6
    Function Call: WRITE
    • Prompt: !,"the drug before NDC validation of the prescription may be completed.",!
    • Line Location: NDCHLP+7
    Function Call: WRITE
    • Prompt: !,"Select one of the following valid NDC code(s) below "_$S($G(STOCK):"or enter ^ to exit",1:"")_": ",!
    • Line Location: NDCHLP+8
    Function Call: WRITE
    • Prompt: !?10,$J(I,2)," - ",^TMP($J,"PSONDCFM",I)
    • Line Location: NDCHLP+10
    Routine Call
    • DIE
    • Line Location:
      • SAVNDC+17
      • SAVNDC+19
      • SPPDU+2
      • SPPDU+4
    Routine Call
    • DIR
    • Line Location:
      • ASK+6

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^PSDRUG - [#50] GET1^DIQ
    ^PSRX - [#52] Classic Fileman Calls,  GET1^DIQ
    52.1 GET1^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^PSDRUG - [#50] NDCEDT+40, NDCEDT+41, GPPDU+20, GPPDU+21
    ^PSRX - [#52] SAVNDC+18, SPPDU+3
    ^TMP($J NDCEDT+9!, NDCEDT+15*, NDCEDT+20, NDCEDT+21*, NDCEDT+30, NDCEDT+31*, NDCEDT+35, NDCEDT+36*, NDCEDT+42, NDCEDT+43*
    , NDCEDT+44*, NDCEDT+46, ASK+5, ASK+7, ASK+10, ASK+11, END!, NDCHLP+9, NDCHLP+10

    Label References

    Name Line Occurrences
    $$GETNDC CHGNDC+15, NDCEDT+19
    $$GPPDU SAVNDC+14
    ASK ASK+7, ASK+8
    END NDCEDT+46, ASK+6
    NDCEDT CHGNDC+22
    NDCHLP ASK+7
    NDCHLP2 ASK+8
    SAVNDC CHGNDC+28
    SPPDU GPPDU+27

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    ACT CHGNDC+10~, CHGNDC+32*, CHGNDC+33
    BCODE CHGNDC~, CHGNDC+21, CHGNDC+22, NDCEDT~, ASK+2
    CMOP GPPDU+11~
    CMP SAVNDC~, SAVNDC+22
    DA SAVNDC+16~, SAVNDC+17*, SAVNDC+19*, SPPDU+1~, SPPDU+2*, SPPDU+4*
    DA(1 SAVNDC+19*, SPPDU+4*
    DEFNDC NDCEDT+8~, NDCEDT+24*, GPPDU+11~, GPPDU+15*, GPPDU+17
    DEFPPDU GPPDU+11~, GPPDU+16*, GPPDU+26
    DFN NDCEDT+8~, ASK+3*
    DIE SAVNDC+16~, SAVNDC+17*, SAVNDC+19*, SPPDU+1~, SPPDU+2*, SPPDU+4*
    DIR NDCEDT+8~, ASK+5!
    DIR("?" ASK+6*
    DIR("??" ASK+6*
    DIR("A" ASK+5*
    DIR("B" ASK+5*!, NDCHLP+4
    DIR(0 ASK+5*
    >> DIRUT ASK+6
    DR SAVNDC+16~, SAVNDC+17*, SAVNDC+19*, SPPDU+1~, SPPDU+2*, SPPDU+4*
    DRG NDCEDT~, NDCEDT+10*, NDCEDT+24, NDCEDT+29, NDCEDT+34, NDCEDT+40, NDCEDT+41, NDCEDT+47, ASK+1, SAVNDC~
    , SAVNDC+22
    DRGNAM NDCEDT+8~, ASK+1*, ASK+4, NDCHLP+4
    DRUG GPPDU~, GPPDU+12~*, GPPDU+15, GPPDU+16, GPPDU+20, GPPDU+21
    DUZ CHGNDC+33
    FROM SAVNDC~, SAVNDC+13~*, SAVNDC+14, GPPDU~, GPPDU+25
    I CHGNDC+21*, NDCEDT+8~, GETNDC+4~, NDCHLP+1~, NDCHLP+9*, NDCHLP+10
    IDX NDCEDT+8~, NDCEDT+12*, NDCEDT+15*, NDCEDT+21*, NDCEDT+26*, NDCEDT+31*, NDCEDT+36*, NDCEDT+43*, NDCEDT+44
    NDC NDCEDT~, NDCEDT+15, NDCEDT+19*, NDCEDT+20, NDCEDT+21, NDCEDT+29*, NDCEDT+30, NDCEDT+31, NDCEDT+34*, NDCEDT+35
    , NDCEDT+36, NDCEDT+46*, ASK+6*, ASK+7*, ASK+8, ASK+9*, ASK+10*, ASK+11*, ASK+12, SAVNDC~
    , SAVNDC+8*, SAVNDC+14, SAVNDC+17, SAVNDC+19, SAVNDC+22, GETNDC+4~*, GETNDC+6*, GETNDC+7*, GETNDC+8, GPPDU~
    , GPPDU+23
    NDCVALID CHGNDC+10~, CHGNDC+18*
    NEWNDC CHGNDC+10~, CHGNDC+22*, CHGNDC+26, CHGNDC+27, CHGNDC+28, CHGNDC+29
    NOREL CHGNDC+10~, CHGNDC+15*, CHGNDC+26, CHGNDC+30*, CHGNDC+32*
    PID NDCEDT+8~, ASK+3*, ASK+4
    PPDU SAVNDC+14~*, GPPDU+16*, GPPDU+17, GPPDU+23*, GPPDU+26*, GPPDU+27, GPPDU+28, SPPDU~, SPPDU+2, SPPDU+4
    PPDUARR GPPDU+11~
    PPDUARR( GPPDU+17*, GPPDU+22*, GPPDU+23
    PRPT NDCEDT+8~, ASK+1*, ASK+4*, ASK+5
    PSONDC CHGNDC+10~, CHGNDC+15*, CHGNDC+22, CHGNDC+26, CHGNDC+27
    PSOTRIC CHGNDC+24~*, CHGNDC+30, CHGNDC+31
    RESP CHGNDC+29~, CHGNDC+30, CHGNDC+31
    RFL CHGNDC~, CHGNDC+11*, CHGNDC+12, CHGNDC+15, CHGNDC+18, CHGNDC+22, CHGNDC+24, CHGNDC+27, CHGNDC+28, CHGNDC+29
    , CHGNDC+31, CHGNDC+33, NDCEDT~, NDCEDT+11*, NDCEDT+12, NDCEDT+19, SAVNDC~, SAVNDC+11*, SAVNDC+14, SAVNDC+17
    , SAVNDC+18, SAVNDC+19, SAVNDC+22, GETNDC~, GETNDC+5*, GETNDC+6, GETNDC+7, GPPDU~, GPPDU+13*, GPPDU+24
    , GPPDU+27, SPPDU~, SPPDU+2, SPPDU+3, SPPDU+4
    RX CHGNDC~, CHGNDC+11, CHGNDC+12, CHGNDC+15, CHGNDC+18, CHGNDC+22, CHGNDC+24, CHGNDC+27, CHGNDC+28, CHGNDC+29
    , CHGNDC+31, CHGNDC+33, NDCEDT~, NDCEDT+10, NDCEDT+11, NDCEDT+12, NDCEDT+18, NDCEDT+19, ASK+3, SAVNDC~
    , SAVNDC+11, SAVNDC+14, SAVNDC+17, SAVNDC+18, SAVNDC+19, SAVNDC+22, GETNDC~, GETNDC+5, GETNDC+6, GETNDC+7
    , GPPDU~, GPPDU+12, GPPDU+13, GPPDU+24, GPPDU+27, SPPDU~, SPPDU+2, SPPDU+3, SPPDU+4
    SAVE GPPDU~, GPPDU+14*, GPPDU+27
    SITE CHGNDC+10~, CHGNDC+12*, CHGNDC+22, NDCEDT~, NDCEDT+12*, NDCEDT+34
    SNDC NDCEDT+8~, NDCEDT+41*, NDCEDT+42, NDCEDT+43, NDCEDT+44, GPPDU+11~, GPPDU+21*, GPPDU+22
    STOCK CHGNDC~, ASK+5, NDCHLP2+2, NDCHLP2+4, NDCHLP+2, NDCHLP+8
    SYN NDCEDT+8~, NDCEDT+39*, NDCEDT+40*, NDCEDT+41, GPPDU+11~, GPPDU+18*, GPPDU+20*, GPPDU+21
    VADM ASK+3!
    VADM(2 ASK+3
    >> X NDCHLP2+1, NDCHLP2+4, NDCHLP+2
    Y NDCEDT+8~, ASK+7, ASK+8, ASK+9, ASK+11, NDCHLP+4
    Z NDCEDT+8~, NDCEDT+41*, GPPDU+11~, GPPDU+21*, GPPDU+22
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All