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

Package: Outpatient Pharmacy

Routine: PSONDCV


Information

PSONDCV ;BP/CMF - Pharmacy NDC Validation ;29-May-2012 14:55;PLS

Source Information

Source file <PSONDCV.m>

Call Graph

Call Graph Total: 14

Package Total Call Graph
Outpatient Pharmacy 5 $$LSTRFL^PSOBPSU1  ($$CMOP,$$RXRLDT,$$RXSITE,$$STATUS)^PSOBPSUT  ^PSOLSET  ($$CHGNDC,$$GETNDC)^PSONDCUT  $$TRIC^PSOREJP1  
VA Fileman 4 (,FIND)^DIC  FILE^DIE  $$GET1^DIQ  ^DIR  
Kernel 2 $$NOW^XLFDT  $$LJ^XLFSTR  
Uncategorized 2 $$STATUS^BPSOSRX  $$ECMEON^BPSUTIL  
Pharmacy Data Management 1 (PSOL,PSOUL)^PSSLOCK  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Outpatient Pharmacy 2 PSO NDC VALIDATE  PSONDCUT  

Entry Points

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

External References

Name Field # of Occurrence
$$STATUS^BPSOSRX VALIDATE+37
$$ECMEON^BPSUTIL BEGIN+2
^DIC PROMPTS+21
FIND^DIC ISOPAI+2
FILE^DIE UPDATE+10, DEL+10
$$GET1^DIQ BEGIN+3, BEGIN+5, VALIDATE+6, ISRXVAL+4, ISRXVAL+5, ISRFLVAL+4, ISRFLVAL+5, DISPLAY+5, DISPLAY+7, DISPLAY+8
^DIR PROMPTS+13, VALIDATE+15
$$LSTRFL^PSOBPSU1 VALIDATE+3
$$CMOP^PSOBPSUT ISCMOP+1
$$RXRLDT^PSOBPSUT ISRELEAS+3
$$RXSITE^PSOBPSUT VALIDATE+5
$$STATUS^PSOBPSUT TRICARE1+3
^PSOLSET BEGIN+1
$$CHGNDC^PSONDCUT VALIDATE+34
$$GETNDC^PSONDCUT VALIDATE+36
$$TRIC^PSOREJP1 TRICARE1+2
PSOL^PSSLOCK PROMPTS+24
PSOUL^PSSLOCK PROMPTS+28
$$NOW^XLFDT UPDATE+8
$$LJ^XLFSTR DISPLAY+3, DISPLAY+4, DISPLAY+5, DISPLAY+7, DISPLAY+9

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+34
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
Routine Call
  • DIC
  • Line Location:
    • PROMPTS+21
Routine Call
  • DIC
  • Line Location:
    • ISOPAI+2
Routine Call
  • DIE
  • Line Location:
    • UPDATE+10
    • DEL+10
Routine Call
  • DIR
  • Line Location:
    • PROMPTS+13
    • VALIDATE+15

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSRX - [#52] PROMPTS+19, PROMPTS+20, PROMPTS+25, VALIDATE+28

Label References

Name Line Occurrences
$$ISCMOP VALIDATE+23
$$ISOPAI VALIDATE+17
$$ISRELEAS VALIDATE+20
$$ISRFLVAL ISVALID+2
$$ISRXVAL ISVALID+1
$$ISVALID VALIDATE+9
BEGIN EN+3
DEL VALIDATE+42
DISPLAY VALIDATE+30
DISPLAY1 ISRXVAL+7, ISRFLVAL+7
END EN+5, BEGIN+1
PROMPTS EN+4
TRICARE1 VALIDATE+26
UPDATE VALIDATE+40
VALIDATE PROMPTS+27

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CMOP PROMPTS+1~
DIC PROMPTS+1~, PROMPTS+21!*
DIC(0 PROMPTS+21*
DIR PROMPTS+5!, VALIDATE+1~
DIR("?" PROMPTS+8*, PROMPTS+9*, PROMPTS+10*, PROMPTS+11*, PROMPTS+12*
DIR("A" PROMPTS+7*, VALIDATE+12*
DIR("B" VALIDATE+14*
DIR(0 PROMPTS+6*, VALIDATE+13*
DIROUT PROMPTS+14!
DIRUT PROMPTS+14!
DTOUT PROMPTS+14!
DUOUT PROMPTS+14!
DUZ UPDATE+9
ERROR UPDATE+1~, DEL+1~
ESTAT VALIDATE+1~, VALIDATE+37*, VALIDATE+38, VALIDATE+43
FDA UPDATE+1~, DEL+1~
FDA( UPDATE+8*, UPDATE+9*, DEL+8*, DEL+9*
FILE UPDATE+1~, UPDATE+4*, UPDATE+7*, UPDATE+8, UPDATE+9, DEL+1~, DEL+4*, DEL+7*, DEL+8, DEL+9
FLAG EN+1~, EN+2*, EN+3, EN+4, VALIDATE+1~, VALIDATE+2*, VALIDATE+10, VALIDATE+16*, VALIDATE+26*, VALIDATE+27
, VALIDATE+34*, VALIDATE+35*, VALIDATE+36, VALIDATE+38, VALIDATE+40*, TRICARE1~, TRICARE1+4*
IENS ISRXVAL+1~, ISRXVAL+3*, ISRXVAL+4, ISRXVAL+5, ISRFLVAL+1~, ISRFLVAL+3*, ISRFLVAL+4, ISRFLVAL+5, UPDATE+1~, UPDATE+3*
, UPDATE+6*, UPDATE+8, UPDATE+9, DEL+1~, DEL+3*, DEL+6*, DEL+8, DEL+9
II ISOPAI+1~, ISOPAI+4*, ISOPAI+5
ISVALID VALIDATE+1~, VALIDATE+9*, VALIDATE+10
LABELNDC VALIDATE+1~, VALIDATE+31*, VALIDATE+36*, VALIDATE+38
LBL VALIDATE+1~, VALIDATE+28*
LPRT VALIDATE+1~, VALIDATE+2*, VALIDATE+28*, VALIDATE+29
OPIAIEN ISOPAI+1~
OPIARX ISOPAI+1~, ISOPAI+3*, ISOPAI+5*, ISOPAI+6
OUT DISPLAY+1~, DISPLAY+3*, DISPLAY+4*, DISPLAY+5*, DISPLAY+6, DISPLAY+7*, DISPLAY+9*, DISPLAY+10
PID PROMPTS+1~, VALIDATE+34
PSOINST EN+1~, BEGIN+3*, PROMPTS+17
PSOMSG PROMPTS+1~, PROMPTS+24!
PSONDCV PROMPTS+1~
PSONDCV("QFLG" PROMPTS+2*, PROMPTS+3, PROMPTS+13, PROMPTS+14*
>> PSOPAR BEGIN+1
PSORESP PROMPTS+1~, PROMPTS+2*, PROMPTS+3
>> PSOSITE BEGIN+1, BEGIN+2, BEGIN+3, BEGIN+5, VALIDATE+5
PSOTRIC TRICARE1+1~, TRICARE1+2
QFLG PROMPTS+1~, PROMPTS+16*, PROMPTS+17*, PROMPTS+19*, PROMPTS+24*
RESULT BEGIN~, BEGIN+2*, BEGIN+4, ISRXVAL+1~, ISRXVAL+2*, ISRXVAL+6*, ISRXVAL+7, ISRXVAL+8, ISRFLVAL+1~, ISRFLVAL+2*
, ISRFLVAL+6*, ISRFLVAL+7, ISRFLVAL+8, ISOPAI+1~, ISRELEAS+1~, ISRELEAS+2*, ISRELEAS+3*, ISRELEAS+4, DISPLAY1~, DISPLAY1+2
RESULT("DILIST" ISOPAI+4, ISOPAI+5
RFL VALIDATE+1~, VALIDATE+3*, VALIDATE+5, VALIDATE+9, VALIDATE+17, VALIDATE+20, VALIDATE+23, VALIDATE+26, VALIDATE+28, VALIDATE+30
, VALIDATE+34, VALIDATE+36, VALIDATE+37, VALIDATE+40, VALIDATE+42, ISVALID~, ISVALID+1, ISVALID+2, ISRFLVAL~, ISRFLVAL+3
, ISOPAI~, ISOPAI+5, ISRELEAS~, ISRELEAS+3, ISCMOP~, ISCMOP+1, DISPLAY~, DISPLAY+4, DISPLAY+8, UPDATE~
, UPDATE+2, UPDATE+3, DEL~, DEL+2, DEL+3, TRICARE1~, TRICARE1+2, TRICARE1+3
RX PROMPTS+1~, PROMPTS+5!, PROMPTS+20*, PROMPTS+21*, PROMPTS+23*, PROMPTS+27, VALIDATE~, VALIDATE+6, VALIDATE+11, VALIDATE+17
, VALIDATE+18, VALIDATE+21, VALIDATE+24, VALIDATE+30, ISOPAI~, ISOPAI+2, DISPLAY~, DISPLAY+3
RXDIV VALIDATE+1~, VALIDATE+5*, VALIDATE+6
RXIEN PROMPTS+1~, PROMPTS+5!, PROMPTS+18*, PROMPTS+19, PROMPTS+20, PROMPTS+23*, PROMPTS+24, PROMPTS+25, PROMPTS+27, PROMPTS+28
, VALIDATE~, VALIDATE+3, VALIDATE+5, VALIDATE+9, VALIDATE+20, VALIDATE+23, VALIDATE+26, VALIDATE+28, VALIDATE+30, VALIDATE+34
, VALIDATE+36, VALIDATE+37, VALIDATE+40, VALIDATE+42, ISVALID~, ISVALID+1, ISVALID+2, ISRXVAL~, ISRXVAL+3, ISRFLVAL~
, ISRFLVAL+3, ISRELEAS~, ISRELEAS+3, ISCMOP~, ISCMOP+1, DISPLAY~, DISPLAY+5, DISPLAY+7, DISPLAY+8, UPDATE~
, UPDATE+3, UPDATE+6, DEL~, DEL+3, DEL+6, TRICARE1~, TRICARE1+2, TRICARE1+3
RXNDC VALIDATE+1~, VALIDATE+30, VALIDATE+31, DISPLAY~, DISPLAY+8*, DISPLAY+9
RXNUM PROMPTS+1~
STOCK VALIDATE+1~, VALIDATE+32*, VALIDATE+34
STOCKNDC VALIDATE+1~, VALIDATE+35*, VALIDATE+38
VALIDATE ISRXVAL+1~, ISRXVAL+4*, ISRXVAL+6, ISRXVAL+7, ISRFLVAL+1~, ISRFLVAL+4*, ISRFLVAL+6, ISRFLVAL+7, DISPLAY1~, DISPLAY1+3
VALIDUZ ISRXVAL+1~, ISRXVAL+5*, ISRXVAL+6, ISRXVAL+7, ISRFLVAL+1~, ISRFLVAL+5*, ISRFLVAL+6, ISRFLVAL+7, DISPLAY1~, DISPLAY1+3
VERBOSE ISVALID~, ISVALID+1, ISVALID+2, ISRXVAL~, ISRXVAL+7, ISRFLVAL~, ISRFLVAL+7, DISPLAY1~, DISPLAY1+1
X PROMPTS+1~, PROMPTS+16, PROMPTS+17, PROMPTS+18, PROMPTS+21*, VALIDATE+1~
Y PROMPTS+1~, PROMPTS+21, PROMPTS+22, PROMPTS+23, VALIDATE+1~, VALIDATE+16
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