Routine: PSONDCV

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

Package	Total	Caller Graph
Outpatient Pharmacy	2	PSO NDC VALIDATE PSONDCUT

Package

Total

Caller Graph

Outpatient Pharmacy

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

FileNo	Call Tags
^PSRX - [#52]	GET1^DIQ
52.1	GET1^DIQ
^PS(52.51 - [#52.51]	FIND^DIC
^PS(59 - [#59]	GET1^DIQ

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

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSONDCV

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: