Routine: APSPRCUI

Package	Total	Call Graph
Kernel	5	HOME^%ZIS ^%ZTLOAD $$NOW^XLFDT $$STRIP^XLFSTR MES^XPDUTL
VA Fileman	3	(,FILE)^DIE $$GET1^DIQ ^DIR
CIA Utilities	1	$$TEST^CIAUOS
IHS Changes To Pharmacy	1	$$NDC^APSPES4
IHS Standard Terminology	1	($$ASSOC,$$DI2RX)^BSTSAPI
Toolkit	1	$$GET^XPAR

Package	Total	Caller Graph
IHS Changes To Pharmacy	2	APSPEC17 APSPFNC1
Pharmacy Data Management	1	PSSDEE

Entry Points

Name	Comments	DBIA/ICR reference
SUPALL	;
FLDEDIT(IEN50)	; -- update RXCUI field with data entry
ONEUP	; -- XQ menu option to update RXNorm field for DRUG file entry
UPALL	;
TMPGBL(X)	;EP
NDC	; -- check XPAR parameter APSP RXNORM NDC LOOKUP for NDC lookup method, default value is 'P' - VA PRODUCT NDC lookup
ROUTES	;Enter old SNOMED medication routes
LIST	;
EXIT	;
UPONE	;
VUID	; -- alternate Drug VUID lkup here if no NDC available
UPROUTE	;Update local medication routes that are mapped
SQUERY(IEN50,APSPDIS)	;
QUERY	;
MAIN	;
APELON(RXNORM)	; -- query Apelon site for drug NDC code, if RXCUI data returned updated DRUG file entry(s) ; -- if $G(APSPDIS)="", display dialog
QRXNORM(RET,IEN50)	;
DQ	; -- tasked update from KIDs Post-Install for ALL Drug file entries job starts here

External References

Name	Field # of Occurrence
HOME^%ZIS	MAIN+2, SUPALL+23, ONEUP+1
^%ZTLOAD	SUPALL+22, ROUTES+5
$$NDC^APSPES4	SQUERY+5, SQUERY+8, DQ+7, DQ+10, UPONE+22, UPONE+26, UPALL+15, UPALL+19, QRXNORM+6, QRXNORM+9 , ONEUP+24, ONEUP+28
$$ASSOC^BSTSAPI	UPROUTE+6
$$DI2RX^BSTSAPI	APELON+9, APELON+18
$$TEST^CIAUOS	SUPALL+7, UPONE+10, UPALL+1, ONEUP+12
^DIE	FLDEDIT+12, APELON+30
FILE^DIE	UPROUTE+12
$$GET1^DIQ	LIST+11, LIST+12, LIST+13, QUERY+7, QUERY+8, QUERY+9, SQUERY+6, SQUERY+11, SQUERY+13, DQ+8 , UPONE+20, UPONE+23, UPONE+28, UPALL+12, UPALL+16, UPALL+21, QRXNORM+7, QRXNORM+11, QRXNORM+12, FLDEDIT+13 , APELON+31, ONEUP+22, ONEUP+25, ONEUP+30
^DIR	MAIN+10, LIST+3, QUERY+3, UPONE+7, UPONE+13, UPALL+5, FLDEDIT+4, ONEUP+9, ONEUP+15, ONEUP+37
$$NOW^XLFDT	MAIN+5
$$STRIP^XLFSTR	APELON+6
$$GET^XPAR	NDC+1, NDC+2
MES^XPDUTL	SUPALL+5, SUPALL+14, SUPALL+28

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: MAIN+10
Function Call: WRITE	Prompt: ! Line Location: LIST+3
Function Call: WRITE	Prompt: !!,"TOTAL DRUG ENTRIES WITH RXNORM CODES: ",TOTRXY Line Location: LIST+22
Function Call: WRITE	Prompt: !,"TOTAL DRUG ENTRIES WITH NO RXNORM CODES: ",TOTRXN Line Location: LIST+23
Function Call: WRITE	Prompt: !,"TOTAL DRUG ENTRIES WITH NDC CODES: ",TOTNDCY Line Location: LIST+24
Function Call: WRITE	Prompt: !,"TOTAL DRUG ENTRIES WITH NO NDC CODES: ",TOTNDCN Line Location: LIST+25
Function Call: WRITE	Prompt: !!,"TOTAL DRUG ENTRIES: ",TOTAL Line Location: LIST+26
Function Call: WRITE	Prompt: ! Line Location: QUERY+3
Function Call: WRITE	Prompt: !,"DRUG: ",DRUGNM,!,?30,"NDC:",?40,NDC,!?30,"RXNorm:",?40,RXNORM Line Location: QUERY+10
Function Call: WRITE	Prompt: @IOF,!! Line Location: UPONE+1
Function Call: WRITE	Prompt: !,"This option will update a DRUG file entry RXNorm field using the Apelon Tool",!,"or alternatively by data entry.",! Line Location: UPONE+2
Function Call: WRITE	Prompt: ! Line Location: UPONE+7
Function Call: WRITE	Prompt: !!,"The Apelon utility has not been installed on this account, aborting update." Line Location: UPONE+10
Function Call: WRITE	Prompt: ! Line Location: UPONE+13
Function Call: WRITE	Prompt: !,DRUGNM,?55,NDC Line Location: UPONE+29
Function Call: WRITE	Prompt: !!,"No NDC code found for this entry, cannot query Apelon for update.",! Line Location: UPONE+30
Function Call: WRITE	Prompt: !!,"The Apelon utility has not been installed on this account, aborting update." Line Location: UPALL+1
Function Call: WRITE	Prompt: ! Line Location: UPALL+5
Function Call: WRITE	Prompt: !,"Skipping entry ",DRUGNM," no NDC code",! Line Location: UPALL+22
Function Call: WRITE	Prompt: ! Line Location: FLDEDIT+4
Function Call: WRITE	Prompt: !,$S(RXNORM=RXCUI:"ENTRY UPDATED",1:"ENTRY NOT UPDATED") Line Location: FLDEDIT+14
Function Call: WRITE	Prompt: " - RXCUI field set to: ",RXNORM Line Location: FLDEDIT+15
Function Call: WRITE	Prompt: @IOF,!! Line Location: ONEUP+3
Function Call: WRITE	Prompt: !,"This option will update a DRUG file entry RXNorm field using the Apelon Tool",!,"or alternatively by data entry.",! Line Location: ONEUP+4
Function Call: WRITE	Prompt: ! Line Location: ONEUP+9
Function Call: WRITE	Prompt: !!,"The Apelon utility has not been installed on this account, aborting update." Line Location: ONEUP+12
Function Call: WRITE	Prompt: ! Line Location: ONEUP+15
Function Call: WRITE	Prompt: !!,"DRUG file entry not available for editing",! Line Location: ONEUP+18
Function Call: WRITE	Prompt: !,DRUGNM,?55,NDC Line Location: ONEUP+31
Function Call: WRITE	Prompt: !!,"No NDC code found for this entry, cannot query Apelon for update.",! Line Location: ONEUP+32
Function Call: WRITE	Prompt: !! Line Location: ONEUP+37
Function Call: WRITE	Prompt: !,"Tasking MEDICATION ROUTE #51.2 SNOMED CODE Update" Line Location: ROUTES+3
Routine Call	%ZIS Line Location: MAIN+2 SUPALL+23 ONEUP+1
Routine Call	DIE Line Location: FLDEDIT+12 APELON+30
Routine Call	DIE Line Location: UPROUTE+12
Routine Call	DIR Line Location: MAIN+10 LIST+3 QUERY+3 UPONE+7 UPONE+13 UPALL+5 FLDEDIT+4 ONEUP+9 ONEUP+15 ONEUP+37

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	MAIN+5
^PS(51.2 - [#51.2]	UPROUTE+2, UPROUTE+3
^PS(51.23 - [#51.23]	UPROUTE+5
^PSDRUG - [#50]	LIST+9, LIST+10, QUERY+6, SQUERY+3, DQ+5, DQ+6, UPONE+16, UPALL+10, UPALL+11, QRXNORM+2 , VUID+3, ONEUP+18
^PSNDF(50.68 - [#50.68]	VUID+5, VUID+8
^TMP("APSPRCUI"	TMPGBL+1!
^XTV(8989.5 - [#8989.5]	NDC+12
^XTV(8989.51 - [#8989.51]	NDC+7

Label References

Name	Line Occurrences
APELON	SQUERY+14, DQ+14, UPONE+33, UPALL+25, ONEUP+35
EXIT	MAIN+11, MAIN+16, MAIN+17, LIST+4, UPALL+6, ONEUP+10, ONEUP+12, ONEUP+16
FLDEDIT	UPONE+32, ONEUP+34
LIST	MAIN+12
MAIN	MAIN+12, MAIN+13, MAIN+14, MAIN+15
NDC	MAIN+4, SQUERY+4, DQ+2, UPONE+17, UPALL+7, QRXNORM+5, ONEUP+19
ONEUP	ONEUP+18, ONEUP+32, ONEUP+38
QUERY	MAIN+13
UPALL	MAIN+15
UPONE	MAIN+14
VUID	APELON+12

Naked Globals

Name	Field # of Occurrence
^($J	TMPGBL+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APELYES	SUPALL+7~*, SUPALL+11, SUPALL+15
APSPARR	SUPALL+1~, SUPALL+5!, SUPALL+9~, SUPALL+14!, SUPALL+24~, SUPALL+28!
APSPARR(1	SUPALL+2, SUPALL+10, SUPALL+25*
APSPARR(2	SUPALL+3, SUPALL+11, SUPALL+12, SUPALL+26
APSPARR(3	SUPALL+4, SUPALL+13, SUPALL+27*
APSPDIS	SQUERY~, DQ+1*, DQ+15!, APELON+8, APELON+11, APELON+13, APELON+32, APELON+33, EXIT+2!
DA	FLDEDIT+7~, FLDEDIT+8!, FLDEDIT+9, APELON+26~, APELON+27
DIE	FLDEDIT+7~, FLDEDIT+8!, FLDEDIT+10, APELON+26~, APELON+28
DIR	MAIN+6~, MAIN+7!, LIST+1~, QUERY+1~, UPONE+3~, UPONE+4!, UPONE+11!, UPALL+2~, UPALL+3!, FLDEDIT+1~ , FLDEDIT+2!, ONEUP+5~, ONEUP+6!, ONEUP+13!, ONEUP+36~, ROUTES+1~
DIR("?"	UPONE+6, ONEUP+8
DIR("A"	LIST+2, QUERY+2, UPONE+5, UPONE+12, UPALL+4, FLDEDIT+3, ONEUP+7, ONEUP+14, ONEUP+37*
DIR("B"	MAIN+9, LIST+2, UPONE+5, UPALL+4, ONEUP+7*
DIR(0	MAIN+8, LIST+2, QUERY+2, UPONE+5, UPONE+12, UPALL+4, FLDEDIT+3, ONEUP+7, ONEUP+14, ONEUP+37
DIRUT	MAIN+11, LIST+4, QUERY+4, UPONE+8, UPONE+14, UPALL+6, FLDEDIT+5, ONEUP+10, ONEUP+16, EXIT+1!
DR	FLDEDIT+7~, FLDEDIT+8!, FLDEDIT+11, APELON+26~, APELON+29
DRUGNM	LIST+11~, LIST+18, QUERY+7~, QUERY+10, SQUERY+11~, UPONE+20~, UPONE+29, UPALL+12~, UPALL+22, UPALL+23 , QRXNORM+11~, QRXNORM+13, ONEUP+2~, ONEUP+22~*, ONEUP+31
DUZ	MAIN+1*
DUZ(0	MAIN+1*
DUZ(2	NDC+5, NDC+13
ERR	UPROUTE+1~
FDA	UPROUTE+1~, UPROUTE+10*, UPROUTE+11
FDA(	UPROUTE+10
FLG	NDC+9~, NDC+11, NDC+12, NDC+13
FNUM	UPROUTE+1~, UPROUTE+8*, UPROUTE+10
IEN50	LIST+7~, LIST+8, LIST+9, LIST+10, LIST+11, LIST+12, LIST+13, QUERY+1~, QUERY+5, QUERY+6 , QUERY+7, QUERY+8, QUERY+9, SQUERY~, SQUERY+3, SQUERY+5, SQUERY+6, SQUERY+8, SQUERY+11, SQUERY+13 , DQ+3~, DQ+4, DQ+5, DQ+6, DQ+7, DQ+8, DQ+10, UPONE+15!, UPONE+16, UPONE+20 , UPONE+22, UPONE+23, UPONE+26, UPONE+28, UPONE+32, UPALL+8~, UPALL+9, UPALL+10, UPALL+11, UPALL+12 , UPALL+15, UPALL+16, UPALL+19, UPALL+21, QRXNORM~, QRXNORM+1, QRXNORM+2, QRXNORM+6, QRXNORM+7, QRXNORM+9 , QRXNORM+11, QRXNORM+12, QRXNORM+13, FLDEDIT~, FLDEDIT+9, FLDEDIT+13, APELON+27, APELON+31, VUID+3, ONEUP+2~ , ONEUP+17!*, ONEUP+18, ONEUP+22, ONEUP+24, ONEUP+25, ONEUP+28, ONEUP+30, ONEUP+34, EXIT+1!
IENS	UPROUTE+1~, UPROUTE+9*, UPROUTE+10
IN	APELON+2~, APELON+9, APELON+18, EXIT+1!, UPROUTE+1~, UPROUTE+6*
INFO50	QRXNORM+3~, QRXNORM+4, QRXNORM+13, QRXNORM+14
IO("Q"	SUPALL+22!
IOF	LIST+6, UPONE+1, ONEUP+3
LINE	MAIN+3*, LIST+6, EXIT+1!
MEDIEN	UPROUTE+1~, UPROUTE+2*, UPROUTE+3, UPROUTE+9
NDC	LIST+12~, LIST+16, LIST+17, LIST+19, QUERY+8~, QUERY+10, SQUERY+1~, SQUERY+5, SQUERY+6, SQUERY+7 , SQUERY+8, SQUERY+9, SQUERY+10, SQUERY+12, DQ+7, DQ+8, DQ+9, DQ+10, DQ+11, DQ+12 , DQ+13, DQ+15!, UPONE+21~, UPONE+22, UPONE+23, UPONE+24, UPONE+26, UPONE+27, UPONE+29, UPONE+30 , UPONE+31, UPALL+14~, UPALL+15, UPALL+16, UPALL+17, UPALL+19, UPALL+20, UPALL+22, UPALL+23, UPALL+24 , QRXNORM+6, QRXNORM+7, QRXNORM+8, QRXNORM+9, QRXNORM+10, QRXNORM+13, ONEUP+2~, ONEUP+23~, ONEUP+24, ONEUP+25 , ONEUP+26, ONEUP+28, ONEUP+29, ONEUP+31, ONEUP+32, ONEUP+33, EXIT+2!
NDCAP	SQUERY+12~, DQ+13~, UPONE+31~, UPALL+24~, APELON+4, APELON+6, APELON+7, APELON+9, ONEUP+33~*
NDCAPL	APELON+2~, APELON+7*, EXIT+2!
NDCDIV	NDC+1*, NDC+3, NDC+4, NDC+13, DQ+15!, ONEUP+2~, EXIT+2!
NDCPAR	SQUERY+1~, SQUERY+5, SQUERY+7, NDC+3, NDC+5, NDC+8, NDC+13, NDC+14*, DQ+7, DQ+9 , DQ+15!, UPONE+18, UPONE+19, UPONE+22, UPONE+24, UPALL+13, UPALL+15, UPALL+17, QRXNORM+6, QRXNORM+8 , ONEUP+2~, ONEUP+20, ONEUP+21, ONEUP+24, ONEUP+26, EXIT+2!
NDCSYS	NDC+2*, NDC+3, NDC+5, NDC+14, DQ+15!, ONEUP+2~, EXIT+2!
NDNODE	VUID+2~, VUID+3*
NOWE	MAIN+5*, LIST+6, EXIT+1!
NOWI	MAIN+5*, EXIT+1!
PSNF	VUID+2~, VUID+5*, VUID+6, VUID+8
PSSDMRNW	UPROUTE+1~, UPROUTE+3*, UPROUTE+4, UPROUTE+5
PSSMRNM	UPROUTE+1~, UPROUTE+5*, UPROUTE+6
RET	QRXNORM~
RXCUI	FLDEDIT+1~, FLDEDIT+6, FLDEDIT+14, FLDEDIT+15, APELON+2~, APELON+20, APELON+22*, APELON+23, APELON+32, APELON+33 , APELON+34, EXIT+2!
RXNORM	LIST+13~, LIST+14, LIST+15, LIST+19, QUERY+9~, QUERY+10, SQUERY+1~, SQUERY+2, SQUERY+13, SQUERY+14 , SQUERY+15, DQ+3~, DQ+4, DQ+14, UPONE+28~, UPONE+33, UPALL+21~, UPALL+25, QRXNORM+12~, QRXNORM+13 , FLDEDIT+13, FLDEDIT+14, FLDEDIT+15, APELON~, APELON+3, APELON+31, APELON+32, APELON+33, APELON+34, ONEUP+30~* , ONEUP+35
SNOMED	UPROUTE+1~, UPROUTE+7*, UPROUTE+11
TOTAL	LIST+8, LIST+20, LIST+26, EXIT+1!
TOTNDCN	LIST+8, LIST+17, LIST+25, EXIT+1!
TOTNDCY	LIST+8, LIST+16, LIST+24, EXIT+1!
TOTRXN	LIST+8, LIST+15, LIST+23, EXIT+1!
TOTRXY	LIST+8, LIST+14, LIST+22, EXIT+1!
>> TTY	APELON+21*, APELON+34
U	MAIN+2, QRXNORM+13, APELON+20, APELON+21, APELON+22, APELON+34, VUID+3, VUID+10, ONEUP+1, UPROUTE+7
UPOK	APELON+2~, APELON+5, APELON+23, APELON+24, APELON+25, EXIT+2!
USEAP	UPONE+9, UPONE+10, UPONE+18, UPONE+19, UPONE+30, UPONE+32, UPONE+33, ONEUP+2~, ONEUP+11, ONEUP+12 , ONEUP+20, ONEUP+21, ONEUP+32, ONEUP+34, ONEUP+35, EXIT+2!
VAPNAME	VUID+2~, VUID+3*, VUID+4, VUID+5
VUID	APELON+2~, APELON+18, VUID+10*, VUID+11, VUID+12
VUIDMSTR	VUID+7~, VUID+10*, VUID+11, VUID+12
VUIDND	VUID+7~, VUID+8*, VUID+9, VUID+10
VUIDOK	APELON+2~, APELON+13, APELON+14, VUID+1, VUID+12, EXIT+1!
X	MAIN+6~, MAIN+7!, LIST+1~, QUERY+1~, TMPGBL~, UPONE+3~, UPONE+4!, UPONE+11!, UPALL+2~, UPALL+3! , FLDEDIT+1~, FLDEDIT+2!, FLDEDIT+7~, FLDEDIT+8!, APELON+26~, ONEUP+5~, ONEUP+6!, ONEUP+13!, ONEUP+36~
XPAC	NDC+9~, NDC+10, NDC+12, NDC+13
>> XPDNM	SUPALL+20, SUPALL+21
XPIEN	NDC+6~, NDC+7*, NDC+8, NDC+12
Y	MAIN+5*, MAIN+6~, MAIN+7!, MAIN+11, MAIN+12, MAIN+13, MAIN+14, MAIN+15, MAIN+16, LIST+1~ , LIST+4, LIST+5, QUERY+1~, QUERY+5, UPONE+3~, UPONE+4!, UPONE+9, UPONE+11!, UPONE+15, UPALL+2~ , UPALL+3!, UPALL+6, FLDEDIT+1~, FLDEDIT+2!, FLDEDIT+6, FLDEDIT+7~, FLDEDIT+8!, APELON+26~, ONEUP+5~, ONEUP+6! , ONEUP+11, ONEUP+13!, ONEUP+17, ONEUP+36~
ZDATA	APELON+2~, APELON+9, APELON+10, APELON+18, APELON+20, APELON+21, APELON+22, EXIT+1!, UPROUTE+1~, UPROUTE+6* , UPROUTE+7
ZTDESC	SUPALL+20, SUPALL+29!, ROUTES+1~, ROUTES+4
ZTDTH	SUPALL+29!
ZTIO	SUPALL+17, SUPALL+29!, ROUTES+1~, ROUTES+2
ZTRTN	SUPALL+19, SUPALL+29!, ROUTES+1~, ROUTES+2
ZTSAVE	SUPALL+29!, ROUTES+1~
ZTSAVE("DUZ"	ROUTES+2*
ZTSAVE("XPDNM"	SUPALL+21*
ZTSK	SUPALL+26, SUPALL+29!, ROUTES+1~, ROUTES+6, ROUTES+8

Customize PDF page

Package: IHS Changes To Pharmacy

Routine: APSPRCUI

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: