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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: APSPES1

Package: IHS Changes To Pharmacy

Routine: APSPES1


Information

APSPES1 ;IHS/MSC/PLS - SureScripts HL7 interface ;01-Apr-2014 11:28;DU

Source Information

Source file <APSPES1.m>

Call Graph

Call Graph Total: 13

Package Total Call Graph
IHS Changes To Pharmacy 5 ($$OPRV,$$PHMINFO,$$RXIEN,BULL,PARSE)^APSPES2  (AL1,BADORP,DG1,NOTIF,RXC,RXR)^APSPES4  $$PRVDEA^APSPES9  $$RXNORM^APSPFNC1  UPTLOG^APSPFNC2  
Health Level Seven 4 ($$HLDATE,$$HLNAME,$$HLPHONE)^HLFNC  ($$ADDSEG,$$NEWMSG,SET)^HLOAPI  $$SENDONE^HLOAPI1  $$GET^HLOPRS  
IHS Changes To ADT 1 $$HRCNF^BDGF2  
Order Entry Results Reporting 1 $$VALUE^ORCSAVE2  
Registration 1 $$EN^VAFHLPID  
VA Fileman 1 $$GET1^DIQ  

Caller Graph

Caller Graph Total: 8

Package Total Caller Graph
IHS Changes To Pharmacy 7 APSPELRX  APSPES2  APSPES3  APSPES4  APSPES9  APSPESG  APSPFNC2  
Order Entry Results Reporting 1 ORWDPS2  

Entry Points

Name Comments DBIA/ICR reference
AACK ; EP - Application ACK call back - called when AA, AE or AR is received.
ACKRES ;
MSH(ARY) ;EP
RXO(ADD) ;EP
ERR ;
GETSIG() ;EP
DRGUNITS(DIEN) ;EP
ORCRF(IORC) ;EP
GDFMTXT(FORM) ;EP
QTYTXT(DIEN) ;EP
MSA ;EP
AL1 ;EP -
PID(DFN) ;EP
QTYQUAL(DIEN) ;EP
GROUTE(RIEN) ;EP
GPHM(RXIEN) ;EP
ADJDUR(VAL) ;
NEWRX(RXIEN) ;EP
ARSPRE ;Refill request call back for ERROR
ORC7 ;
RXC ; Create RXC segment
ORCNW(OCC,ADD) ;EP
GETPRC() ;EP -
DG1 ;EP -
SPI(USR) ; EP -
GETRINST(PDIV) ;EP
RXR ;EP
CACK ; EP - Commit ACK callback - called when CA, CE or CR is received.
FSEGIEN(SRC,SEG,START) ;
PREPARY(SRC,SEG,RET,START) ;
GDFORM(FORM,TYPE) ;EP
SUBST(RXIEN) ; EP -
ARSP ; EP - callback for ORP/O10 event
SET(ARY,V,F,C,S,R) ;EP
SUNITS() ;EP

External References

Name Field # of Occurrence
$$OPRV^APSPES2 ARSP+17
$$PHMINFO^APSPES2 NEWRX+47
$$RXIEN^APSPES2 AACK+3, ARSP+16
BULL^APSPES2 AACK+11, CACK+9
PARSE^APSPES2 ARSP+4
AL1^APSPES4 AL1+1
BADORP^APSPES4 ARSP+7, ARSP+22
DG1^APSPES4 DG1+1
NOTIF^APSPES4 NEWRX+8, NEWRX+37, ARSP+27
RXC^APSPES4 RXC+1
RXR^APSPES4 RXR+1
$$PRVDEA^APSPES9 ORCNW+24
$$RXNORM^APSPFNC1 RXO+36
UPTLOG^APSPFNC2 NEWRX+13, NEWRX+42, NEWRX+48, AACK+18, ARSP+26, ARSP+31
$$HRCNF^BDGF2 PID+6
$$GET1^DIQ PID+20, ORCNW+11, ORCNW+14, ORCNW+15, ORCNW+17, ORCNW+21, ORCNW+26, ORCNW+27, ORCNW+32, ORCNW+33
, ORCNW+36, ORCNW+37, ORCNW+38, ORCNW+39, ORCNW+40, ORCNW+42, ORCNW+46, ORCNW+47, RXO+9, RXO+12
, RXO+15, RXO+46, RXO+47, RXO+49, RXO+51, RXO+52, RXO+53, RXO+54, RXO+55, RXO+56
, GETRINST+1, GROUTE+2, GDFORM+1, GDFMTXT+1, QTYQUAL+3, QTYQUAL+4, QTYTXT+3, QTYTXT+4, DRGUNITS+1, SPI+1
, SUBST+2
$$HLDATE^HLFNC ORCNW+9, ORCNW+28
$$HLNAME^HLFNC ORCNW+11, ORCNW+17, ORCNW+21
$$HLPHONE^HLFNC ORCNW+27, ORCNW+33, RXO+56
$$ADDSEG^HLOAPI PID+23, ORCNW+52, ORCRF+7, RXO+59, MSA+7, MSA+13
$$NEWMSG^HLOAPI NEWRX+7
SET^HLOAPI SET+1
$$SENDONE^HLOAPI1 NEWRX+36
$$GET^HLOPRS ARSP+9, ARSP+10, ARSP+11, ARSP+15
$$VALUE^ORCSAVE2 ORCNW+43
$$EN^VAFHLPID PID+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^DIC(4 - [#4] GET1^DIQ
^SC - [#44] GET1^DIQ
^DIC(49 - [#49] GET1^DIQ
^DIC(5 - [#5] GET1^DIQ
^PSDRUG - [#50] GET1^DIQ
^PS(50.606 - [#50.606] GET1^DIQ
^PS(50.7 - [#50.7] GET1^DIQ
^PS(51.2 - [#51.2] GET1^DIQ
^PSRX - [#52] GET1^DIQ
^PS(59 - [#59] GET1^DIQ
^AUPNPAT - [#9000001] GET1^DIQ
^APSPNCP(9009033.7 - [#9009033.7] GET1^DIQ
^APSPOPHM - [#9009033.9] GET1^DIQ
^APSPRREQ - [#9009033.91] GET1^DIQ
^AUTTLOC - [#9999999.06] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^HLB - [#778] AACK+4, AACK+6, CACK+2, CACK+4, ORCNW+49
^HLB("B" ORCNW+48
^PSDRUG - [#50] RXO+8, RXO+31, RXO+32
^PSRX - [#52] NEWRX+20, NEWRX+21, ORC7+2, ORC7+3, GPHM+1, GETSIG+3, GETSIG+4, GETPRC+3, GETPRC+4

Label References

Name Line Occurrences
$$ADJDUR ORC7+9
$$DRGUNITS ORC7+5
$$FSEGIEN ARSP+5, ARSP+13, PREPARY+2
$$GDFMTXT RXO+17
$$GDFORM RXO+14, GDFMTXT+1
$$GETPRC RXO+19
$$GETRINST ORCNW+30
$$GETSIG RXO+20
$$GPHM RXO+44
$$QTYQUAL RXO+24
$$QTYTXT RXO+25
$$SPI ORCNW+20
$$SUBST RXO+21
$$SUNITS RXO+29
AL1 NEWRX+25
ARSP ARSPRE+1
DG1 NEWRX+25
ORC7 ORCNW+8
ORCNW NEWRX+25
PID NEWRX+25
RXC NEWRX+25
RXO NEWRX+25
RXR NEWRX+25
SET PID+5, PID+6, PID+7, PID+10, PID+11, PID+12, PID+15, PID+22, ORCNW+3, ORCNW+4
, ORCNW+5, ORCNW+6, ORCNW+7, ORCNW+9, ORCNW+10, ORCNW+13, ORCNW+16, ORCNW+19, ORCNW+20, ORCNW+23
, ORCNW+24, ORCNW+25, ORCNW+26, ORCNW+27, ORCNW+28, ORCNW+29, ORCNW+32, ORCNW+33, ORCNW+34, ORCNW+35
, ORCNW+36, ORCNW+37, ORCNW+38, ORCNW+39, ORCNW+40, ORCNW+50, ORCNW+51, ORC7+6, ORC7+8, ORC7+9
, ORC7+10, ORC7+11, ORC7+14, ORCRF+2, ORCRF+3, ORCRF+4, ORCRF+5, ORCRF+6, RXO+3, RXO+6
, RXO+10, RXO+11, RXO+16, RXO+17, RXO+18, RXO+19, RXO+20, RXO+21, RXO+22, RXO+24
, RXO+25, RXO+26, RXO+27, RXO+28, RXO+29, RXO+33, RXO+40, RXO+42, RXO+43, RXO+46
, RXO+47, RXO+48, RXO+49, RXO+50, RXO+51, RXO+52, RXO+53, RXO+54, RXO+55, RXO+56
, RXO+57, RXO+58, MSA+2, MSA+3, MSA+4, MSA+5, MSA+6, MSA+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AACK AACK+1~, AACK+4*, AACK+5, AACK+9, ARSP+1~, ARSP+10*, ARSP+12, ARSP+21
ADD ORCNW~, ORCNW+2*, ORCNW+29, ORCNW+52, RXO~, RXO+59
APP RXO+1~
APPARMS NEWRX+1~, NEWRX+36
APPARMS("ACCE PT ACK RESPONSE" , NEWRX+30*, PT ACK TYPE" , NEWRX+28*
APPARMS("APP ACK TYPE" , NEWRX+31*
APPARMS("FAIL URE RESPONSE" , NEWRX+33*
APPARMS("QUEUE" NEWRX+32*
APPARMS("SEND ING APPLICATION" , NEWRX+27*
ARY NEWRX+1~, NEWRX+13, NEWRX+42, NEWRX+48, AACK+1~, AACK+18, ARSP+1~, ARSP+26, ARSP+31, MSH~
, PID+5, PID+6, PID+7, PID+10, PID+11, PID+12, PID+15, PID+22, PID+23, ORCNW+3
, ORCNW+4, ORCNW+5, ORCNW+6, ORCNW+7, ORCNW+9, ORCNW+10, ORCNW+13, ORCNW+16, ORCNW+19, ORCNW+20
, ORCNW+23, ORCNW+24, ORCNW+25, ORCNW+26, ORCNW+27, ORCNW+28, ORCNW+29, ORCNW+32, ORCNW+33, ORCNW+34
, ORCNW+35, ORCNW+36, ORCNW+37, ORCNW+38, ORCNW+39, ORCNW+40, ORCNW+50, ORCNW+51, ORCNW+52, ORC7+6
, ORC7+8, ORC7+9, ORC7+10, ORC7+11, ORC7+14, ORCRF+2, ORCRF+3, ORCRF+4, ORCRF+5, ORCRF+6
, ORCRF+7, RXO+3, RXO+6, RXO+10, RXO+11, RXO+16, RXO+17, RXO+18, RXO+19, RXO+20
, RXO+21, RXO+22, RXO+24, RXO+25, RXO+26, RXO+27, RXO+28, RXO+29, RXO+33, RXO+40
, RXO+42, RXO+43, RXO+46, RXO+47, RXO+48, RXO+49, RXO+50, RXO+51, RXO+52, RXO+53
, RXO+54, RXO+55, RXO+56, RXO+57, RXO+58, RXO+59, MSA+2, MSA+3, MSA+4, MSA+5
, MSA+6, MSA+7, MSA+12, MSA+13, SET~, SET+1
ARY("COM" NEWRX+11*, NEWRX+40*, NEWRX+47*, AACK+17*, ARSP+25*, ARSP+30*
ARY("REASON" NEWRX+9*, NEWRX+38*, NEWRX+44*, AACK+14*, ARSP+18*
ARY("RX REF" NEWRX+10*, NEWRX+39*, NEWRX+45*, AACK+15*, ARSP+19*
ARY("TYPE" NEWRX+12*, NEWRX+41*, NEWRX+46*, AACK+16*, ARSP+24*, ARSP+29*
ARY("USER" ARSP+20*
C SET~, SET+1
CACK CACK+1~, CACK+2*, CACK+3, CACK+7
CMP ORC7+1~, ORC7+2*, ORC7+4*, ORC7+6, ORC7+8, ORC7+9, ORC7+10, ORC7+11, ORC7+14
CONJ ORC7+1~, ORC7+12*, ORC7+13*, ORC7+14
D ORC7+1~, ORC7+3*, ORC7+8, ORC7+9, ORC7+11, ORC7+12, ADJDUR+1~, ADJDUR+4*, ADJDUR+5
DATA AACK+1~, ARSP+1~, ARSP+4, ARSP+5, ARSP+13
DATA( ARSP+8, ARSP+14
DFN NEWRX+2~, NEWRX+22*, NEWRX+25, PID~, PID+1, PID+4, PID+6, PID+20
DIEN RXO+1~, RXO+5*, RXO+31, RXO+32, QTYQUAL~, QTYQUAL+3, QTYTXT~, QTYTXT+3, DRGUNITS~, DRGUNITS+1
DNAME RXO+1~, RXO+8*, RXO+9*, RXO+10
DRG RXO+1~, RXO+23*, RXO+24, RXO+25
DSF RXO+1~, RXO+12*, RXO+14, RXO+17
DU ORC7+1~, ORC7+5*, ORC7+6
DUZ(2 PID+6, ORCNW+31
ERR NEWRX+1~, NEWRX+7, NEWRX+36
ERRTXT ARSP+2~, ARSP+15*, ARSP+25, ARSP+27
F SET~, SET+1
FLD PID+2~, PID+8*, PID+9, PID+13*, PID+14
FORM GDFORM~, GDFORM+1, GDFMTXT~, GDFMTXT+1
FOUND RXO+1~
FRM RXO+1~, RXO+13*, RXO+15*, RXO+16
HL1 NEWRX+2~
HL1("ECH" NEWRX+16*
HL1("FS" NEWRX+17*
HL1("Q" NEWRX+18*
HL1("VER" NEWRX+19*
HLB7 ORCNW+1~, ORCNW+45*, ORCNW+49*, ORCNW+51
HLECH NEWRX+1~, NEWRX+15*, NEWRX+16, PID+9, PID+14, ORCNW+11, ORCNW+12, ORCNW+17, ORCNW+18, ORCNW+21
, ORCNW+22
HLFS NEWRX+1~, NEWRX+14*, NEWRX+17, PID+8, PID+11, PID+12, PID+13, PID+17
>> HLMSGIEN AACK+2, AACK+3, AACK+6, CACK+2, CACK+4, ARSP+4
HLMSTATE ARSP+1~, ARSP+4
HLO ORCNW+1~, ORCNW+47*, ORCNW+48
HLOIEN ORCNW+1~, ORCNW+48*, ORCNW+49
HLPM NEWRX+1~, NEWRX+7
HLPM("ENCODIN G CHARACTERS" , NEWRX+15
HLPM("EVENT" NEWRX+5*
HLPM("FIELD S EPARATOR" , NEWRX+14
HLPM("MESSAGE TYPE" , NEWRX+4*
HLPM("VERSION" NEWRX+6*, NEWRX+19
HLQ PID+2~, PID+3*
>> HLSMGIEN AACK+4
HLST NEWRX+1~, NEWRX+7, NEWRX+36, PID+23, ORCNW+52, ORCRF+7, RXO+59, MSA+7, MSA+13
IEN PREPARY+1~, PREPARY+2*, PREPARY+3, PREPARY+4, PREPARY+5
IMMNPI ORCNW+1~, ORCNW+15*, ORCNW+16
IMMSUP ORCNW+1~, ORCNW+14*, ORCNW+15, ORCNW+17
INST ORCNW+1~, ORCNW+30*, ORCNW+31*, ORCNW+32, ORCNW+33, ORCNW+36, ORCNW+37, ORCNW+38, ORCNW+39, ORCNW+40
IORC ORCRF~
LN NEWRX+2~, NEWRX+3*
LP PID+2~, PID+9*, PID+10, PID+14*, PID+15, ORCNW+1~, ORCNW+12*, ORCNW+13, ORCNW+18*, ORCNW+19
, ORCNW+22*, ORCNW+23, ORC7+1~, ORC7+2*, ORC7+3, PREPARY+1~, PREPARY+4*, PREPARY+5, FSEGIEN+1~, FSEGIEN+2*
, FSEGIEN+3*, FSEGIEN+4*, FSEGIEN+5, GETSIG+1~, GETSIG+3*, GETSIG+4, GETPRC+1~, GETPRC+3*, GETPRC+4
MSA ARSP+1~, MSA+1~, MSA+7*
MSG AACK+11, CACK+9, ARSP+1~
MSG(1 AACK+6*, CACK+4*
MSG(2 AACK+7*, CACK+5*
MSG(3 AACK+8*, CACK+6*
MSG(4 AACK+9*, CACK+7*
MSGIEN ARSP+2~, ARSP+3*, ARSP+9*, ARSP+16, ARSP+17
MSH MSA+11~, MSA+13*
N ADJDUR+1~, ADJDUR+3*, ADJDUR+5
NDC RXO+1~, RXO+4*, RXO+6, RXO+11, RXO+35, RXO+36
NIEN RXO+1~
NM ORCNW+1~, ORCNW+11*, ORCNW+12, ORCNW+17*, ORCNW+18, ORCNW+21*, ORCNW+22
NOSSNR PID+19~, PID+20*, PID+21
OCC ORCNW~, ORCNW+4
OPRV ARSP+1~, ARSP+17*, ARSP+20
ORC ORCNW+1~, ORCNW+52*, ORCRF+1~, ORCRF+7*
ORDER ORCNW+1~, ORCNW+42*, ORCNW+43
PDIV GETRINST~, GETRINST+1
PHM RXO+1~, RXO+44*, RXO+45, RXO+46, RXO+47, RXO+49, RXO+51, RXO+52, RXO+53, RXO+54
, RXO+55, RXO+56, RXO+59*
PID PID+2~, PID+4*, PID+8, PID+11, PID+12, PID+13, PID+17
R SET~, SET+1
RES FSEGIEN+1~, FSEGIEN+2*, FSEGIEN+4, FSEGIEN+5*, FSEGIEN+6
RET NEWRX+13, NEWRX+42, NEWRX+48, AACK+1~, AACK+18, ARSP+1~, ARSP+26, ARSP+31, QTYQUAL+1~, QTYQUAL+2*
, QTYQUAL+4*, QTYQUAL+5, QTYTXT+1~, QTYTXT+2*, QTYTXT+4*, QTYTXT+5, PREPARY~, GETSIG+1~, GETSIG+2*, GETSIG+4*
, GETSIG+5, GETPRC+1~, GETPRC+2*, GETPRC+4*, GETPRC+5
RET( PREPARY+5*
RIEN GROUTE~, GROUTE+2
RRIEN ORCNW+1~, ORCNW+43*, ORCNW+44, ORCNW+46, ORCNW+47
RX0 NEWRX+2~, NEWRX+20*, NEWRX+22, ORCNW+7, ORCNW+9, ORCNW+10, ORCNW+11, ORCNW+14, ORCNW+20, ORCNW+21
, ORCNW+24, ORCNW+25, ORCNW+26, ORCNW+27, ORC7+5, RXO+5, RXO+8, RXO+9, RXO+22, RXO+23
, RXO+27
RX2 NEWRX+2~, NEWRX+21*, ORCNW+28, ORCNW+30, RXO+4
RXIEN NEWRX~, NEWRX+8, NEWRX+13, NEWRX+20, NEWRX+21, NEWRX+37, NEWRX+42, NEWRX+47, NEWRX+48, AACK+1~
, AACK+3*, AACK+13, AACK+18, ARSP+1~, ARSP+16*, ARSP+23, ARSP+26, ARSP+27, ARSP+28, ARSP+31
, ORCNW+5, ORCNW+42, ORC7+2, ORC7+3, RXO+12, RXO+21, RXO+44, GPHM~, GPHM+1, GETSIG+3
, GETSIG+4, GETPRC+3, GETPRC+4, SUBST~, SUBST+2
RXNORM RXO+1~, RXO+36*, RXO+37, RXO+38, RXO+39*, RXO+40
RXROUTE GROUTE+1~, GROUTE+2*, GROUTE+3
S SET~, SET+1
SEG PREPARY~, PREPARY+2, FSEGIEN~, FSEGIEN+5
SEGERR ARSP+2~, ARSP+14*, ARSP+15
SEGIEN ARSP+2~, ARSP+5*, ARSP+6, ARSP+8, ARSP+13*, ARSP+14
SEGMSA ARSP+2~, ARSP+8*, ARSP+9, ARSP+10, ARSP+11
SGM PID+2~
SRC PREPARY~, PREPARY+2, FSEGIEN~
SRC( PREPARY+4, PREPARY+5, FSEGIEN+4, FSEGIEN+5
SSN PID+2~, PID+17*, PID+18, PID+21*, PID+22
SSNUM ORCNW+1~, ORCNW+46*, ORCNW+50
START PREPARY~, PREPARY+2, FSEGIEN~, FSEGIEN+3
TTY RXO+1~, RXO+38*, RXO+41*, RXO+42
TXT ARSP+2~, ARSP+3*, ARSP+11*, ARSP+30
TYP RXO+1~, RXO+2*, RXO+31*, RXO+32*, RXO+33
TYPE GDFORM~, GDFORM+1
U NEWRX+22, AACK+5, ORCNW+7, ORCNW+9, ORCNW+10, ORCNW+11, ORCNW+14, ORCNW+20, ORCNW+21, ORCNW+24
, ORCNW+25, ORCNW+26, ORCNW+27, ORCNW+28, ORCNW+30, ORCNW+49, ORC7+5, ORC7+8, ORC7+9, ORC7+11
, ORC7+12, RXO+4, RXO+5, RXO+8, RXO+9, RXO+22, RXO+23, RXO+27, RXO+31, RXO+32
, RXO+38, RXO+39, GPHM+1
USR SPI~, SPI+1
V SET~, SET+1
VAL PID+2~, PID+9*, PID+10, PID+14*, PID+15, ORCNW+1~, ORCNW+12*, ORCNW+13, ORCNW+18*, ORCNW+19
, ORCNW+22*, ORCNW+23, ADJDUR~, ADJDUR+2, ADJDUR+3, ADJDUR+4, SUBST+1~, SUBST+2*, SUBST+3
WHO NEWRX+36, AACK+11, CACK+9, ARSP+1~
WHO("FACILITY LINK NAME" , NEWRX+35*
WHO("G.APSP E PRESCRIBING" , AACK+10*, CACK+8*
WHO("RECEIVIN G APPLICATION" , NEWRX+34*
X ACKRES+1~*, PID+2~, PID+23*, RXO+1~, RXO+14*, RXO+15, QTYQUAL+1~, QTYQUAL+3*, QTYQUAL+4, QTYTXT+1~
, QTYTXT+3*, QTYTXT+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All