Routine: APSPRXN

Package	Total	Call Graph
VA Fileman	5	(,IX)^DIC YN^DICN ^DIE $$GET1^DIQ ^DIR
IHS Changes To Pharmacy	1	$$DIR^APSPUTIL
IHS Standard Terminology	1	($$DI2RX,$$SEARCH)^BSTSAPI
IHS VA Utilities	1	^XBDBQUE
Kernel	1	$$STRIP^XLFSTR

Entry Points

Name	Comments	DBIA/ICR reference
REMAP	;EP Option to reset a local NDC and map to RxNorm or just set an RxNorm
EN	;EP
HDR	;
DEV	;EP
STORE(RXNORM)	;store code
ASK	;
OUT	;EP
PAUS	;

External References

Name	Field # of Occurrence
$$DIR^APSPUTIL	ASK+5
$$DI2RX^BSTSAPI	ASK+14
$$SEARCH^BSTSAPI	ASK+25
^DIC	ASK+38
IX^DIC	ASK+2
YN^DICN	ASK+42
^DIE	ASK+9, STORE+5
$$GET1^DIQ	OUT+6, OUT+8, OUT+10, OUT+11, OUT+13, OUT+15, OUT+16, ASK+10
^DIR	PAUS+4
^XBDBQUE	DEV+4
$$STRIP^XLFSTR	ASK+11

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: EN+4
Function Call: WRITE	Prompt: !,"Drugs without RxNorm codes",!! Line Location: EN+5
Function Call: WRITE	Prompt: @IOF Line Location: HDR+1
Function Call: WRITE	Prompt: !,"Active Drugs missing RxNorm codes" Line Location: HDR+2
Function Call: WRITE	Prompt: !,"IEN",?8,"Drug Name",?58,"NDC" Line Location: HDR+3
Function Call: WRITE	Prompt: !,?10,"VA Product",?58,"VA NDC",! Line Location: HDR+4
Function Call: WRITE	Prompt: @IOF Line Location: REMAP+2
Function Call: WRITE	Prompt: !,"Update NDC and RxNorm",!! Line Location: REMAP+3
Function Call: WRITE	Prompt: ! Line Location: ASK+2
Function Call: WRITE	Prompt: !,RXNORM_" code stored" Line Location: ASK+16
Function Call: WRITE	Prompt: !,"Unable to map this NDC code" Line Location: ASK+17
Function Call: WRITE	Prompt: !,RXCODE_" code stored" Line Location: ASK+41
Function Call: WRITE	Prompt: !!,"Do you want to continue?" Line Location: ASK+42
Routine Call	DIE Line Location: ASK+9 STORE+5
Routine Call	DIC Line Location: ASK+38
Routine Call	DIR Line Location: PAUS+4
Routine Call	DIC Line Location: ASK+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PSDRUG - [#50]	Classic Fileman Calls, GET1^DIQ
^PSNDF(50.68 - [#50.68]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PSDRUG - [#50]	OUT+4
^TMP("APSPRX"	ASK+40
^TMP($J	ASK+20!, ASK+31, ASK+32, ASK+34*

Label References

Name	Line Occurrences
ASK	ASK+43
DEV	EN+6
HDR	OUT+3, OUT+25
PAUS	OUT+25
STORE	ASK+16, ASK+41

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	ASK+1~, ASK+42*, ASK+43
APSPARY	EN+1~, OUT+27!
APSPARY(	OUT+18*, OUT+20, OUT+21
APSPCNT	EN+1~
APSPNAME	EN+1~
APSPNUM	EN+1~, REMAP+1~, ASK+5*, ASK+6, ASK+8, ASK+18
APSPQ	EN+1~, EN+2, OUT+19, OUT+20, OUT+25, OUT+26, PAUS+5*, ASK+5
ARR	ASK+20!
CNT	ASK+19~, ASK+27*, ASK+29, ASK+30, ASK+31, ASK+32
CT	ASK+19~, ASK+21, ASK+33, ASK+34
D	ASK+1~, ASK+2*!
DA	ASK+1~, ASK+9, STORE+1~, STORE+2
DATA	ASK+19~, ASK+29*, ASK+31, ASK+32
DESC	ASK+19~, ASK+30*
DIC	ASK+1~, ASK+2!, ASK+37
DIC("A"	ASK+37*
DIC("T"	ASK+2*
DIC(0	ASK+2, ASK+37
DIE	ASK+1~, ASK+9, STORE+1~, STORE+3
DIR	PAUS+1~
DIR("?"	PAUS+2*
DIR("A"	PAUS+3*
DIR(0	PAUS+3*
DLAYGO	ASK+1~, ASK+2*
DR	ASK+1~, ASK+9, STORE+1~, STORE+4
DRUG	OUT+1~, OUT+10, OUT+18, OUT+20, OUT+21, OUT+23
DTOUT	PAUS+1~
DUOUT	PAUS+1~, PAUS+5
IEN	OUT+1~, OUT+4, OUT+6, OUT+8, OUT+10, OUT+11, OUT+13, OUT+18, OUT+22, OUT+23 , ASK+1~, ASK+3*, ASK+9, ASK+10, STORE+2
IN	ASK+1~, ASK+14, ASK+23, ASK+25
INACT	OUT+1~
INACTDT	OUT+1~, OUT+6*, OUT+7
IO	OUT+2
IOF	EN+4, HDR+1, REMAP+2
IOSL	OUT+25
IOST	OUT+25, HDR+1
NAME	ASK+1~, ASK+4*, ASK+23
NDC	OUT+1~, OUT+11, OUT+12, OUT+18, OUT+22, OUT+23, ASK+1~, ASK+10, ASK+11, ASK+12 , ASK+14
NDCAP	ASK+1~
NODE	OUT+1~, OUT+21*, OUT+22
OUT	ASK+1~, ASK+24*, ASK+25, ASK+27, ASK+29, ASK+30
QFLG	EN+1~
RXCODE	ASK+19~, ASK+40*, ASK+41
RXNORM	OUT+1~, OUT+8, OUT+9, REMAP+1~, ASK+7, ASK+15, ASK+16, ASK+39, ASK+40, STORE~
U	OUT+18, OUT+22, ASK+3, ASK+4, ASK+15, ASK+34, ASK+40
VA	OUT+1~, OUT+5, OUT+15, OUT+18, OUT+22*, OUT+24
VAIEN	OUT+1~, OUT+13*, OUT+14, OUT+15, OUT+16
VANDC	OUT+1~, OUT+5, OUT+16, OUT+17, OUT+18, OUT+22, OUT+24
X	STORE+1~
XBNS	DEV+1~, DEV+3*
XBRP	DEV+1~, DEV+2*
Y	ASK+1~, ASK+2, ASK+3, ASK+4, ASK+39, STORE+1~
ZDATA	ASK+1~, ASK+14, ASK+15, ASK+25, ASK+26

Customize PDF page

Package: IHS Changes To Pharmacy

Routine: APSPRXN

Information

Source Information

Call Graph

Call Graph Total: 9

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: