PSS50DAT ;BHAM ISC/TSS - CONTINUATION OF API FOR INFORMATION FROM FILE 50; 5 Sep 03
Source file <PSS50DAT.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DATA | ;
|
|
| COUNTBG | ;CHECKS PSSBGCNT AND FILLS COUNT IN ON 0 NODE OF ^TMP($J,LIST)
|
|
| LOOPDI | ;LOOPS ON "DILIST" FROM FILEMAN CALL (USED FOR RETURNING MULTIPLE DRUGS FROM PSSFT)
|
|
| LOOPDIR | ;LOOP FOR A DIRECT READ. READS ALL IENs FOR ^PSDRUG(
|
|
| DIRALL | ;TEST FOR PSSFL, PSSRTOI, PSSPK, BAILS IF CONDITIONS MEET TRUE
|
|
| DIRREAD | ;MAIN DIRECT READ FOR ENTIRE ROUTINE
|
|
| SYNONYM | ; FILLS SYNONYM MULTIPLE
|
|
| FORMALT | ;FILLS FORMULARY ALTERATIVE MULTIPLE
|
|
| OLD | ;FILLS THE OLD NAME MULTIPLE
|
|
| SRVCODE(PSSMATCH) | ||
| DRG | ;
|
|
| LOOP | ;
|
