PSSMRTUP ;BIR/RTR-Process Standard Medication Route File Updates ;03/02/09
Source file <PSSMRTUP.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
STCH | ;Status changes
|
|
REMAP | ;Attempt to remap any unmapped local medication routes
|
|
EN | ;
|
|
INCT | ;Check Inactivation global
|
|
SETPS | ||
SETNW(PSSMRPQX,PSSMRPQZ) | ;
|
|
STAT(PSSMRPEN) | ;Return status of entry, assuming .01 and File 51.23
|
|
UN | ;Unlock Med Route
|
|
OLDNM | ;
|
|
SET | ;Set Data, leaving USER as null, so the installer is not recorded as the user
|
|
;
|
||
FINAL | ;
|
|
LOCALS | ;
|
|
NWRT | ;New Medication Routes
|
Name | Field # of Occurrence |
---|---|
NOW^%DTC | SETPS+4, SETNW+5 |
UPDATE^DIE | SETPS+8, SETNW+9 |
ATTN^PSSMRTUX | FINAL+18 |
CHL^PSSMRTUX | FINAL+51 |
INACZ^PSSMRTUX | EN+8 |
ZERO^PSSMRTUX | FINAL+37 |
$$UP^XLFSTR | REMAP+10 |
^XMD | MAIL+7 |
$$GETSTAT^XTID | STAT+1 |
$$SCREEN^XTID | STCH+14, STCH+26, REMAP+11, REMAP+12, REMAP+14, REMAP+15, REMAP+16, REMAP+18, REMAP+19, REMAP+20 , INCT+8 |
$$RPLCMNT^XTIDTRM | STCH+9 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^PS(51.2 - [#51.2] | REMAP+2, REMAP+3, REMAP+4, REMAP+6, REMAP+8, REMAP+9, REMAP+10, UN+2, SETPS+2, SETPS+3* , SETNW+4*, INCT+2, FINAL+13, FINAL+29, FINAL+49, FINAL+66, OLDNM+1 |
^PS(51.23 - [#51.23] | NWRT+5, STCH+15, STCH+16, STCH+18, STCH+19, STCH+27, STCH+28, REMAP+11, REMAP+12, REMAP+14 , REMAP+15, REMAP+17, REMAP+18, REMAP+19, REMAP+20, SET+1, SET+2, INCT+5, INCT+7, INCT+10 , OLDNM+1 |
^TMP("XUMF EVENT" | EN+1, NWRT+4, STCH+5, STCH+6 |
^TMP($J | EN+3!, EN+10!, MAIL+2, NWRT+2*, NWRT+3*, NWRT+7*, NWRT+8*, NWRT+9*, NWRT+10*, STCH+9* , STCH+10*, STCH+11*, STCH+13, STCH+14!, STCH+15*, STCH+16*, STCH+17, STCH+18*, STCH+19*, STCH+20* , STCH+21*, STCH+23*, STCH+24*, STCH+25, STCH+26!, STCH+27*, STCH+28*, STCH+29*, STCH+30*, REMAP+8 , SET+1*, SET+2*, INCT+3, INCT+6, INCT+12*, FINAL+4*, FINAL+5*, FINAL+6*, FINAL+7, FINAL+8 , FINAL+10, FINAL+13*, FINAL+14*, FINAL+15*, FINAL+16*, FINAL+17*, FINAL+19*, FINAL+20*, FINAL+21*, FINAL+23 , FINAL+24, FINAL+26, FINAL+29*, FINAL+30*, FINAL+31*, FINAL+32*, FINAL+33*, FINAL+39*, FINAL+40*, FINAL+41* , FINAL+42*, FINAL+43, FINAL+44, FINAL+46, FINAL+49*, FINAL+50*, FINAL+52*, FINAL+53*, FINAL+55*, FINAL+56* , FINAL+57*, FINAL+58*, FINAL+60, FINAL+61, FINAL+63, FINAL+66*, FINAL+67*, FINAL+68*, FINAL+69*, OLDNM+1* |
Name | Line Occurrences |
---|---|
$$STAT | NWRT+6 |
FINAL | REMAP+22 |
INCT | REMAP+8 |
LOCALS | EN+9 |
EN+10 | |
NWRT | EN+6 |
OLDNM | SET+1, SET+2 |
REMAP | LOCALS+5 |
SET | REMAP+11, REMAP+13, REMAP+14, REMAP+15, REMAP+16, REMAP+18, REMAP+19, REMAP+20 |
SETNW | INCT+11 |
SETPS | SET+1 |
STCH | EN+7 |
UN | REMAP+8, REMAP+9, REMAP+11, REMAP+13, REMAP+14, REMAP+15, REMAP+16, REMAP+18, REMAP+19, REMAP+20 , REMAP+21 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | SETPS+1~, SETPS+4, SETNW+2~, SETNW+5 |
%H | SETPS+1~, SETNW+2~ |
%I | SETPS+1~, SETNW+2~ |
DIFROM | MAIL+7~ |
>> DILOCKTM | REMAP+6 |
PSSHASHO | SETPS+1~, SETPS+2!*, SETPS+6 |
PSSHASHP | SETPS+1~, SETPS+2! |
PSSHASHP( | SETPS+4*, SETPS+5*, SETPS+6*, SETPS+7* |
PSSHASHZ | SETPS+1~, SETPS+2! |
PSSMRPBB | STCH+3~, STCH+6*, STCH+7, STCH+8, STCH+9 |
PSSMRPCT | EN+4~, EN+5*, NWRT+2*, NWRT+3*, NWRT+7*, NWRT+8*, NWRT+9*, NWRT+10*, STCH+10*, STCH+11* , STCH+15*, STCH+16*, STCH+18*, STCH+19*, STCH+20*, STCH+21*, STCH+23*, STCH+24*, STCH+27*, STCH+28* , STCH+29*, STCH+30*, FINAL+4*, FINAL+5*, FINAL+6*, FINAL+13*, FINAL+14*, FINAL+15*, FINAL+16*, FINAL+17* , FINAL+19*, FINAL+20*, FINAL+21*, FINAL+29*, FINAL+30*, FINAL+31*, FINAL+32*, FINAL+33*, FINAL+39*, FINAL+40* , FINAL+41*, FINAL+42*, FINAL+49*, FINAL+50*, FINAL+52*, FINAL+53*, FINAL+55*, FINAL+56*, FINAL+57*, FINAL+58* , FINAL+66*, FINAL+67*, FINAL+68*, FINAL+69 |
PSSMRPDD | STCH+3~, STCH+17*, STCH+18, STCH+19 |
PSSMRPEE | STCH+3~, STCH+25*, STCH+26, STCH+27, STCH+28 |
PSSMRPEN | STAT~, STAT+1 |
PSSMRPFF | STCH+3~, STCH+4*, STCH+15*, STCH+20 |
PSSMRPGG | STCH+3~, STCH+22*, STCH+27*, STCH+29 |
PSSMRPJ6 | INCT+1~, INCT+2*, INCT+3, INCT+5, INCT+6, INCT+11 |
PSSMRPJ7 | INCT+1~, INCT+6*, INCT+7 |
PSSMRPJ8 | INCT+1~, INCT+7*, INCT+8*, INCT+10, INCT+11, INCT+12 |
PSSMRPL | NWRT+1~, NWRT+4*, NWRT+5, NWRT+6 |
PSSMRPL1 | NWRT+1~*, NWRT+6*, NWRT+9 |
PSSMRPLL | STCH+3~, STCH+5*, STCH+6, STCH+9, STCH+12!, STCH+13*, STCH+14, STCH+15, STCH+16, STCH+17 |
PSSMRPLN | NWRT+1~, NWRT+5*, NWRT+7, NWRT+8 |
PSSMRPNW | INCT+1~, INCT+10*, INCT+12 |
PSSMRPOL | INCT+1~, INCT+5*, INCT+12 |
PSSMRPP1 | FINAL+2~, FINAL+7*, FINAL+8, FINAL+10, FINAL+13, FINAL+22*, FINAL+23*, FINAL+24, FINAL+26, FINAL+29 , FINAL+37!, FINAL+43*, FINAL+44, FINAL+46, FINAL+49, FINAL+59*, FINAL+60*, FINAL+61, FINAL+63, FINAL+66 |
PSSMRPP2 | FINAL+2~, FINAL+10*, FINAL+11, FINAL+12, FINAL+26*, FINAL+27, FINAL+28, FINAL+37!, FINAL+46*, FINAL+47 , FINAL+48, FINAL+63*, FINAL+64, FINAL+65 |
PSSMRPP3 | FINAL+2~, FINAL+11*, FINAL+14, FINAL+27*, FINAL+30, FINAL+37!, FINAL+47*, FINAL+50, FINAL+64*, FINAL+67 |
PSSMRPP4 | FINAL+2~, FINAL+12*, FINAL+15, FINAL+28*, FINAL+31, FINAL+37!, FINAL+48*, FINAL+65*, FINAL+68 |
PSSMRPP5 | FINAL+2~, FINAL+3*, FINAL+9*, FINAL+16, FINAL+18*, FINAL+25*, FINAL+32, FINAL+37!, FINAL+38*, FINAL+45* , FINAL+52, FINAL+54*, FINAL+62*, FINAL+69 |
PSSMRPQA | SETNW+2~, SETNW+3! |
PSSMRPQA( | SETNW+5*, SETNW+6*, SETNW+7*, SETNW+8* |
PSSMRPQB | SETNW+2~, SETNW+3! |
PSSMRPQX | SETNW~, SETNW+7 |
PSSMRPQZ | SETNW~, SETNW+4, SETNW+8 |
PSSMRPST | NWRT+1~, NWRT+6*, NWRT+7 |
PSSMRPXX | STCH+3~, STCH+14* |
PSSMRPZA | STCH+3~, STCH+9* |
PSSMRPZB | STCH+3~, STCH+9* |
PSSMRPZZ | STCH+3~, STCH+26* |
PSSRTIEN | REMAP+1~, REMAP+3*, REMAP+4, REMAP+6, REMAP+8, REMAP+9, REMAP+10, UN+2, SET+1, SET+2 , SETPS+2, SETPS+3, SETPS+4, SETPS+5, SETPS+6, SETPS+7, SETNW+4, SETNW+5, SETNW+6, SETNW+7 , SETNW+8, INCT+2, INCT+12, OLDNM+1 |
PSSRTIX | REMAP+1~, REMAP+2*, REMAP+3 |
PSSRTLOC | REMAP+1~, REMAP+6*, UN+1, SET+1, SET+2, SETPS, INCT+11, INCT+12, OLDNM+1 |
PSSRTLOP | REMAP+1~, REMAP+12* |
PSSRTLOX | REMAP+1~, REMAP+12*, REMAP+13 |
PSSRTNAM | REMAP+1~, REMAP+9!, REMAP+10*, REMAP+11, REMAP+12, REMAP+14, REMAP+15, REMAP+16, REMAP+18, REMAP+19 , REMAP+20 |
PSSRTSHL | REMAP+1~, REMAP+12!*, REMAP+13 |
PSSRTSTS | REMAP+1~, REMAP+9!, REMAP+11*, REMAP+12!*, REMAP+13*, REMAP+14!*, REMAP+15!*, REMAP+16!, REMAP+17*, REMAP+18!* , REMAP+19!*, REMAP+20!*, SET+1, SET+2, SETPS+3, SETPS+7 |
X | SETPS+1~, SETNW+2~ |
XMDUN | MAIL+1~ |
XMDUZ | MAIL+1~, MAIL+4* |
XMMG | MAIL+1~ |
XMROU | MAIL+1~ |
XMSTRIP | MAIL+1~ |
XMSUB | MAIL+1~, MAIL+3* |
XMTEXT | MAIL+1~, MAIL+5* |
XMY | MAIL+1~ |
XMY("G.PSS OR | DER CHECKS" , MAIL+6* |
XMYBLOB | MAIL+1~ |
XMZ | MAIL+1~ |