Routine: PSONDCUT

Call Graph

Call Graph Total: 11

Package	Total	Call Graph
Outpatient Pharmacy	5	($$LSTRFL,ECMESND)^PSOBPSU1 ($$MWC,RXACT)^PSOBPSU2 ($$RXSITE,$$STATUS)^PSOBPSUT $$ISVALID^PSONDCV $$TRIC^PSOREJP1
VA Fileman	3	^DIE $$GET1^DIQ ^DIR
Pharmacy Data Management	1	($$GETNDC,$$NDCFMT,SAVNDC)^PSSNDCUT
Registration	1	DEM^VADPT
Uncategorized	1	$$ECMEON^BPSUTIL

Package	Total	Caller Graph
Outpatient Pharmacy	18	PSOBPSU1 PSOBPSUT PSODRG PSOHLDIS PSOLLL3 PSON52 PSONDCV PSOORAL2 PSOORED2 PSOORED6 PSOORED7 PSOORNE2 PSOR52 PSOREJP3 PSOREJU1 PSORXVW PSORXVW1 PSOSULBL
CMOP	1	PSXRXU

Package

Total

Caller Graph

Outpatient Pharmacy

PSOBPSU1  PSOBPSUT  PSODRG  PSOHLDIS  PSOLLL3  PSON52  PSONDCV  PSOORAL2
PSOORED2  PSOORED6  PSOORED7  PSOORNE2  PSOR52  PSOREJP3  PSOREJU1  PSORXVW
PSORXVW1  PSOSULBL

CMOP

PSXRXU

Entry Points

Name	Comments	DBIA/ICR reference
END
NDCHLP	; Help Text for the NDC Code Selection
CHGNDC(RX,RFL,BCODE,STOCK)	; Prompt for NDC code during Rx Release for HIPAA/NCPDP project
GPPDU(RX,RFL,NDC,DRUG,SAVE,FROM)	;-get Price per dispense unit for the NDC
NDCHLP2	;Help Text for ?? for the NDC Code Selection
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
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
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
SPPDU(RX,RFL,PPDU)	;save price per dispense unit

External References

Name	Field # of Occurrence
$$ECMEON^BPSUTIL	CHGNDC+12
^DIE	SAVNDC+17, SAVNDC+19, SPPDU+2, SPPDU+4
$$GET1^DIQ	NDCEDT+10, NDCEDT+24, NDCEDT+47, ASK+1, ASK+3, SAVNDC+22, GETNDC+6, GETNDC+7, GPPDU+12, GPPDU+15 , GPPDU+16
^DIR	ASK+6
$$LSTRFL^PSOBPSU1	CHGNDC+11, NDCEDT+11, SAVNDC+11, GETNDC+5, GPPDU+13
ECMESND^PSOBPSU1	CHGNDC+29
$$MWC^PSOBPSU2	GPPDU+24
RXACT^PSOBPSU2	CHGNDC+27, CHGNDC+33
$$RXSITE^PSOBPSUT	CHGNDC+12, NDCEDT+12, SAVNDC+22
$$STATUS^PSOBPSUT	CHGNDC+31
$$ISVALID^PSONDCV	CHGNDC+18
$$TRIC^PSOREJP1	CHGNDC+24
$$GETNDC^PSSNDCUT	NDCEDT+29, NDCEDT+34
$$NDCFMT^PSSNDCUT	NDCEDT+15, NDCEDT+24, NDCEDT+41, ASK+9, SAVNDC+8, GETNDC+8, GPPDU+15, GPPDU+21
SAVNDC^PSSNDCUT	SAVNDC+22
DEM^VADPT	ASK+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7) Line Location: CHGNDC+21
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
Routine Call	DIE Line Location: SAVNDC+17 SAVNDC+19 SPPDU+2 SPPDU+4
Routine Call	DIR Line Location: ASK+6

FileNo	Call Tags
^PSDRUG - [#50]	GET1^DIQ
^PSRX - [#52]	Classic Fileman Calls, GET1^DIQ
52.1	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PSDRUG - [#50]	NDCEDT+40, NDCEDT+41, GPPDU+20, GPPDU+21
^PSRX - [#52]	SAVNDC+18, SPPDU+3
^TMP($J	NDCEDT+9!, NDCEDT+15, NDCEDT+20, NDCEDT+21, NDCEDT+30, NDCEDT+31, NDCEDT+35, NDCEDT+36, NDCEDT+42, NDCEDT+43* , NDCEDT+44*, NDCEDT+46, ASK+5, ASK+7, ASK+10, ASK+11, END!, NDCHLP+9, NDCHLP+10

Name	Line Occurrences
$$GETNDC	CHGNDC+15, NDCEDT+19
$$GPPDU	SAVNDC+14
ASK	ASK+7, ASK+8
END	NDCEDT+46, ASK+6
NDCEDT	CHGNDC+22
NDCHLP	ASK+7
NDCHLP2	ASK+8
SAVNDC	CHGNDC+28
SPPDU	GPPDU+27

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACT	CHGNDC+10~, CHGNDC+32*, CHGNDC+33
BCODE	CHGNDC~, CHGNDC+21, CHGNDC+22, NDCEDT~, ASK+2
CMOP	GPPDU+11~
CMP	SAVNDC~, SAVNDC+22
DA	SAVNDC+16~, SAVNDC+17, SAVNDC+19, SPPDU+1~, SPPDU+2, SPPDU+4
DA(1	SAVNDC+19, SPPDU+4
DEFNDC	NDCEDT+8~, NDCEDT+24, GPPDU+11~, GPPDU+15, GPPDU+17
DEFPPDU	GPPDU+11~, GPPDU+16*, GPPDU+26
DFN	NDCEDT+8~, ASK+3*
DIE	SAVNDC+16~, SAVNDC+17, SAVNDC+19, SPPDU+1~, SPPDU+2, SPPDU+4
DIR	NDCEDT+8~, ASK+5!
DIR("?"	ASK+6*
DIR("??"	ASK+6*
DIR("A"	ASK+5*
DIR("B"	ASK+5*!, NDCHLP+4
DIR(0	ASK+5*
>> DIRUT	ASK+6
DR	SAVNDC+16~, SAVNDC+17, SAVNDC+19, SPPDU+1~, SPPDU+2, SPPDU+4
DRG	NDCEDT~, NDCEDT+10*, NDCEDT+24, NDCEDT+29, NDCEDT+34, NDCEDT+40, NDCEDT+41, NDCEDT+47, ASK+1, SAVNDC~ , SAVNDC+22
DRGNAM	NDCEDT+8~, ASK+1*, ASK+4, NDCHLP+4
DRUG	GPPDU~, GPPDU+12~*, GPPDU+15, GPPDU+16, GPPDU+20, GPPDU+21
DUZ	CHGNDC+33
FROM	SAVNDC~, SAVNDC+13~*, SAVNDC+14, GPPDU~, GPPDU+25
I	CHGNDC+21, NDCEDT+8~, GETNDC+4~, NDCHLP+1~, NDCHLP+9, NDCHLP+10
IDX	NDCEDT+8~, NDCEDT+12, NDCEDT+15, NDCEDT+21, NDCEDT+26, NDCEDT+31, NDCEDT+36, NDCEDT+43*, NDCEDT+44
NDC	NDCEDT~, NDCEDT+15, NDCEDT+19, NDCEDT+20, NDCEDT+21, NDCEDT+29, NDCEDT+30, NDCEDT+31, NDCEDT+34, NDCEDT+35 , NDCEDT+36, NDCEDT+46, ASK+6, ASK+7, ASK+8, ASK+9, ASK+10, ASK+11, ASK+12, SAVNDC~ , SAVNDC+8, SAVNDC+14, SAVNDC+17, SAVNDC+19, SAVNDC+22, GETNDC+4~, GETNDC+6, GETNDC+7*, GETNDC+8, GPPDU~ , GPPDU+23
NDCVALID	CHGNDC+10~, CHGNDC+18*
NEWNDC	CHGNDC+10~, CHGNDC+22*, CHGNDC+26, CHGNDC+27, CHGNDC+28, CHGNDC+29
NOREL	CHGNDC+10~, CHGNDC+15, CHGNDC+26, CHGNDC+30, CHGNDC+32*
PID	NDCEDT+8~, ASK+3*, ASK+4
PPDU	SAVNDC+14~, GPPDU+16, GPPDU+17, GPPDU+23, GPPDU+26, GPPDU+27, GPPDU+28, SPPDU~, SPPDU+2, SPPDU+4
PPDUARR	GPPDU+11~
PPDUARR(	GPPDU+17, GPPDU+22, GPPDU+23
PRPT	NDCEDT+8~, ASK+1, ASK+4, ASK+5
PSONDC	CHGNDC+10~, CHGNDC+15*, CHGNDC+22, CHGNDC+26, CHGNDC+27
PSOTRIC	CHGNDC+24~*, CHGNDC+30, CHGNDC+31
RESP	CHGNDC+29~, CHGNDC+30, CHGNDC+31
RFL	CHGNDC~, CHGNDC+11, CHGNDC+12, CHGNDC+15, CHGNDC+18, CHGNDC+22, CHGNDC+24, CHGNDC+27, CHGNDC+28, CHGNDC+29 , CHGNDC+31, CHGNDC+33, NDCEDT~, NDCEDT+11, NDCEDT+12, NDCEDT+19, SAVNDC~, SAVNDC+11, SAVNDC+14, SAVNDC+17 , SAVNDC+18, SAVNDC+19, SAVNDC+22, GETNDC~, GETNDC+5, GETNDC+6, GETNDC+7, GPPDU~, GPPDU+13*, GPPDU+24 , GPPDU+27, SPPDU~, SPPDU+2, SPPDU+3, SPPDU+4
RX	CHGNDC~, CHGNDC+11, CHGNDC+12, CHGNDC+15, CHGNDC+18, CHGNDC+22, CHGNDC+24, CHGNDC+27, CHGNDC+28, CHGNDC+29 , CHGNDC+31, CHGNDC+33, NDCEDT~, NDCEDT+10, NDCEDT+11, NDCEDT+12, NDCEDT+18, NDCEDT+19, ASK+3, SAVNDC~ , SAVNDC+11, SAVNDC+14, SAVNDC+17, SAVNDC+18, SAVNDC+19, SAVNDC+22, GETNDC~, GETNDC+5, GETNDC+6, GETNDC+7 , GPPDU~, GPPDU+12, GPPDU+13, GPPDU+24, GPPDU+27, SPPDU~, SPPDU+2, SPPDU+3, SPPDU+4
SAVE	GPPDU~, GPPDU+14*, GPPDU+27
SITE	CHGNDC+10~, CHGNDC+12, CHGNDC+22, NDCEDT~, NDCEDT+12, NDCEDT+34
SNDC	NDCEDT+8~, NDCEDT+41, NDCEDT+42, NDCEDT+43, NDCEDT+44, GPPDU+11~, GPPDU+21, GPPDU+22
STOCK	CHGNDC~, ASK+5, NDCHLP2+2, NDCHLP2+4, NDCHLP+2, NDCHLP+8
SYN	NDCEDT+8~, NDCEDT+39, NDCEDT+40, NDCEDT+41, GPPDU+11~, GPPDU+18, GPPDU+20, GPPDU+21
VADM	ASK+3!
VADM(2	ASK+3
>> X	NDCHLP2+1, NDCHLP2+4, NDCHLP+2
Y	NDCEDT+8~, ASK+7, ASK+8, ASK+9, ASK+11, NDCHLP+4
Z	NDCEDT+8~, NDCEDT+41, GPPDU+11~, GPPDU+21, GPPDU+22

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSONDCUT

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 19

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: