PSS51P2 ;BIR/LDT - API FOR INFORMATION FROM FILE 51.2 ; 5 Sep 03
Source file <PSS51P2.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Name | Comments | DBIA/ICR reference |
---|---|---|
ALL(PSSIEN,PSSFT,PSSFL,PSSPK,LIST) | ;
|
|
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, PSSPK, BAILS IF CONDITIONS MEET TRUE
|
|
DIRREAD | ;MAIN DIRECT READ FOR ENTIRE ROUTINE
|
|
SETSCRN | ;Set Screen for inactive Medication Routes
|
|
NAME(PSSFT,PSSPK,LIST) | ;
|
|
IEN(PSSABBR,LIST) | ;
|
|
SETZRO | ;
|
|
SETZRO2 | ;
|
|
LOOP(PSS) | ;
|
|
1 | ;
|
|
2 | ;
|
FileNo | Call Tags |
---|---|
^PS(51.2 - [#51.2] | FIND1^DIC, FIND^DIC, GETS^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^PS(51.2 - [#51.2] | LOOPDIR+2, DIRALL+1, DIRALL+2, DIRREAD+1, DIRREAD+3, DIRREAD+4, DIRREAD+8, DIRREAD+9, DIRREAD+10, DIRREAD+11 , DIRREAD+12, DIRREAD+14, DIRREAD+20, DIRREAD+21, DIRREAD+22, DIRREAD+24, LOOP+2, 1+1, 2+1 |
^TMP("DILIST" | ALL+15!, LOOPDI+2, LOOPDI+3, NAME+15, NAME+16, NAME+17, NAME+18, IEN+11, IEN+12, IEN+13 , IEN+14 |
^TMP("PSS51P2" | NAME+18!, NAME+19, NAME+20!, IEN+14!, IEN+15, IEN+16!, SETZRO+1, SETZRO+2, SETZRO+3, SETZRO+4 , SETZRO+5, SETZRO+6, SETZRO+7, SETZRO+8, SETZRO2+1, SETZRO2+2, SETZRO2+3, SETZRO2+4, 1+4!, 1+5 , 2+2!, 2+3 |
^TMP($J | ALL+16!, ALL+17*, COUNTBG+2*, COUNTBG+3*, DIRREAD+2*, DIRREAD+3*, DIRREAD+5*, DIRREAD+6*, DIRREAD+7*, DIRREAD+8* , DIRREAD+9*, DIRREAD+12*, DIRREAD+13*, DIRREAD+15*, DIRREAD+17*, DIRREAD+18*, DIRREAD+19*, DIRREAD+20*, DIRREAD+21*, DIRREAD+23* , DIRREAD+25*, NAME+9!, NAME+10*, NAME+15*, NAME+16*, IEN+8!, IEN+9*, IEN+11*, IEN+12*, SETZRO+1* , SETZRO+2*, SETZRO+3*, SETZRO+4*, SETZRO+5*, SETZRO+6*, SETZRO+7*, SETZRO+8*, SETZRO2+1*, SETZRO2+2*, SETZRO2+3* , SETZRO2+4*, LOOP+3* |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
CNT | LOOP+1~*, LOOP+3, 1+5*, 2+3* |
DIERR | ALL+11~, NAME+7~, IEN+6~ |
LIST | ALL~, ALL+14, ALL+16, ALL+17, COUNTBG+2, COUNTBG+3, DIRREAD+2, DIRREAD+3, DIRREAD+5, DIRREAD+6 , DIRREAD+7, DIRREAD+8, DIRREAD+9, DIRREAD+12, DIRREAD+13, DIRREAD+15, DIRREAD+17, DIRREAD+18, DIRREAD+19, DIRREAD+20 , DIRREAD+21, DIRREAD+23, DIRREAD+25, NAME~, NAME+8, NAME+9, NAME+10, NAME+15, NAME+16, IEN~ , IEN+7, IEN+8, IEN+9, IEN+11, IEN+12, SETZRO+1, SETZRO+2, SETZRO+3, SETZRO+4, SETZRO+5 , SETZRO+6, SETZRO+7, SETZRO+8, SETZRO2+1, SETZRO2+2, SETZRO2+3, SETZRO2+4, LOOP+3 |
ND | ALL+19~, 1+1*, 1+2, 1+3 |
PSS | ALL+11~, NAME+7~, IEN+6~, LOOP~, LOOP+2 |
PSS(1 | NAME+18*, NAME+19*, IEN+14*, IEN+15*, SETZRO+1, SETZRO+2, SETZRO+3, SETZRO+4, SETZRO+5, SETZRO+6 , SETZRO+7, SETZRO+8, SETZRO2+1, SETZRO2+2, SETZRO2+3, SETZRO2+4, 1+4*, 1+5*, 2+2*, 2+3* |
PSS51P2 | ALL+11~, NAME+7~, IEN+6~ |
PSSAB | DIRREAD+21~* |
PSSABBR | IEN~, IEN+9, IEN+10 |
PSSBGCNT | ALL+11~, ALL+12*, COUNTBG+1, COUNTBG+2, DIRREAD+26* |
PSSCAP | ALL+11~, DIRREAD+11*, DIRREAD+12 |
PSSCNT | ALL+11~ |
PSSFL | ALL~, ALL+19, DIRALL+1, 1+2 |
PSSFT | ALL~, ALL+17, ALL+25, ALL+26, NAME~, NAME+10, NAME+13, NAME+14 |
PSSIEN | ALL~, ALL+17, ALL+22, ALL+24, NAME+18*, IEN+14*, LOOP+2*, 1+1, 1+4, 2+1 , 2+2 |
PSSIEN2 | ALL+22~*, ALL+23, LOOPDI+3*, LOOPDIR+1*, LOOPDIR+2*, DIRALL+1, DIRALL+2, DIRREAD+1, DIRREAD+2, DIRREAD+3 , DIRREAD+4, DIRREAD+5, DIRREAD+6, DIRREAD+7, DIRREAD+8, DIRREAD+9, DIRREAD+10, DIRREAD+11, DIRREAD+12, DIRREAD+13 , DIRREAD+14, DIRREAD+15, DIRREAD+17, DIRREAD+18, DIRREAD+19, DIRREAD+20, DIRREAD+21, DIRREAD+22, DIRREAD+23, DIRREAD+24 , DIRREAD+25 |
PSSNAM | ALL+11~, DIRREAD+1*, DIRREAD+2, DIRREAD+18 |
PSSPK | ALL~, ALL+21, DIRALL+2, DIRALL+3, NAME~, NAME+12, 1+3, 2+1 |
PSSTIEN | ALL+11~, LOOPDI+1*, LOOPDI+2*, LOOPDI+3 |
PSSTMP | ALL+11~, DIRREAD+4*, DIRREAD+5, DIRREAD+6, DIRREAD+7, DIRREAD+14~*, DIRREAD+15, DIRREAD+16, DIRREAD+17, DIRREAD+19 , DIRREAD+22*, DIRREAD+23, DIRREAD+24*, DIRREAD+25 |
PSSXX | NAME+17~*, NAME+18, IEN+13~*, IEN+14 |
PSSZ5 | DIRALL+2~*, DIRALL+3 |
PSSZ6 | DIRALL+2~* |
SCR | ALL+11~, NAME+7~, IEN+6~ |
SCR("S" | ALL+13*, ALL+18*, ALL+21*, ALL+22, ALL+26, SETSCRN+2*, NAME+12*, NAME+14 |
>> TMP("DILIST" | NAME+20!, IEN+16! |
U | LOOPDI+3, DIRALL+1, DIRALL+2, DIRREAD+1, DIRREAD+3, DIRREAD+4, DIRREAD+5, DIRREAD+6, DIRREAD+8, DIRREAD+9 , DIRREAD+10, DIRREAD+11, DIRREAD+12, DIRREAD+14, DIRREAD+15, DIRREAD+17, DIRREAD+20, DIRREAD+21, DIRREAD+22, DIRREAD+23 , DIRREAD+24, DIRREAD+25 |
ZZERR | ALL+11~, NAME+7~, IEN+6~ |