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
Print Page as PDF
Routine: PSANDCUT

Package: Drug Accountability

Routine: PSANDCUT


Information

PSANDCUT ;BIRM/MFR - NDC Utility ;07/01/08

Source Information

Source file <PSANDCUT.m>

Entry Points

Name Comments DBIA/ICR reference
NDCEDT(DRG,NDC) ; Allows editing of the Rx NDC code
; Input: (o) DRG - Drug IEN (#50)
; (o) NDC - Default NDC Number/Return parameter
ASK ; Ask for NDC
DEL ; Ask again after deleted
END
NDCHLP ; Help Text for the NDC Code Selection

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: " Deleted!"
  • Line Location: DEL+1
Function Call: WRITE
  • Prompt: " ",NDC
  • Line Location: DEL+8
Function Call: WRITE
  • Prompt: !?10,"Select one of the following NDC(s) below:",!
  • Line Location: NDCHLP+2
Function Call: WRITE
  • Prompt: !?15,$J(I,2)," - ",^TMP($J,"PSANDCFM",I)
  • Line Location: NDCHLP+5
Function Call: WRITE
  • Prompt: !?12,"<No NDC(s) available for this drug>"
  • Line Location: NDCHLP+6
Function Call: WRITE
  • Prompt: !!?10,"Or enter it manually in case the correct"
  • Line Location: NDCHLP+7
Function Call: WRITE
  • Prompt: !?10,"NDC is not on the list above."
  • Line Location: NDCHLP+8
Info |  Source |  Entry Points |  Interaction Calls