PSOBUILD ;IHS/DSD/JCM - BUILD ARRAY OF PATIENTS CURRENT MEDS [ 07/15/96 5:25 PM ] ;6/21/07 8:20am
Source file <PSOBUILD.m>
| Package | Total | Call Graph |
|---|---|---|
| Outpatient Pharmacy | 3 | ^PSODSPL EN^PSOHLSN1 ECAN^PSOUTL |
| VA FileMan | 3 | C^%DTC ^DIE $$GET1^DIQ |
| List Manager | 1 | FULL^VALM1 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| START | ||
| END | ||
| NVANEW | ;New Complex NVA order multiple file format logic
|
|
| NVAOLD | ;NVA Backwards compatible for old NON-VA file DD, pre-complex order SIG multiple file setup
; (after 441. By attrition, all records will eventually have the new complex order mult. file format) |
|
| INIT | ;
|
|
| INITX | ||
| BUILD | ;build profiles
|
|
| BUILDX | ||
| GET | ;data for profiles
|
|
| GT1 | ||
| BARC | ||
| GETX | ||
| STAT | ||
| FSTA | ||
| EOJ | ||
| INPAT(PSODFN) | ;entry point for inpat meds to view patient's outpat. meds
|
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PS(50.606 - [#50.606] | START+10, NVANEW+10, NVAOLD+3 |
| ^PS(50.7 - [#50.7] | START+10, NVANEW+10, NVAOLD+3 |
| ^PS(52.41 - [#52.41] | START+5, START+8*, START+12 |
| ^PS(52.5 - [#52.5] | GET+13, GET+15!, GET+16, STAT, STAT+1 |
| ^PS(53 - [#53] | INIT+2, INIT+3, GT1+7 |
| ^PS(55 - [#55] | START+16, START+17, NVANEW+2, BUILD+1 |
| ^PSDRUG - [#50] | START+7, START+10, START+12, NVANEW+10, NVANEW+12, NVANEW+13, NVAOLD+3, NVAOLD+5, NVAOLD+6, GET+5 , GT1+1, GT1+2, GT1+3, GT1+4 |
| ^PSDRUG("ASP" | START+7 |
| ^PSRX - [#52] | BUILD+1, GET+1, GET+2, GET+3, GET+4, BARC, BARC+2 |
| ^TMP("PS" | START+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CLOZPT | GT1+4*, GT1+5, GT1+6! |
| COMM | GET+10*! |
| COMPLEX | START+15~ |
| CONJ | START+15~, NVANEW+8*, NVANEW+12 |
| DA | GET+8~*, GET+9!, FSTA+1~*! |
| DD | START+15~, NVANEW+2*, NVANEW+3, NVANEW+11 |
| DDH | INPAT+3! |
| DDX | START+15~, NVANEW+3*, NVANEW+4, NVANEW+5, NVANEW+6, NVANEW+7, NVANEW+8 |
| DIC | GET+8~! |
| DIE | GET+8~*!, FSTA+1~*! |
| DOSE | START+15~, NVANEW+4*, NVANEW+12 |
| DR | GET+8~*!, FSTA+1~*! |
| DRG | START+3*, START+4, START+10*, START+11*, START+12, START+13, NVANEW+10*, NVANEW+11*, NVANEW+12, NVANEW+13 , NVAOLD+3*, NVAOLD+4*, NVAOLD+5, NVAOLD+6, EOJ!, INPAT+3! |
| DT | START, START+7, INIT+5, GET+7, GET+11, GT1+1, INPAT+2 |
| DURA | START+15~, NVANEW+7*, NVANEW+12 |
| >> I | START+3* |
| INPAT | INPAT+2*, INPAT+3! |
| MEDR | START+15~, NVANEW+6* |
| >> NOEXP | GT1 |
| NON | START+16*, NVANEW+9, NVANEW+12, NVAOLD+2, NVAOLD+5, NVAOLD+6, EOJ! |
| NVA | START+16*, START+17, NVANEW+2, NVANEW+3, NVANEW+11, NVANEW+12, NVAOLD+4, NVAOLD+5, EOJ! |
| ORD | START~, START+5*, START+13, EOJ! |
| PEN | START+5*, START+8, START+11, START+12, START+13, EOJ! |
| PHARMST | GET+10*! |
| PSCNT | INPAT+3! |
| PSOBEXDA | GET+8~*, GET+10! |
| PSOBUILD | EOJ! |
| PSOBUILD("COUNT" | INIT+1*, BUILDX, BARC+3*, BARC+5* |
| PSOBUILD("RX" | BUILD+1*, GET+1, GET+2, GET+3, GET+4, GET+8, GET+13, GET+15, GET+16, BARC , BARC+5, BARC+6, STAT, FSTA+1 |
| PSOCT | INPAT+3! |
| PSODD | START+5*, START+6, START+8*, START+10, START+12, START+13!, NVANEW+9*, NVANEW+10, NVANEW+12, NVANEW+13 , NVAOLD+2*, NVAOLD+3, NVAOLD+6, INPAT+3! |
| PSODFN | START, START+5, START+16, START+17, NVANEW+2, NVANEW+3, BUILD+1, INPAT~, INPAT+3! |
| PSODRG | GET+5*, GT1+1, GT1+2, GT1+3, GT1+4, EOJ! |
| PSODRUG0 | GET+5*, GT1+5, GT1+6, BARC+2, EOJ! |
| PSODRUGN | BARC+2*, BARC+3, BARC+4, BARC+5, BARC+6, EOJ! |
| PSODTCUT | INIT+1, INIT+5*, BUILD+1, INPAT+2*, INPAT+3! |
| PSODYS | GET+5*, BARC+5, BARC+6, EOJ! |
| PSOEXPDT | BUILD+1*, GET+7, GET+10, GET+11, EOJ! |
| PSOJ | BARC*, EOJ! |
| PSOLC | GT1+9*, EOJ! |
| PSOMED | INIT+1! |
| PSONDF | GT1+2*, BARC+5, BARC+6, EOJ! |
| PSOOI | START+5*, START+6, START+7, START+10, START+13!, NVANEW+9*, NVANEW+10, NVAOLD+2*, NVAOLD+3, INPAT+3! |
| PSOPAR | GT1+1, INPAT+3! |
| PSOQFLG | START+1, INIT+1*, INIT+2*, INIT+3*, EOJ! |
| PSORFRM | BARC*, BARC+1*, BARC+5, BARC+6, EOJ! |
| >> PSORX("BAR CO | DE" , GT1+11 |
| PSORX0 | GET+2*, GET+5, GET+7, GET+8*, GT1+7, GT1+9, BARC, BARC+2, FSTA*, EOJ! |
| PSORX2 | GET+3*, GET+4, EOJ! |
| PSORX3 | GET+4*, EOJ! |
| PSOSD | START!, START+13*, NVANEW+14*, NVAOLD+7*, INIT+1!, BUILDX*, INPAT+3! |
| PSOSD( | START+3*!, START+4*, BARC+2, BARC+3, BARC+4, BARC+5*, BARC+6* |
| PSOSD("PENDING" | START+11, START+12*, START+13* |
| PSOSD("ZNONVA" | NVANEW+11, NVANEW+12*, NVANEW+13*, NVAOLD+4, NVAOLD+5*, NVAOLD+6* |
| PSOST0 | GET+2*, GET+3, GET+7, GET+8*, GET+11*, GET+12, GET+14*, GET+16*, GET+17, GT1 , GT1+8, GT1+10, GT1+11, GT1+12, BARC+2, BARC+4, BARC+5, BARC+6, STAT+1*, STAT+2 , FSTA, FSTA+1, EOJ! |
| PSOSTA | INPAT+3! |
| PSOSTF | GET+2*, GT1+1*, GT1+5*, GT1+10*, BARC+1*, BARC+5, BARC+6, EOJ! |
| PSOSTN | GET+2*, GT1+1*, GT1+3*, GT1+5*, GT1+6*, GT1+7*, GT1+8*, GT1+9*, GT1+11*, GT1+12* , BARC+5, BARC+6, EOJ! |
| PSOVACL | GET+5*, BARC+5, BARC+6, EOJ! |
| PSOX | INIT+3*, INITX!, EOJ! |
| SCHD | START+15~, NVANEW+5*, NVANEW+12 |
| >> STA | START+2*, START+3, START+4 |
| STAT | GET+10*! |
| STP | INPAT+3! |
| STR | INPAT+3! |
| U | NVAOLD+4, INIT+1* |
| X | INIT+5, INITX!, STAT~*, STAT+1, INPAT+2 |
| X1 | INIT+5*, INITX!, INPAT+2* |
| X2 | INIT+5*, INITX!, INPAT+2* |
| ZPSDC | START+6~*, START+7*, START+8, START+9! |
| ZPSDC( | START+7* |
| ZPSDC(1 | START+8 |
| ZPSI | START+6~*, START+7*, START+9! |