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+4* |
PSOBUILD("RX" | BUILD+1*, GET+1, GET+2, GET+3, GET+4, GET+8, GET+13, GET+15, GET+16, BARC , BARC+4, BARC+5, 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, EOJ! |
PSODTCUT | INIT+1, INIT+5*, BUILD+1, INPAT+2*, INPAT+3! |
PSODYS | GET+5*, BARC+4, BARC+5, 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+4, BARC+5, 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+4, BARC+5, 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* |
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, STAT+1*, STAT+2, FSTA , FSTA+1, EOJ! |
PSOSTA | INPAT+3! |
PSOSTF | GET+2*, GT1+1*, GT1+5*, GT1+10*, BARC+1*, BARC+4, BARC+5, EOJ! |
PSOSTN | GET+2*, GT1+1*, GT1+3*, GT1+5*, GT1+6*, GT1+7*, GT1+8*, GT1+9*, GT1+11*, GT1+12* , BARC+4, BARC+5, EOJ! |
PSOVACL | GET+5*, BARC+4, BARC+5, 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! |