PSOORRL ;BHAM ISC/SAB - returns patient's outpatient meds ;Dec 10, 2021@09:32:05
Source file <PSOORRL.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
OCL(DFN,BDT,EDT,VIEW,PSOBDTIN,PSOEDTIN) | ;entry point to return condensed list
; DFN - Pointer to Patient file (#2) ; BDT - Beginning Date for Outpatient & Non-VA Meds ; EDT - Ending Date for Outpatient & Non-VA Meds ; VIEW=0 - This returns the list as it was returned prior to GUI 27 ; VIEW=1 - This returns the list in original view GUI 27 ; VIEW=2 - This is the new sort with GUI 27 ; VIEW=3 - New sort by Sort by Drug Name/status with GUI 27 ; PSOBDTIN - Beginning Date for Inpatient Meds (Optional) ; PSOEDTIN - End Date for Inpatient Meds (Optional) |
|
ST | ||
OEL(DFN,RXNUM) | ;returns expanded list on specific order
|
|
WAIT | ; IF PENDING ENTRY STILL BEING BUILT SEE IF IT COMPLETES WITHIN ANOTHER SECOND
|
|
NVA | ; Set Non-VA Med Orders in the ^TMP Global
|
|
TMPBLD | ||
RSTC(REF) | ; return to stock
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^PS(50.606 - [#50.606] | ST+31, NVA+10 |
^PS(50.7 - [#50.7] | ST+31, NVA+10 |
^PS(51.2 - [#51.2] | ST+17, ST+18, ST+19 |
^PS(52.41 - [#52.41] | ST+27, ST+34, ST+35, ST+36, ST+38, WAIT+1 |
^PS(55 - [#55] | ST+1, ST+4, OEL+2, NVA+6, NVA+8, TMPBLD+4 |
^PSDRUG - [#50] | ST+8, ST+31, OEL+22, OEL+29, OEL+30, NVA+10 |
^PSRX - [#52] | ST+4, ST+5, ST+6, ST+7, ST+8, ST+12, ST+15, ST+16, ST+17, ST+18 , ST+19, ST+21, ST+23, ST+24, ST+25, OEL+9, OEL+10, OEL+12, OEL+14, OEL+15 , OEL+16, OEL+19, OEL+20, OEL+26, OEL+27, OEL+32, OEL+35, OEL+37, OEL+38, OEL+41 , OEL+42, RSTC+1 |
^TMP("PS" | ST+2!, ST+8*, ST+9*, ST+13*, ST+14*, ST+15*, ST+16*, ST+18*, ST+19*, ST+20* , ST+23*, ST+24*, ST+25*, ST+31*, ST+32*, ST+33*, ST+34*, ST+35*, ST+36*, ST+37* , ST+38*, OEL+5!, OEL+11*, OEL+12*, OEL+15*, OEL+16*, OEL+17*, OEL+20*, OEL+21*, OEL+22* , OEL+23*, OEL+27*, OEL+28*, OEL+30*, OEL+31*, OEL+32*, OEL+33*, OEL+37*, OEL+38*, OEL+40* , OEL+41*, OEL+42*, TMPBLD*, TMPBLD+1*, TMPBLD+2*, TMPBLD+3*, TMPBLD+4*, RSTC+2*, RSTC+3* |
^VA(200 - [#200] | ST+9, OEL+23 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
BDT | OCL~, OCL+13, ST+2, ST+42!, NVA+3, NVA+14, NVA+16, NVA+19, NVA+26 |
>> BDT1 | NVA+19*, NVA+20, NVA+22, NVA+26*, NVA+27, NVA+29 |
COD | OEL+29*, OEL+30! |
DBT1 | ST+42! |
DFN | OCL~, ST+1, ST+4, ST+27, ST+40, OEL~, OEL+1, OEL+2, NVA+6, NVA+8 , TMPBLD+4 |
>> DRG | NVA+10*, TMPBLD |
DT | ST+2, ST+10, OEL+24, OEL+29, NVA+4, NVA+5 |
EDT | OCL~, OCL+14, ST+2, ST+42!, NVA+3, NVA+15, NVA+19, NVA+26 |
EDT1 | ST+42!, NVA+19*, NVA+21, NVA+26*, NVA+28 |
>> EXDT | ST+3*, ST+4* |
>> FL | OEL+5*, OEL+6, OEL+7, OEL+8 |
>> I | ST+7*, ST+24*, OEL+14*, OEL+15, OEL+16, OEL+18, OEL+19*, OEL+20, OEL+38*, OEL+41* , NVA+6*, NVA+8, TMPBLD, TMPBLD+4 |
>> IEN | ST+36*, ST+37* |
IFN | ST+3*, ST+4*, ST+5, ST+6, ST+7, ST+8, ST+12, ST+15, ST+16, ST+17 , ST+18, ST+19, ST+21, ST+23, ST+24, ST+25, ST+27*, ST+31, ST+34, ST+35 , ST+36, ST+38, OEL+5!*, OEL+9, OEL+10, OEL+12, OEL+14, OEL+15, OEL+16, OEL+19 , OEL+20, OEL+26, OEL+27, OEL+32, OEL+35, OEL+37, OEL+38, OEL+41, OEL+42, WAIT+1 , RSTC+1, RSTC+2, RSTC+3 |
>> II | RSTC+1*, RSTC+2, RSTC+3 |
INST | ST+36*, OEL+5! |
INST( | ST+36* |
>> ITFN | ST+22*, ST+23, ST+24*, OEL+36*, OEL+37, OEL+38*, OEL+40*, OEL+41* |
>> J | RSTC+1* |
>> LSTDS | ST+6*, ST+7*, ST+13 |
>> LSTFD | ST+6*, ST+7*, ST+13, OEL+10*, OEL+14*, OEL+27 |
>> LSTRD | ST+6*, ST+7*, ST+13 |
>> MDR | ST+16*, ST+17*, ST+18, ST+19 |
>> MIG | ST+36*, ST+37 |
>> MR | ST+16*, ST+17, ST+18, ST+19 |
>> PSBDT | ST+2*, ST+3, NVA+4, NVA+9 |
>> PSEDT | ST+2*, NVA+9 |
PSOACT | NVA+2~ |
PSOBDT | NVA+2~, NVA+3*, NVA+4*, NVA+5 |
PSOBDTIN | OCL~, OCL+12, OCL+13*, ST+40 |
PSODC | NVA+2~ |
PSODCDT | NVA+2~ |
PSOEDT | NVA+2~, NVA+3*, NVA+4*, NVA+5* |
PSOEDTIN | OCL~, OCL+12, OCL+14*, ST+40 |
PSOELSE | ST+21*, ST+22, ST+26!, OEL+35*, OEL+36, OEL+39! |
>> PSOR | ST+27*, ST+28, ST+29, ST+30, ST+31, ST+32, ST+33, WAIT+1* |
REF | RSTC~, RSTC+1, RSTC+2, RSTC+3 |
>> RX0 | ST+6*, ST+8, ST+9, ST+13, OEL+10*, OEL+11, OEL+22, OEL+23, OEL+27, OEL+28 , OEL+29, OEL+30 |
>> RX2 | ST+6*, ST+8, ST+10, OEL+10*, OEL+11, OEL+12, OEL+22, OEL+24 |
>> RX3 | ST+6*, OEL+10*, OEL+11 |
RXNUM | OEL~, OEL+1, OEL+2, OEL+5* |
>> SC | ST+15*, OEL+31*, OEL+32* |
>> SCH | ST+15*, ST+34*, ST+35*, OEL+31*, OEL+32* |
SD | ST~, ST+34*, ST+35*, ST+36*, ST+37*, OEL+4~ |
SDT | ST~, ST+42!, NVA+2~, NVA+11*, NVA+12, NVA+14, NVA+15, NVA+18, NVA+19, NVA+24 , NVA+26 |
SDT1 | ST~, ST+42!, NVA+2~, NVA+19*, NVA+20, NVA+21, NVA+26*, NVA+27, NVA+28 |
>> SG | ST+37* |
>> ST | ST+11*, ST+12*, ST+13, OEL+25*, OEL+26*, OEL+27 |
>> ST0 | ST+10*, ST+11, OEL+24*, OEL+25 |
>> STA | ST+6*, ST+10, ST+12, OEL+10*, OEL+24, OEL+26 |
>> TFN | ST+2*, ST+6*, ST+8, ST+9, ST+13, ST+14, ST+15, ST+16, ST+18, ST+19 , ST+20, ST+23, ST+24, ST+25, ST+31*, ST+32, ST+33, ST+34, ST+35, ST+36 , ST+37, ST+38, ST+40, TMPBLD*, TMPBLD+1, TMPBLD+2, TMPBLD+3, TMPBLD+4 |
>> TRM | ST+6*, ST+7*, ST+8, OEL+10*, OEL+14*, OEL+27 |
U | ST+25, ST+38, OEL+42, TMPBLD+4 |
VIEW | OCL~, OCL+16, ST+40 |
X | ST+2, ST+21*, ST+42!, OEL+35*, NVA+6*, NVA+7, NVA+9, NVA+10, NVA+11, NVA+16 , NVA+22, NVA+24, NVA+29, TMPBLD+1, TMPBLD+2, TMPBLD+3 |
>> X1 | ST+2* |
>> X2 | ST+2* |