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