PSS50DAT ;BHAM ISC/TSS - CONTINUATION OF API FOR INFORMATION FROM FILE 50; 5 Sep 03
Source file <PSS50DAT.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
DIRALL | ;TEST FOR PSSFL, PSSRTOI, PSSPK, BAILS IF CONDITIONS MEET TRUE
|
|
SYNONYM | ; FILLS SYNONYM MULTIPLE
|
|
COUNTBG | ;CHECKS PSSBGCNT AND FILLS COUNT IN ON 0 NODE OF ^TMP($J,LIST)
|
|
LOOP | ;
|
|
LOOPDIR | ;LOOP FOR A DIRECT READ. READS ALL IENs FOR ^PSDRUG(
|
|
LOOPDI | ;LOOPS ON "DILIST" FROM FILEMAN CALL (USED FOR RETURNING MULTIPLE DRUGS FROM PSSFT)
|
|
SRVCODE(PSSMATCH) | ||
DRG | ;
|
|
FORMALT | ;FILLS FORMULARY ALTERATIVE MULTIPLE
|
|
OLD | ;FILLS THE OLD NAME MULTIPLE
|
|
DATA | ;
|
|
DIRREAD | ;MAIN DIRECT READ FOR ENTIRE ROUTINE
|
Name | Field # of Occurrence |
---|---|
$$FIND1^DIC | DATA+31, DRG+17 |
FIND^DIC | DATA+35, DRG+27 |
FIELD^DID | LOOP+2, LOOP+3, LOOP+4, LOOP+5 |
GETS^DIQ | DRG+21, DRG+31 |
SETSCRN^PSS50A | DATA+30, DRG+16 |
LOOP^PSS50A1 | DRG+25 |
SETDRG^PSS50A1 | DRG+22, DRG+32 |
SETALL^PSS50AQM | LOOP+16 |
SETFMA^PSS50AQM | LOOP+16 |
SETOLD^PSS50AQM | LOOP+16 |
SETSUB1^PSS50AQM | LOOP+15 |
SETSUB2^PSS50AQM | LOOP+15 |
SETSUB3^PSS50AQM | LOOP+15 |
SETSYN^PSS50AQM | LOOP+16 |
DIRREAD^PSS50TMP | DIRREAD+1 |
$$FMTE^XLFDT | OLD+5 |
$$UP^XLFSTR | OLD+5 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^PSDRUG - [#50] | LOOPDIR+2, LOOPDIR+3, DIRALL+1, DIRALL+2, DIRALL+3, SYNONYM+4, SYNONYM+5, SYNONYM+6, SYNONYM+8, SYNONYM+15 , SYNONYM+16, FORMALT+3, FORMALT+4, FORMALT+5, OLD+3, OLD+4, OLD+5, OLD+6, OLD+8, OLD+9 , SRVCODE+2, LOOP+8, LOOP+9, LOOP+10, LOOP+11 |
^PSNDF(50.68 - [#50.68] | SRVCODE+1 |
^TMP("DIERR" | DRG+18! |
^TMP("DILIST" | DATA+27!, LOOPDI+2, LOOPDI+3, DRG+26!, DRG+28, DRG+29, DRG+30, DRG+33! |
^TMP("PSSP50" | DATA+31!, DRG+17!, DRG+21!, DRG+22, DRG+31!, DRG+32, DRG+33! |
^TMP($J | DATA+26*, DATA+28!, COUNTBG+2*, COUNTBG+3*, DIRREAD+3*, DIRREAD+6, SYNONYM+6*, SYNONYM+9*, SYNONYM+10*, SYNONYM+11* , SYNONYM+12*, SYNONYM+13*, SYNONYM+15*, SYNONYM+16*, SYNONYM+18*, SYNONYM+19*, FORMALT+5*, FORMALT+7*, FORMALT+8*, OLD+6* , OLD+7*, OLD+9*, OLD+11*, OLD+12*, OLD+13*, SRVCODE+1*, SRVCODE+2*, SRVCODE+3*, DRG+13!, DRG+14* , DRG+19*, DRG+20*, DRG+23*, DRG+28*, DRG+29*, LOOP+18* |
Name | Line Occurrences |
---|---|
COUNTBG | DATA+31, DATA+34, DATA+35 |
DIRALL | LOOPDIR+3 |
DIRREAD | DATA+32, LOOPDI+4, DIRALL+5 |
FORMALT | DIRREAD+4 |
LOOPDI | DATA+35 |
LOOPDIR | DATA+34 |
OLD | DIRREAD+5 |
SRVCODE | DIRREAD+6 |
SYNONYM | DIRREAD+2 |
Name | Field # of Occurrence |
---|---|
^("I" | DIRALL+1, LOOP+10 |
^(2 | LOOP+13 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DIERR | DRG+11~ |
DINDEX | DATA+13~ |
DISUB | DATA+13~ |
DIVAL | DATA+13~ |
DO | DATA+13~ |
>> LIST | DATA+25, DATA+26, DATA+28, COUNTBG+2, COUNTBG+3, DIRREAD+3, DIRREAD+6, SYNONYM+6, SYNONYM+9, SYNONYM+10 , SYNONYM+11, SYNONYM+12, SYNONYM+13, SYNONYM+15, SYNONYM+16, SYNONYM+18, SYNONYM+19, FORMALT+5, FORMALT+7, FORMALT+8 , OLD+6, OLD+7, OLD+9, OLD+11, OLD+12, OLD+13, SRVCODE+1, SRVCODE+2, SRVCODE+3, DRG+12 , DRG+13, DRG+14, DRG+19, DRG+20, DRG+23, DRG+28, DRG+29, LOOP+18 |
PSS | DRG+11~ |
PSS(1 | DRG+21*, DRG+22*, DRG+31*, DRG+32*, LOOP+8*, LOOP+9, LOOP+10, LOOP+11, LOOP+15 |
PSS501NX | LOOP+1~, LOOP+5* |
PSS50DD1 | LOOP+1~ |
PSS50DD1("POINTER" | LOOP+2 |
PSS50DD2 | LOOP+1~ |
PSS50DD2("POINTER" | LOOP+3 |
PSS50DD3 | LOOP+1~ |
PSS50DD3("POINTER" | LOOP+4 |
PSS50DD4 | LOOP+1~ |
PSS50DD4("POINTER" | LOOP+5 |
PSS50ER1 | LOOP+1~ |
PSS50ER2 | LOOP+1~ |
PSS50ER3 | LOOP+1~ |
PSS50ER4 | LOOP+1~ |
PSS51NFD | LOOP+1~, LOOP+2* |
PSS52NFD | LOOP+1~, LOOP+3* |
PSS5ND | DATA+30~, DRG+16~ |
PSSALT | DATA+19~, FORMALT+2*, FORMALT+3*, FORMALT+4, FORMALT+5 |
PSSBGCNT | DATA+14~, DATA+23*, COUNTBG+1, COUNTBG+2, DIRREAD+7* |
PSSCAP | DATA+22~, OLD+5*, OLD+6 |
PSSCNT | DATA+15~, SYNONYM+1*, SYNONYM+17*, SYNONYM+18, SYNONYM+19, FORMALT+1*, FORMALT+6*, FORMALT+7, FORMALT+8, OLD+1* , OLD+10*, OLD+12, OLD+13 |
PSSENCT | LOOP+6~, LOOP+7*, LOOP+17*, LOOP+18 |
>> PSSFL | DATA+30, DIRALL+1, DRG+16, LOOP+10 |
>> PSSFT | DATA+26, DATA+34, DATA+35, DRG+14, DRG+24, DRG+25, DRG+27 |
PSSG2N | LOOP+1~, LOOP+4* |
>> PSSIEN | DATA+26, DATA+31, DATA+33, DRG+14, DRG+17, DRG+23, DRG+30*, DRG+31 |
PSSIEN2 | DATA+31~*, DATA+32, LOOPDI+3*, LOOPDIR+1*, LOOPDIR+2*, LOOPDIR+3, DIRALL+1, DIRALL+2, DIRALL+3, DIRREAD+3 , DIRREAD+6, SYNONYM+4, SYNONYM+5, SYNONYM+6, SYNONYM+8, SYNONYM+9, SYNONYM+10, SYNONYM+11, SYNONYM+12, SYNONYM+13 , SYNONYM+15, SYNONYM+16, SYNONYM+18, SYNONYM+19, FORMALT+3, FORMALT+4, FORMALT+5, FORMALT+7, FORMALT+8, OLD+3 , OLD+4, OLD+5, OLD+6, OLD+7, OLD+8, OLD+9, OLD+11, OLD+12, OLD+13, SRVCODE+1 , SRVCODE+2, SRVCODE+3, DRG+17~*, DRG+19, DRG+21 |
PSSMATCH | DATA+20~, SRVCODE~, SRVCODE+1 |
PSSMLCT | DRG+11~ |
PSSOLD | DATA+18~, OLD+2*, OLD+3*, OLD+4, OLD+5, OLD+6, OLD+7, OLD+8, OLD+9, OLD+11 |
PSSP50 | DRG+11~ |
>> PSSPK | DATA+30, DIRALL+3, DIRALL+4, DRG+16, LOOP+13, LOOP+14 |
>> PSSRTOI | DATA+30, DIRALL+2, DRG+16, LOOP+11 |
PSSSYN | DATA+21~, SYNONYM+3*, SYNONYM+4*, SYNONYM+5, SYNONYM+6, SYNONYM+8, SYNONYM+9, SYNONYM+10, SYNONYM+11, SYNONYM+12 , SYNONYM+13, SYNONYM+15, SYNONYM+16 |
PSSTIEN | DATA+16~, LOOPDI+1*, LOOPDI+2*, LOOPDI+3 |
PSSTMP | DATA+17~, SYNONYM+2*, SYNONYM+8*, SYNONYM+9, SYNONYM+10, SYNONYM+11, SYNONYM+12, SYNONYM+13 |
PSSXX | DRG+29~*, DRG+30 |
PSSZ3 | DATA+30~, DRG+16~ |
PSSZ4 | DATA+30~, DRG+16~ |
PSSZ5 | DIRALL+3~*, DIRALL+4, LOOP+13~*, LOOP+14 |
PSSZ6 | DIRALL+3~*, LOOP+13~* |
SCR | DRG+11~ |
SCR("S" | DATA+24*, DATA+29*, DATA+31, DATA+35, DRG+15*, DRG+17, DRG+27 |
U | LOOPDI+3, LOOPDIR+3, DIRALL+3, DIRREAD+6, SYNONYM+5, SYNONYM+6, SYNONYM+8, SYNONYM+9, SYNONYM+10, SYNONYM+11 , SYNONYM+12, SYNONYM+15, SYNONYM+16, FORMALT+4, FORMALT+5, OLD+4, OLD+5, OLD+6, OLD+8, OLD+9 , SRVCODE+1, SRVCODE+2, SRVCODE+3 |
ZZERR | DRG+11~ |