Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

    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

    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
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call