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

Package: Outpatient Pharmacy

Routine: PSONDCV


Information

PSONDCV ;BP/CMF - Pharmacy NDC Validation ;04/08/08

Source Information

Source file <PSONDCV.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; entry point for [PSO NDC VALIDATION] option
BEGIN(RESULT) ;;
END ;;
PROMPTS ;;
VALIDATE(RX,RXIEN) ;;
ISVALID(RXIEN,RFL,VERBOSE) ;;
ISRXVAL(RXIEN,VERBOSE) ;are NDCs already validated for Rx?
ISRFLVAL(RXIEN,RFL,VERBOSE) ;are NDCs already validated for refill?
ISOPAI(RX,RFL) ;;
ISRELEAS(RXIEN,RFL) ;; has it been released?
ISCMOP(RXIEN,RFL) ;; has it been sent to CMOP?
DISPLAY(RX,RXIEN,RFL,RXNDC) ;;
DISPLAY1(VERBOSE,RESULT,VALIDATE,VALIDUZ) ;;
UPDATE(RXIEN,RFL) ; update validation fields
DEL(RXIEN,RFL) ; update validation fields
ELIG(FLAG,RXIEN,RFL) ;TRICARE/CHAMPVA test #1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,"A Pharmacy Division Must Be Selected!",!
  • Line Location: BEGIN+1
Function Call: WRITE
  • Prompt: !?7,$C(7),$C(7),$C(7),"Not From this Institution"
  • Line Location: PROMPTS+17
Function Call: WRITE
  • Prompt: !,$C(7),"Rx data is not on file !",!
  • Line Location: PROMPTS+19
Function Call: WRITE
  • Prompt: !!,"Invalid prescription number.",!
  • Line Location: PROMPTS+22
Function Call: WRITE
  • Prompt: $C(7),!!?5,"Another person is editing Rx "_$P($G(^PSRX(+$G(RXIEN),0)),"^"),!
  • Line Location: PROMPTS+25
Function Call: WRITE
  • Prompt: !,"Prescription #"_RX_" is from a different division: "_$$GET1^DIQ(59,RXDIV,".01")_"."
  • Line Location: VALIDATE+6
Function Call: WRITE
  • Prompt: !,"Log into that division for NDC validation.",!!
  • Line Location: VALIDATE+7
Function Call: WRITE
  • Prompt: !!,"The prescription label must be printed prior to the NDC being validated.",!!
  • Line Location: VALIDATE+29
Function Call: WRITE
  • Prompt: !!,"** Validation not completed.",!!
  • Line Location: VALIDATE+33
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPLAY+2
Function Call: WRITE
  • Prompt: !,OUT
  • Line Location: DISPLAY+6
Function Call: WRITE
  • Prompt: !,OUT,!
  • Line Location: DISPLAY+10
Function Call: WRITE
  • Prompt: !,"** The following NDC was validated on "_VALIDATE_" by "_VALIDUZ_".",!
  • Line Location: DISPLAY1+3
Function Call: WRITE
  • Prompt: !,"** This NDC has not been validated.",!!
  • Line Location: DISPLAY1+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSRX - [#52] GET1^DIQ
52.1 GET1^DIQ
^PS(52.51 - [#52.51] FIND^DIC
^PS(59 - [#59] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call