©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
PSSUTLA1 ;BHAM ISC/RTR-PSS utility routine ;08/21/00
Source file <PSSUTLA1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PRICE() | ;Return price per dose for CPRS Dose call
|
|
| OIDEA(PSSXOI,PSSXOIP) | ;
|
|
| HELP | ;
|
|
| LEAD | ;Leading zeros, CPRS Dosage call
|
|
| START | ;
|
|
| HELP1 | ;
|
|
| OIDQ | ;
|
|
| DUP | ;delete str/unit if duplicate local doses with strength are found
|
|
| EN3(PSSBINTR,PSSBLGTH) | ;
|
|
| ADD | ;
|
|
| LEADP | ;Leading zeros pharmacy call
|
|
| DEA(PSSDIENM) | ;Return DEA Special Handling for CPRS Dose Call
|
|
| DSET | ;
|
|
| PRICEQ | ;
|
|
| HELPADD | ;
|
| Name | Field # of Occurrence |
|---|---|
| EN^DDIOL | HELP1+8 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PS(50.7 - [#50.7] | EN3+5 |
| ^PS(51 - [#51] | EN3+8, HELP+5 |
| ^PSDRUG - [#50] | DEA+6, PRICE+5, OIDEA+10, OIDEA+11, OIDEA+12, OIDEA+14 |
| ^PSDRUG("ASP" | OIDEA+9 |
| Name | Line Occurrences |
|---|---|
| ADD | EN3+7 |
| DSET | DEA+7, DEA+8 |
| HELP1 | HELP+3 |
| HELPADD | HELP+4 |
| OIDQ | OIDEA+6, OIDEA+7 |
| PRICEQ | PRICE+6 |
| START | EN3+6 |
| Name | Field # of Occurrence |
|---|---|
| ^("I" | OIDEA+10 |
| ^(2 | OIDEA+12 |
| ^(9 | EN3+8, HELP+5 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| BLIM | EN3+3~, START+2, START+4* |
| BVAR | EN3+3~, START+1*, START+2*, START+4, START+5*, START+6 |
| BVAR1 | EN3+3~, START+1*, START+2, START+3*, START+5 |
| CNT | EN3+3~, START+2*, START+3 |
| CNTZ | EN3+3~, EN3+6*, START+8*, ADD+1, ADD+2* |
| >> DLOOP | PRICE+4, PRICE+5 |
| DT | OIDEA+10 |
| FFF | EN3+3~, START+2*, START+3 |
| III | EN3+3~, START+1*, START+2*, START+6 |
| NNN | EN3+3~, START+2* |
| PCT | HELP+2~, HELP1+2*, HELP1+3 |
| PISIG | EN3+3~ |
| PISIG( | START+2, START+3, ADD+1*, ADD+2* |
| PISIG(1 | EN3+6* |
| PNNN | HELP+2~, HELP1+2* |
| PSSBB | LEADP+1~, LEADP+5*, LEADP+6, LEADP+8*, LEADP+9, LEADP+14*, LEADP+15, LEADP+17*, LEADP+18 |
| PSSBB1 | LEADP+1~, LEADP+5*, LEADP+6, LEADP+8*, LEADP+9, LEADP+14*, LEADP+15, LEADP+17*, LEADP+18 |
| PSSBBD | LEADP+1~, LEADP+4*, LEADP+5, LEADP+7*, LEADP+8, LEADP+13*, LEADP+14, LEADP+16*, LEADP+17 |
| >> PSSBCM | PRICE+7 |
| PSSBINTR | EN3~, EN3+4, EN3+5 |
| PSSBK | LEAD+1~, LEAD+6*, LEAD+7, LEAD+10*, LEAD+11, LEAD+17*, LEAD+18, LEAD+21*, LEAD+22 |
| PSSBK1 | LEAD+1~, LEAD+6*, LEAD+7, LEAD+10*, LEAD+11, LEAD+17*, LEAD+18, LEAD+21*, LEAD+22 |
| PSSBKD | LEAD+1~, LEAD+5*, LEAD+6, LEAD+9*, LEAD+10, LEAD+16*, LEAD+17, LEAD+20*, LEAD+21 |
| PSSBLGTH | EN3~, EN3+4, START+2 |
| PSSBLIM | HELP+2~, HELP1+2, HELP1+4* |
| PSSBSIG | EN3+3!, START+9! |
| PSSBSIG( | START+2*, START+6*, START+8 |
| PSSBSIG(1 | START+7* |
| PSSBSIG(2 | START+7! |
| PSSBVAR | HELP+2~, HELP1+1*, HELP1+2*, HELP1+4, HELP1+5*, HELP1+6 |
| PSSBVAR1 | HELP+2~, HELP1+1*, HELP1+2, HELP1+3*, HELP1+5 |
| PSSCTX | HELP+2~, HELP+3*, HELPADD+1, HELPADD+2* |
| PSSDEAX | DEA+5~, DEA+6*, DEA+7, DEA+8 |
| PSSDEAXV | DEA+5~, DEA+7*, DEA+8*, DEA+9*, DSET+1 |
| PSSDIENM | DEA~, DEA+4, DEA+6, DSET+1 |
| PSSFFF | HELP+2~, HELP1+2*, HELP1+3 |
| >> PSSHLF( | DSET+1 |
| PSSIG | HELP+2~ |
| PSSIG( | HELP1+2, HELP1+3, HELPADD+1*, HELPADD+2* |
| PSSIG(1 | HELP+3* |
| PSSIII | HELP+2~, HELP1+1*, HELP1+2*, HELP1+6 |
| >> PSSLD | LEAD+2*, LEAD+3, LEAD+4, LEAD+5, LEAD+7, LEAD+8, LEAD+9, LEAD+11, LEAD+12, LEAD+13 , LEAD+14, LEAD+15, LEAD+16, LEAD+18, LEAD+19, LEAD+20, LEAD+22, LEAD+23*, LEAD+24 |
| >> PSSLD1 | LEAD+13*, LEAD+14, LEAD+15, LEAD+16, LEAD+18, LEAD+19, LEAD+20, LEAD+22 |
| PSSLPX | HELP+2~, HELP1+8* |
| PSSLXA | DUP+1~ |
| PSSLXA( | DUP+7*, DUP+8 |
| PSSLXFL | DUP+1~, DUP+2*, DUP+3, DUP+8*, DUP+9 |
| PSSLXL | DUP+1~, DUP+3*, DUP+4 |
| PSSLXLD | DUP+1~, DUP+5*, DUP+6, DUP+7, DUP+8 |
| PSSLXMED | DUP+1~, DUP+5*, DUP+6, DUP+7, DUP+8 |
| PSSLXND | DUP+1~, DUP+4*, DUP+5 |
| PSSLXQ | DUP+1~, DUP+9* |
| PSSLXSTR | DUP+1~, DUP+4*, DUP+5*, DUP+6, DUP+7, DUP+8 |
| PSSLXX | DUP+1~, DUP+8* |
| >> PSSMD | LEADP+2*, LEADP+3, LEADP+4, LEADP+6, LEADP+7, LEADP+9, LEADP+10, LEADP+11, LEADP+12, LEADP+13 , LEADP+15, LEADP+16, LEADP+18, LEADP+19*, LEADP+20 |
| >> PSSMD1 | LEADP+11*, LEADP+12, LEADP+13, LEADP+15, LEADP+16, LEADP+18 |
| >> PSSMDN | LEADP+3*, LEADP+12* |
| PSSPKLX | OIDEA+5~, OIDEA+8*, OIDEA+11, OIDEA+12 |
| PSSPRICE | PRICE+3~, PRICE+5*, PRICE+6, PRICE+7 |
| PSSPRQ | PRICE+3~, PRICE+6*, PRICE+7*, PRICEQ+1*, PRICEQ+2 |
| PSSSIG | HELP+2~ |
| PSSSIG( | HELP1+2*, HELP1+6*, HELP1+8 |
| PSSSIG(1 | HELP1+7* |
| PSSSIG(2 | HELP1+7! |
| >> PSSUDOS | PRICE+6 |
| >> PSSX( | LEAD+2, LEAD+3*, LEAD+4*, LEAD+5, LEAD+7*, LEAD+8*, LEAD+9, LEAD+11*, LEAD+12, LEAD+13 , LEAD+14*, LEAD+15*, LEAD+16, LEAD+18*, LEAD+19*, LEAD+20, LEAD+22*, LEADP+2, LEADP+3*, LEADP+4 , LEADP+6*, LEADP+7, LEADP+9*, LEADP+10, LEADP+11, LEADP+12*, LEADP+13, LEADP+15*, LEADP+16, LEADP+18* , DUP+3, DUP+4 |
| >> PSSX("DD" | DSET+1*, LEAD+23, LEAD+24*, LEADP+19, LEADP+20*, DUP+5, DUP+9* |
| >> PSSX("PI" | START+8* |
| PSSXNODD | OIDEA+5~, OIDEA+6*, OIDEA+13*, OIDQ+1 |
| PSSXOI | OIDEA~, OIDEA+7, OIDEA+9 |
| PSSXOIP | OIDEA~, OIDEA+6, OIDEA+7, OIDEA+8 |
| PSSXOLP | OIDEA+5~, OIDEA+9*, OIDEA+10, OIDEA+11, OIDEA+12, OIDEA+14 |
| PSSXOLPD | OIDEA+5~, OIDEA+6*, OIDEA+9, OIDEA+15*, OIDEA+16*, OIDQ+1*, OIDQ+2 |
| PSSXOLPX | OIDEA+5~, OIDEA+14*, OIDEA+15, OIDEA+16 |
| PSSYX | HELP+2~, HELP+5* |
| PSSZ0 | HELP+2~, HELP+3*, HELP+5 |
| PSSZ1 | HELP+2~, HELP+3*, HELP+4, HELP+5*, HELPADD+1, HELPADD+2 |
| X | EN3+3~, EN3+5*, EN3+6, EN3+7, EN3+8, HELP+1, HELP+3, HELP+4, HELP+5 |
| Y | EN3+3~, EN3+8* |
| Z0 | EN3+3~, EN3+6*, EN3+8 |
| Z1 | EN3+3~, EN3+6*, EN3+7, EN3+8*, ADD+1, ADD+2 |