©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
AFSLEAPR ;IHS/OIRM/DSD/JDM,HJT - EDIT PAYMENT APPROPRIATION; [ 10/27/2004 4:21 PM ]
Source file <AFSLEAPR.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| READX | ;EP;TO EDIT PAYMENT APPROPRIATION NUMBER
|
|
| EXIT | ||
| R1 | ||
| R2 | ||
| R3 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AFSLAFP("B" | R1+14 |
| Name | Line Occurrences |
|---|---|
| EXIT | READX+1 |
| R1 | READX+2 |
| R2 | R1+16 |
| R3 | R2+10 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| AFSLANSD | EXIT! |
| AFSLFYR | EXIT! |
| AFSLIFLG | EXIT! |
| AFSLNFND | EXIT! |
| AFSLNNOD | EXIT!, R3+10*, R3+11 |
| AFSLNOD2 | EXIT! |
| AFSLNZRO | EXIT! |
| AFSLSCHD | EXIT! |
| AFSLSFND | EXIT! |
| AFSLSNOD | EXIT!, R2+9*, R3, R3+2, R3+11 |
| AFSLSQNO | EXIT! |
| AFSLSZRO | EXIT! |
| AFSLYFND | EXIT! |
| AFSLYNOD | EXIT!, R1+14*, R1+15, R2, R2+1, R3, R3+1, R3+11 |
| AFSLYZRO | EXIT! |
| AFSQUIT | READX+2, EXIT!, R1+13*, R1+16, R1+17!, R2+8*, R2+10, R2+11!, R3+9* |
| C | EXIT! |
| C0 | EXIT! |
| D | EXIT! |
| DA | EXIT!, R3+11* |
| DA(1 | R2+1*, R3+2*, R3+11* |
| DA(2 | R3+1*, R3+11* |
| DI | EXIT! |
| DIC | EXIT!, R2*, R3* |
| DIC("A" | R2+3*, R3+4* |
| DIC(0 | R2+2*, R3+3* |
| DIE | EXIT!, R3+11* |
| DIR | EXIT!, R1!, R1+7! |
| DIR("A" | R1+4* |
| DIR(0 | R1+2* |
| DR | EXIT!, R3+12* |
| X | EXIT! |
| >> Y | R1+9, R1+14, R2+5, R2+9, R3+6, R3+10 |