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 |
|---|---|
| % | CONVDTTM+1~ |
| %DT | CONVDTTM+1~ |
| %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 |