PSOERXA1 ;ALB/BWF - eRx Utilities/RPC's ; 8/3/2016 5:14pm
Source file <PSOERXA1.m>
Package | Total | Call Graph |
---|---|---|
Outpatient Pharmacy | 9 | $$CONVDTTM^PSOERXA1 ($$STRES,FAC,PHR,PRE,SUP)^PSOERXA2 ($$HDR,MED)^PSOERXA3 (BFC,CANRX,MEDDISP,REFRESP)^PSOERXA5 ($$ERRSEQ,FILERR)^PSOERXU1 $$FINDPAT^PSOERXU2 $$GETPAT^PSOERXU5 $$VADEA^PSOERXU8 ($$PROXYDUZ,AUDLOG)^PSOERXUT |
VA FileMan | 4 | ^%DT $$FIND1^DIC (FILE,UPDATE)^DIE $$GET1^DIQ |
Kernel | 1 | $$UP^XLFSTR |
Pharmacy Data Management | 1 | $$GETNDC^PSSNDCUT |
Registration | 1 | DEM^VADPT |
Web Services Client | 1 | $$STATCHK^XOBWLIB |
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Name | Comments | DBIA/ICR reference |
---|---|---|
INCERX(RES,XML,PRCHK,PACHK,DACHK,STATION,DIV,ERXHID,ERXVALS,XML2,VADAT) | ;
|
|
PARSE(STREAM,ERXVALS,NPI,STREAM2) | ;
|
|
OBS(ERXIEN,MTYPE) | ; Observation
|
|
PAT(ERXIEN,MTYPE) | ; patient
|
|
PATC(IEN) | ; patient communication
|
|
SPUSH(S,X) | ;places X on the stack S and returns the current level of the stack
|
|
SPOP(S,X) | ;removes the top item from the stack S and put it into the variable X and returns the level that X was at
|
|
SPEEK(S,X) | ;same as SPOP except the top item is not removed
|
|
SPUT(S,X) | ;implementation specific, uses the stack to form a global node
|
|
APUT(S,X,LN) | ; what am i doing here?
|
|
PRESOLV(VAL,TYPE) | ;
|
|
CONVDTTM(VAL) | ;
|
|
CSERX() | ; Determine if an Incoming eRx is for a Controlled Substance Medication or not
; Output: "1" (Controlled Substance) or "0" (Non-Controlled Substance) |
Name | Field # of Occurrence |
---|---|
^%DT | CONVDTTM+5, CONVDTTM+14 |
$$FIND1^DIC | PARSE+43 |
FILE^DIE | INCERX+12, INCERX+14, INCERX+61, INCERX+69, PARSE+48, PARSE+52, OBS+13, PAT+40, PAT+41, PAT+42 , PATC+23, PATC+28 |
UPDATE^DIE | OBS+12, PAT+35, PATC+12, PATC+27 |
$$GET1^DIQ | INCERX+22, INCERX+28, INCERX+29, INCERX+40, INCERX+66, PATC+21 |
$$CONVDTTM^PSOERXA1 | OBS+10, PAT+15 |
$$STRES^PSOERXA2 | PAT+22 |
FAC^PSOERXA2 | PARSE+61 |
PHR^PSOERXA2 | PARSE+53 |
PRE^PSOERXA2 | PARSE+53 |
SUP^PSOERXA2 | PARSE+54 |
$$HDR^PSOERXA3 | PARSE+46 |
MED^PSOERXA3 | PARSE+54 |
BFC^PSOERXA5 | PARSE+53 |
CANRX^PSOERXA5 | PARSE+59 |
MEDDISP^PSOERXA5 | PARSE+55 |
REFRESP^PSOERXA5 | PARSE+56 |
$$ERRSEQ^PSOERXU1 | INCERX+33, INCERX+44, INCERX+73, INCERX+77 |
FILERR^PSOERXU1 | INCERX+34, INCERX+45, INCERX+74, INCERX+78 |
$$FINDPAT^PSOERXU2 | PAT+26 |
$$GETPAT^PSOERXU5 | PARSE+51 |
$$VADEA^PSOERXU8 | INCERX+40 |
$$PROXYDUZ^PSOERXUT | INCERX+23, INCERX+41, INCERX+67 |
AUDLOG^PSOERXUT | INCERX+23, INCERX+41, INCERX+67 |
$$GETNDC^PSSNDCUT | INCERX+22 |
DEM^VADPT | INCERX+65 |
$$UP^XLFSTR | PAT+7, PAT+8, PAT+9, PAT+11, PAT+12 |
$$STATCHK^XOBWLIB | PARSE+9, PARSE+25 |
RPC Name | Call Tags |
---|---|
PSOERXA1 INCERX | INCERX |
FileNo | Call Tags |
---|---|
^DPT - [#2] | GET1^DIQ |
^VA(200 - [#200] | GET1^DIQ |
^DIC(4 - [#4] | FIND1^DIC |
^PSDRUG - [#50] | GET1^DIQ |
^PS(50.7 - [#50.7] | GET1^DIQ |
52.465 | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DPT("AICN" | INCERX+49, INCERX+54 |
^DPT("SSN" | INCERX+56, INCERX+60 |
^PS(52.45 - [#52.45] | PRESOLV+4 |
^PS(52.46 - [#52.46] | PATC+5!, PATC+14!, PATC+20 |
^TMP($J | PARSE+2, PARSE+40, PARSE+41, OBS+2, PAT+5 |
Name | Line Occurrences |
---|---|
$$PARSE | INCERX+3 |
APUT | PARSE+18, PARSE+34 |
OBS | PARSE+54 |
PAT | PARSE+53 |
PATC | PAT+39, PAT+41 |
SPOP | PARSE+22, PARSE+38 |
SPUSH | PARSE+15, PARSE+19, PARSE+31, PARSE+35 |
SPUT | PARSE+21, PARSE+23, PARSE+37, PARSE+39 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
%XML | PARSE+1~ |
AL1 | PAT+1~, PAT+17*, PAT+26, PAT+31 |
AL2 | PAT+1~, PAT+18*, PAT+31 |
ATTR | PARSE+4~, PARSE+16*, PARSE+17, PARSE+32*, PARSE+33 |
BREAK | PARSE+10~, PARSE+11*, PARSE+26~, PARSE+27* |
C | PAT+1~, PATC+6*, PATC+7, PATC+8 |
CDONE | PAT+1~ |
CITY | PAT+1~, PAT+19*, PAT+31 |
COMARY | PATC+1~ |
COMARY( | PATC+9* |
COMQUAL | PAT+1~ |
COMVAL | PAT+1~ |
CQUAL | PAT+1~, PATC+1~, PATC+7*, PATC+9, PATC+11 |
CURREC | INCERX+1~, INCERX+3*, INCERX+4, INCERX+5, INCERX+7, INCERX+8*, INCERX+12, INCERX+14, INCERX+23, INCERX+25 , INCERX+26, INCERX+27, INCERX+30, INCERX+34, INCERX+37, INCERX+38, INCERX+40, INCERX+41, INCERX+45, INCERX+53 , INCERX+54, INCERX+59, INCERX+60, INCERX+64, INCERX+65, INCERX+67, INCERX+74, INCERX+78 |
CVAL | PAT+1~, PATC+1~, PATC+8*, PATC+9, PATC+10 |
DACHK | INCERX~ |
DACHK("IEN" | INCERX+20, INCERX+22, INCERX+26, INCERX+28 |
DACHK("error" | INCERX+32 |
DACHK("success" | INCERX+19, INCERX+31 |
DFN | INCERX+65~*, INCERX+66 |
DIGSIGVA | CSERX+3~, CSERX+4*, CSERX+5 |
DIM | OBS+1~, OBS+6* |
DIV | INCERX~, INCERX+2 |
DOB | PAT+1~, PAT+15*, PAT+16*, PAT+26, PAT+29 |
DUZ | INCERX+12 |
EDATE | CONVDTTM+1~, CONVDTTM+10*, CONVDTTM+14 |
EIEN | INCERX+1~, INCERX+7*, INCERX+33, INCERX+44, INCERX+73, INCERX+77 |
EIENS | OBS+1~, OBS+3*, OBS+5, OBS+6, OBS+7, OBS+8, OBS+9, OBS+10, OBS+11, OBS+13 , PAT+2~, PAT+4*, PAT+40, PAT+42 |
ERR | PARSE+45~ |
ERRSEQ | INCERX+1~, INCERX+33*, INCERX+34, INCERX+44*, INCERX+45, INCERX+73*, INCERX+74, INCERX+77*, INCERX+78 |
ERRTXT | INCERX+1~, INCERX+32*, INCERX+34, INCERX+43*, INCERX+45, INCERX+72*, INCERX+74, INCERX+76*, INCERX+78 |
ERXHID | INCERX~, PARSE+58 |
ERXIEN | OBS~, OBS+3, PAT~, PAT+4 |
ERXPAT | PAT+2~, PAT+26*, PAT+41, PAT+42 |
ERXVALS | INCERX~, INCERX+3, PARSE~, PARSE+54 |
ETIME | CONVDTTM+1~, CONVDTTM+6*, CONVDTTM+7*, CONVDTTM+8, CONVDTTM+9, CONVDTTM+10*, CONVDTTM+12, CONVDTTM+13*, CONVDTTM+15 |
ETZ | CONVDTTM+1~, CONVDTTM+12* |
F | OBS+1~, OBS+3*, OBS+5, OBS+6, OBS+7, OBS+8, OBS+9, OBS+10, OBS+11, PAT+2~ , PAT+3*, PAT+28, PAT+29, PAT+30, PAT+31, PAT+32, PAT+33 |
FDA | INCERX+1~, INCERX+12!, INCERX+14!, INCERX+17!, INCERX+61!, INCERX+69!, PARSE+48!, PARSE+52!, OBS+1~, OBS+12! , OBS+13!, PAT+2~, PAT+35!, PAT+40!, PAT+41!, PAT+42!, PATC+1~, PATC+12!, PATC+23!, PATC+27! , PATC+28! |
FDA( | INCERX+12*, INCERX+14*, INCERX+25*, INCERX+26*, INCERX+27*, INCERX+30*, INCERX+37*, INCERX+38*, INCERX+53*, INCERX+54* , INCERX+59*, INCERX+60*, INCERX+64, INCERX+65, PARSE+48*, PARSE+52*, OBS+5*, OBS+6*, OBS+7*, OBS+8* , OBS+9*, OBS+10*, OBS+11*, OBS+13*, PAT+28*, PAT+29*, PAT+30*, PAT+31*, PAT+32*, PAT+33* , PAT+40*, PAT+42*, PATC+10*, PATC+11*, PATC+23*, PATC+25*, PATC+26*, PATC+28* |
FN | PAT+1~, PAT+7*, PAT+10, PAT+28 |
GEN | PAT+1~, PAT+14*, PAT+26, PAT+29 |
GL | PARSE+1~, PARSE+2*, PARSE+3, OBS+1~, OBS+2*, OBS+4, OBS+6, OBS+7, OBS+8, OBS+9 , OBS+10, OBS+11, OBS+13, PAT+1~, PAT+5*, PAT+6, PAT+7, PAT+8, PAT+9, PAT+11 , PAT+12, PAT+13, PAT+14, PAT+15, PAT+17, PAT+18, PAT+19, PAT+20, PAT+21, PAT+25 , PATC+6, PATC+7, PATC+8, PATC+15, PATC+16, SPUT+3, APUT+3, CSERX+4 |
HUBDENY | PARSE+1~, PARSE+58*, PARSE+59 |
I | OBS+1~, OBS+4*, OBS+6, OBS+7, OBS+8, OBS+9, OBS+10, OBS+11, PAT+1~, SPUSH+1~* , SPUSH+2, SPOP+1~*, SPOP+2, SPOP+3, SPOP+4, SPEEK+1~*, SPEEK+2, SPEEK+3, SPUT+1~, SPUT+4* , SPUT+5, SPUT+7, APUT+1~, APUT+4*, APUT+5 |
IDARY | PATC+1~ |
IDARY( | PATC+18* |
IDDONE | PAT+1~ |
IDFND | PAT+2~, PATC+1~, PATC+19*, PATC+22*, PATC+24 |
IDNM | PAT+2~, PATC+1~, PATC+15*, PATC+16, PATC+17, PATC+18, PATC+21, PATC+25 |
IDVAL | PAT+2~, PATC+1~, PATC+16*, PATC+17, PATC+18, PATC+23, PATC+26 |
IEN | PATC~, PATC+2, PATC+3, PATC+5, PATC+14, PATC+20, PATC+21, PATC+23, PATC+25, PATC+26 |
IENS | PATC+1~, PATC+3*, PATC+10, PATC+11, PATC+28 |
J | SPOP+3~* |
LAST | OBS+1~ |
LN | PAT+1~, PAT+8*, PAT+10, PAT+28, APUT~, APUT+7 |
MATCH | PRESOLV+1~, PRESOLV+2*, PRESOLV+4*, PRESOLV+6 |
MDQUAL | OBS+1~, OBS+7* |
MN | PAT+1~, PAT+9*, PAT+10, PAT+28 |
MSOURCE | OBS+1~, OBS+8* |
MTYPE | PARSE+1~, PARSE+40*, PARSE+41, PARSE+46, PARSE+50, PARSE+53, PARSE+54, PARSE+55, PARSE+56, PARSE+57 , PARSE+59, OBS~, OBS+2, PAT~, PAT+5 |
MUNIT | OBS+1~, OBS+9* |
MVAL | OBS+1~, OBS+11* |
NERXIEN | PARSE+45~, PARSE+46*, PARSE+47, PARSE+48, PARSE+50, PARSE+51, PARSE+52, PARSE+53, PARSE+54, PARSE+55 , PARSE+56, PARSE+59, PARSE+61, PARSE+62 |
NEWPAT | PAT+2~ |
NEWPAT( | PAT+36 |
NEWPAT(0 | PAT+36 |
NEWVAL | INCERX+1~, INCERX+23, INCERX+41, INCERX+67 |
NEWVAL(1 | INCERX+22*, INCERX+40*, INCERX+66* |
NPI | INCERX+1~, INCERX+2*, INCERX+3, PARSE~, PARSE+41*, PARSE+42, PARSE+43 |
NPIEN | PAT+2~, PAT+36*, PAT+37, PAT+38*, PAT+39, PAT+40 |
NUM | SPUT+6~*, SPUT+7*, SPUT+8, APUT+6~*, APUT+7 |
OBSCNT | OBS+1~, OBS+4*, OBS+5* |
OBSDT | OBS+1~, OBS+10* |
OBSNOTE | OBS+1~, OBS+13* |
PACHK | INCERX~ |
PACHK("EandEerror" | INCERX+72 |
PACHK("ICN" | INCERX+47 |
PACHK("MVIerror" | INCERX+46, INCERX+76 |
PACHK("ssn" | INCERX+55, INCERX+56, INCERX+60 |
PACHK("success" | INCERX+70 |
PACNT | INCERX+1~, INCERX+49*, INCERX+50*, INCERX+52 |
PAICN | INCERX+1~, INCERX+47*, INCERX+48, INCERX+49, INCERX+54 |
PAIEN | INCERX+1~, INCERX+49*, INCERX+56* |
PARENT | PARSE+12~, PARSE+14*, PARSE+15, PARSE+28~, PARSE+30*, PARSE+31 |
PASCNT | INCERX+1~, INCERX+56*, INCERX+57*, INCERX+58 |
PATIEN | PARSE+45~, PARSE+51*, PARSE+52 |
PATSSN | PAT+2~, PAT+25*, PAT+26, PAT+30, PATC+1~, PATC+17*, PATC+28 |
PFN | PAT+2~, PAT+10*, PAT+26, PAT+28 |
PIENS | PAT+2~, PAT+26*, PAT+28, PAT+29, PAT+30, PAT+31, PAT+32, PAT+33, PAT+34 |
PLQUAL | PAT+1~ |
PRCHK | INCERX~ |
PRCHK("IEN" | INCERX+36, INCERX+38, INCERX+40 |
PRCHK("error" | INCERX+43 |
PRCHK("success" | INCERX+35, INCERX+42 |
PREF | PAT+1~, PAT+12*, PAT+28 |
PREL | PAT+2~, PAT+6*, PAT+30 |
PRELATE | PAT+1~, PAT+13* |
PUSHED | PARSE+12~, PARSE+15*, PARSE+19, PARSE+28~, PARSE+31*, PARSE+35 |
READER | PARSE+4~, PARSE+7 |
READER2 | PARSE+4~, PARSE+8 |
RES | INCERX~, INCERX+5*, INCERX+6*, INCERX+15*, INCERX+18*, INCERX+79* |
S | PARSE+4~, PARSE+15, PARSE+18, PARSE+19, PARSE+21, PARSE+22, PARSE+23, PARSE+26~, PARSE+31, PARSE+34 , PARSE+35, PARSE+37, PARSE+38, PARSE+39, SPUSH~, SPOP~, SPEEK~, SPUT~, APUT~ |
S( | SPUSH+1*, SPOP+2!, SPOP+3*, SPEEK+2, SPUT+4, SPUT+5, SPUT+7, APUT+4, APUT+5 |
S("" | SPUSH+1, SPOP+1, SPEEK+1 |
SIEN | PAT+2~, PAT+22*, PAT+32 |
SRCH | PAT+2~, PATC+1~, PATC+20*, PATC+21, PATC+23 |
STATE | PAT+1~, PAT+20*, PAT+22 |
STATION | INCERX~ |
STATUS | PARSE+4~, PARSE+7*, PARSE+9 |
STATUS2 | PARSE+4~, PARSE+8*, PARSE+24, PARSE+25 |
STR | SPUT+1~, SPUT+3*, SPUT+5*, SPUT+8*, SPUT+9*, SPUT+10, SPUT+11, SPUT+12, APUT+1~, APUT+3* , APUT+5*, APUT+7*, APUT+8*, APUT+9, APUT+10, APUT+11 |
STREAM | PARSE~, PARSE+5*, PARSE+7 |
STREAM2 | PARSE~, PARSE+6*, PARSE+8 |
SUFF | PAT+1~, PAT+11*, PAT+28 |
TYPE | PRESOLV~, PRESOLV+3, PRESOLV+4 |
U | INCERX+2, INCERX+4, INCERX+5, INCERX+11, INCERX+13, INCERX+14, INCERX+18, PARSE+47, PARSE+58 |
VADAT | INCERX~, INCERX+10, INCERX+11, INCERX+13, INCERX+14, INCERX+18 |
VADM | INCERX+65~ |
VADM(2 | INCERX+66 |
VADM(3 | INCERX+66 |
VAINST | INCERX+1~, PARSE+1~, PARSE+43*, PARSE+44, PARSE+48, PARSE+59 |
VAL | PRESOLV~, PRESOLV+3, PRESOLV+4, CONVDTTM~, CONVDTTM+2, CONVDTTM+3, CONVDTTM+4, CONVDTTM+5*, CONVDTTM+6, CONVDTTM+7 , CONVDTTM+8*, CONVDTTM+9*, CONVDTTM+10, CONVDTTM+15*, CONVDTTM+16 |
VAOI | INCERX+1~, INCERX+28*, INCERX+29 |
VPATINST | INCERX+1~, INCERX+29*, INCERX+30 |
X | PARSE+12~, PARSE+22, PARSE+28~, PARSE+38, SPUSH~, SPUSH+1, SPOP~, SPOP+2*, SPOP+3, SPEEK~ , SPEEK+2*, SPUT~, SPUT+2*, SPUT+10, SPUT+11, APUT~, APUT+2*, APUT+9, APUT+10, CONVDTTM+1~ , CONVDTTM+4*, CONVDTTM+14* |
XML | INCERX~, INCERX+3 |
XML2 | INCERX~, INCERX+3 |
XOBERR | PARSE+4~, PARSE+9 |
XOBERR2 | PARSE+4~, PARSE+25 |
Y | CONVDTTM+1~, CONVDTTM+5, CONVDTTM+8, CONVDTTM+9, CONVDTTM+14, CONVDTTM+15 |
ZIP | PAT+1~, PAT+21*, PAT+22, PAT+33 |