©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
PSN50P4A ;BIR/LDT - API FOR INFORMATION FROM FILE 50.416; 5 Sep 03
Source file <PSN50P4A.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SETHDR | ;
|
|
| SETALL | ;
|
|
| LOOP(PSN) | ;
|
|
| 1 | ;
|
|
| 2 | ;
|
|
| SETALL2 | ;
|
|
| LOOP2 | ;
|
|
| SETSCRN | ;Set Screen for inactive Drug Ingredients
|
| Name | Field # of Occurrence |
|---|---|
| GETS^DIQ | 1+2, 2+3, LOOP2+3 |
| FileNo | Call Tags |
|---|---|
| ^PS(50.416 - [#50.416] | GETS^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PS(50.416 - [#50.416] | LOOP+2, 1+1, 2+2, LOOP2+2, SETHDR+2, SETHDR+3* |
| ^TMP("DILIST" | 1+4!, 2+10! |
| ^TMP("PSNAPD" | 2+3!, 2+4, 2+5, 2+6, 2+7, 2+8, 2+10! |
| ^TMP($J | SETALL+1*, SETALL+2*, SETALL+3*, SETALL+4*, SETALL2+1*, SETALL2+2*, SETALL2+3*, LOOP+3*, 2+5*, 2+6* , 2+8*, 2+9*, LOOP2+5* |
| Name | Line Occurrences |
|---|---|
| @( | LOOP+2 |
| SETALL | 1+3 |
| SETALL2 | LOOP2+4 |
| SETHDR | 2+2 |
| Name | Field # of Occurrence |
|---|---|
| ^(2 | 1+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CNT | LOOP+1~*, LOOP+3, 1+3*, 2+9, LOOP2+1~*, LOOP2+4*, LOOP2+5 |
| CNT1 | 2+1~, 2+7*, 2+8* |
| >> LIST | SETALL+1, SETALL+2, SETALL+3, SETALL+4, SETALL2+1, SETALL2+2, SETALL2+3, LOOP+3, 2+5, 2+6 , 2+8, 2+9, LOOP2+5 |
| PSN | LOOP~, LOOP+2 |
| PSN(1 | SETALL+1, SETALL+2, SETALL+3, SETALL+4, SETALL2+1, SETALL2+2, SETALL2+3, 1+2*, 1+3*, 2+3* , 2+4*, 2+5, 2+6, 2+8, 2+9, LOOP2+3*, LOOP2+4* |
| PSN(2 | 2+7*, 2+8 |
| PSN50P41 | 1+2!, 1+4!, LOOP2+3! |
| PSN50P41( | SETALL+1, SETALL+2, SETALL+3, SETALL+4, SETALL2+1, SETALL2+2, SETALL2+3, 1+3, LOOP2+4 |
| PSNCNT | SETHDR+1~*, SETHDR+2*, SETHDR+3 |
| >> PSNFL | 1+1 |
| PSNIEN | LOOP+1~, LOOP+2*, 1+1, 1+2, 2+2, 2+3, LOOP2+1~, LOOP2+2*, SETHDR+2, SETHDR+3 |
| PSNIEN2 | LOOP2+1~, LOOP2+2*, LOOP2+3 |
| PSNNUM | SETHDR+1~*, SETHDR+2* |
| >> SCR("S" | SETSCRN+2* |