©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
PSN50P67 ;BIR/LDT - API FOR INFORMATION FROM FILE 50.607; 5 Sep 03
Source file <PSN50P67.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ALL(PSNIEN,PSNFT,PSNFL,LIST) | ;
|
|
| SETZRO | ;
|
|
| LOOP | ;
|
|
| SETSCRN | ;
|
| FileNo | Call Tags |
|---|---|
| ^PS(50.607 - [#50.607] | FIND1^DIC, FIND^DIC, GETS^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PS(50.607 - [#50.607] | LOOP+2, LOOP+3 |
| ^TMP("DILIST" | ALL+24, ALL+25, ALL+26, ALL+28! |
| ^TMP($J | ALL+11!, ALL+12*, ALL+13*, ALL+17*, ALL+18*, ALL+24*, ALL+25*, SETZRO+1*, SETZRO+2*, SETZRO+3* , LOOP+2*, LOOP+5* |
| Name | Line Occurrences |
|---|---|
| LOOP | ALL+22 |
| SETSCRN | ALL+15 |
| SETZRO | ALL+20, ALL+27, LOOP+5 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | LOOP+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DIERR | ALL+9~ |
| LIST | ALL~, ALL+10, ALL+11, ALL+12, ALL+13, ALL+17, ALL+18, ALL+24, ALL+25, SETZRO+1 , SETZRO+2, SETZRO+3, LOOP+2, LOOP+5 |
| ND | ALL+15~ |
| PSN | ALL+9~ |
| PSN(1 | ALL+19*, ALL+20*, ALL+26*, ALL+27*, SETZRO+1, SETZRO+2, SETZRO+3, LOOP+4*, LOOP+5* |
| PSN50P67 | ALL+9~, ALL+26!, LOOP+4! |
| PSN50P67( | ALL+20, ALL+27, SETZRO+1, SETZRO+2, SETZRO+3, LOOP+5 |
| PSNFL | ALL~, ALL+15, LOOP+3 |
| PSNFT | ALL~, ALL+12, ALL+21, ALL+22, ALL+23 |
| PSNIEN | ALL~, ALL+12, ALL+13, ALL+16, ALL+21, ALL+26*, LOOP+1~, LOOP+2*, LOOP+3, LOOP+4 |
| PSNIEN2 | ALL+16~*, ALL+17, ALL+19 |
| PSNXX | ALL+25~*, ALL+26 |
| SCR | ALL+9~ |
| SCR("S" | ALL+14*, ALL+16, ALL+23, SETSCRN+1* |
| ZZERR | ALL+9~ |