©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
PSOP288F ;FIX ERRONEOUS NON-VA MEDS RECORDS IN PHARMACY PATIENT FILE (#55)
Source file <PSOP288F.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| FIX | ;FIX THE NON-VA MEDS ENTRY
|
|
| GETPAT | ;PROMPT FOR PATIENT
|
|
| CLEAN | ;ALLOW USER TO CLEAN UP ERRONEOUS ENTRIES
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^PS(55 - [#55] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PS(55 - [#55] | FIX+3 |
| ^XTMP("PSOP288" | GETPAT+7, GETPAT+8, FIX+1 |
| Name | Line Occurrences |
|---|---|
| FIX | CLEAN+5 |
| GETPAT | CLEAN+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| D | CLEAN+1~, GETPAT+4* |
| DA | FIX+5*, FIX+7! |
| DA(1 | FIX+5* |
| DIC | GETPAT+3!, GETPAT+4*, FIX+12*, FIX+15! |
| DIC(0 | GETPAT+4* |
| DIE | FIX+4*, FIX+7! |
| DIR | FIX+15! |
| DIR("A" | FIX+10* |
| DIR(0 | FIX+10* |
| DR | FIX+6*, FIX+7! |
| DWPK | FIX+13*, FIX+15! |
| PSODIV | CLEAN+1~, GETPAT+7*, GETPAT+8, FIX+1 |
| PSOERR | CLEAN+1~ |
| PSOI | CLEAN+1~, CLEAN+2* |
| PSOIENS | CLEAN+1~, FIX+9* |
| PSONOPAT | CLEAN+1~, CLEAN+2, CLEAN+4, GETPAT+1*, GETPAT+6*, GETPAT+7, GETPAT+8*, GETPAT+9* |
| PSONVA | CLEAN+1~, FIX+1*, FIX+3, FIX+5, FIX+9, FIX+12 |
| PSONVA0 | CLEAN+1~, FIX+3* |
| PSOPAT | CLEAN+1~, GETPAT+5*, GETPAT+6, GETPAT+8, FIX+1, FIX+3, FIX+4, FIX+5, FIX+9, FIX+12 |
| PSOPATN | CLEAN+1~, GETPAT+5*, FIX+2 |
| X | CLEAN+1~ |
| X1 | CLEAN+1~ |
| X2 | CLEAN+1~ |
| Y | CLEAN+1~, FIX+11 |
| Y(0 | GETPAT+5 |