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 |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: APSPRXN

Package: IHS Changes To Pharmacy

Routine: APSPRXN


Information

APSPRXN ;IHS/MSC/MGH - Unmapp ;04-Sep-2013 12:45;DU

Source Information

Source file <APSPRXN.m>

Call Graph

Call Graph Total: 9

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
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All