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 |