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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: APSPRCUI

Package: IHS Changes To Pharmacy

Routine: APSPRCUI


Information

APSPRCUI ;MSC/JS QUERY APELON FOR RXNORM VALUE FOR DRUG NDC OR DRUG VUID ;11-Oct-2013 13:15;DU

Source Information

Source file <APSPRCUI.m>

Call Graph

Call Graph Total: 12

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  

Caller Graph

Caller Graph Total: 3

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
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 |  Naked Globals |  Local Variables |  All