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 ;10/15/04

Source Information

Source file <PSONDCUT.m>

Call Graph

Call Graph

Call Graph Total: 11

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

Caller Graph

Caller Graph Total: 38

Package Total Caller Graph
Outpatient Pharmacy 26 PSOASAP0  PSOASAP2  PSOBPSU1  PSOBPSUT  PSODRG  PSOHLDIS  PSOHLDS6  PSOLLL2  
PSOLLL3  PSON52  PSONDCV  PSOORAL2  PSOORED2  PSOORED6  PSOORED7  PSOORNE2  
PSOR52  PSOREJP3  PSOREJU1  PSORLST2  PSORREF  PSORXVW  PSORXVW1  PSOSPMU1  
PSOSPMV  PSOSULBL  
E Claims Management Engine 6 BPSECMP2  BPSNCPDP  BPSOSCD  BPSRPT6  BPSSCRRJ  BPSSCRU2  
Integrated Billing 5 IBCD4  IBCSC5C  IBEFUNC3  IBTOBI  IBTRED  
CMOP 1 PSXRXU  

Entry Points

Name Comments DBIA/ICR reference
CHGNDC(RX,RFL,BCODE,STOCK)
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
END
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
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
    GPPDU(RX,RFL,NDC,DRUG,SAVE,FROM) ;-get Price per dispense unit for the NDC
    SPPDU(RX,RFL,PPDU) ;save price per dispense unit
    NDCHLP2 ;Help Text for ?? for the NDC Code Selection
    NDCHLP ; Help Text for the NDC Code Selection

    External References

    Name Field # of Occurrence
    $$ECMEON^BPSUTIL CHGNDC+11
    ^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+10, NDCEDT+11, SAVNDC+11, GETNDC+5, GPPDU+13
    ECMESND^PSOBPSU1 CHGNDC+28
    $$MWC^PSOBPSU2 GPPDU+24
    RXACT^PSOBPSU2 CHGNDC+26, CHGNDC+32
    $$RXSITE^PSOBPSUT CHGNDC+11, NDCEDT+12, SAVNDC+22
    $$STATUS^PSOBPSUT CHGNDC+30, SAVNDC+22
    $$ISVALID^PSONDCV CHGNDC+17
    $$ELIGDISP^PSOREJP1 CHGNDC+31
    $$TRIC^PSOREJP1 CHGNDC+23
    $$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+20
    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+14, NDCEDT+19
    $$GPPDU SAVNDC+14
    ASK ASK+7, ASK+8
    END NDCEDT+46, ASK+6
    NDCEDT CHGNDC+21
    NDCHLP ASK+7
    NDCHLP2 ASK+8
    SAVNDC CHGNDC+27
    SPPDU GPPDU+27

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    ACT CHGNDC+9~, CHGNDC+31*, CHGNDC+32
    BCODE CHGNDC~, CHGNDC+20, CHGNDC+21, 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+32
    FROM SAVNDC~, SAVNDC+13~*, SAVNDC+14, GPPDU~, GPPDU+25
    I CHGNDC+20*, 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+9~, CHGNDC+17*
    NEWNDC CHGNDC+9~, CHGNDC+21*, CHGNDC+25, CHGNDC+26, CHGNDC+27, CHGNDC+28
    NOREL CHGNDC+9~, CHGNDC+14*, CHGNDC+25, CHGNDC+29*, CHGNDC+31*
    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+9~, CHGNDC+14*, CHGNDC+21, CHGNDC+25, CHGNDC+26
    PSOTRIC CHGNDC+23~*, CHGNDC+29, CHGNDC+30
    RESP CHGNDC+28~, CHGNDC+29, CHGNDC+30
    RFL CHGNDC~, CHGNDC+10*, CHGNDC+11, CHGNDC+14, CHGNDC+17, CHGNDC+21, CHGNDC+23, CHGNDC+26, CHGNDC+27, CHGNDC+28
    , CHGNDC+30, CHGNDC+31, CHGNDC+32, 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+10, CHGNDC+11, CHGNDC+14, CHGNDC+17, CHGNDC+21, CHGNDC+23, CHGNDC+26, CHGNDC+27, CHGNDC+28
    , CHGNDC+30, CHGNDC+31, CHGNDC+32, 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+9~, CHGNDC+11*, CHGNDC+21, 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