PSS50F ;BIR/LDT - API FOR INFORMATION FROM FILE 50; 5 Sep 03
Source file <PSS50F.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| OLDNM | ;
 | 
|
| LOOP(PSS) | ;
 | 
|
| SETOLDNM | ;
 | 
|
| SETLIST | ;
 | 
|
| SETLOOK | ;
 | 
|
| ADDOLDNM(PSSIEN2,PSSONM2,PSSDT2) | ;
 | 
|
| EDTIFCAP(PSSIEN2,PSSVAL2) | ;
 | 
|
| 1 | ;
 | 
|
| 2 | ;
 | 
|
| PARSE(PSSLUP) | ; Create array of cross references, piece 2 of the array =1 for pointer fields, else 0
 | 
| FileNo | Call Tags | 
|---|---|
| ^PRC(441 - [#441] | FIND1^DIC | 
| ^PSDRUG - [#50] | FIND1^DIC, FIND^DIC, GETS^DIQ | 
| 50.01 | LIST^DIC | 
| 50.0441 | LIST^DIC |