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: 34

Package Total Caller Graph
Outpatient Pharmacy 22 PSOASAP0  PSOBPSU1  PSOBPSUT  PSODRG  PSOHLDIS  PSOLLL2  PSOLLL3  PSON52  
PSONDCV  PSOORAL2  PSOORED2  PSOORED6  PSOORED7  PSOORNE2  PSOR52  PSOREJP3  
PSOREJU1  PSORLST2  PSORXVW  PSORXVW1  PSOSPMU1  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