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~ |