©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
PSDEN ;BIR/JPW-Enter NAOUs ; 6 July 94
Source file <PSDEN.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 4 | ^DIC ^DIE ^DIK ^DIR |
| Controlled Substances | 2 | ^PSDSET EN^PSDSP |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| TYPE | ;selects location type
|
|
| WARD | ||
| NAOU | ;entry for NAOUs into file 58.8
|
|
| END | ||
| DIE | ;edit
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^PSD(58.8 - [#58.8] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD(58.8 | WARD+11 |
| ^DIC(42 - [#42] | WARD |
| ^HL(770 - [#770] | DIE+8 |
| ^PS(59.4 - [#59.4] | PSDEN+4 |
| ^PSD(58.8 - [#58.8] | TYPE+2, TYPE+5, WARD, WARD+5, WARD+6, WARD+8, WARD+14 |
| ^XUSEC("PSD PARAM" | PSDEN+3 |
| Name | Line Occurrences |
|---|---|
| DIE | TYPE+2 |
| END | NAOU+2 |
| NAOU | NAOU+3 |
| TYPE | NAOU+2 |
| WARD | WARD+5, WARD+9, WARD+12 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | TYPE+5, WARD+8 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ANS | END!, TYPE+2*, TYPE+3!, TYPE+7*, DIE+3, DIE+4, DIE+5, DIE+8, WARD+14 |
| DA | END!, TYPE+6*, DIE+2!*, DIE+6!, WARD+7*!, WARD+11*, WARD+12! |
| DA(1 | WARD+7*, WARD+10* |
| DIC | NAOU+1!*, NAOU+2!, END!, WARD+10*, WARD+12! |
| DIC("A" | NAOU+1* |
| DIC("DR" | NAOU+1* |
| DIC("P" | WARD+11* |
| DIC("S" | NAOU+1* |
| DIC(0 | NAOU+1*, WARD+10* |
| DIE | END!, DIE+2!*, DIE+6! |
| DIK | TYPE+6!*, WARD+7*! |
| >> DINUM | WARD+11* |
| DIR | END!, TYPE+3!, TYPE+5!, WARD+4!, WARD+6! |
| DIR("?" | TYPE+4*, WARD+3* |
| DIR("A" | TYPE+3*, WARD+2*, WARD+6* |
| DIR("B" | TYPE+5* |
| DIR(0 | TYPE+3*, WARD+1*, WARD+6* |
| DIROUT | END! |
| DIRUT | END!, TYPE+3!, TYPE+6, TYPE+7, WARD+5 |
| DLAYGO | NAOU+1!*, NAOU+2!, END!, WARD+10*, WARD+12! |
| DR | END!, DIE+2!, DIE+3*, DIE+4*, DIE+5*, DIE+6! |
| DTOUT | END! |
| DUOUT | END! |
| DUZ | PSDEN+3 |
| MULTI | PSDEN+4*, END! |
| NEW | NAOU+2*, END!, TYPE+6 |
| PSDA | NAOU+2*, END!, TYPE+2, TYPE+5, TYPE+6, DIE+2, WARD, WARD+5, WARD+6, WARD+7 , WARD+8, WARD+10, WARD+14, WARD+15! |
| PSDA(1 | WARD*, WARD+4*, WARD+8* |
| PSDA(2 | WARD+4*, WARD+5, WARD+7, WARD+8, WARD+11 |
| PSDA(3 | WARD+4*, WARD+6, WARD+7, WARD+9, WARD+11 |
| PSDA(4 | WARD+8*, WARD+9! |
| PSDJLP | DIE+1*, DIE+6! |
| PSDS | WARD+14, WARD+15! |
| >> PSDSITE | PSDEN+2, PSDEN+4, NAOU+1, WARD+14* |
| PSDSN | WARD+15! |
| SITEN | PSDEN+4*, END!, TYPE+1 |
| U | WARD, WARD+4, WARD+6, WARD+8, WARD+11, WARD+14 |
| X | END!, WARD+11* |
| Y | NAOU+2, END!, TYPE+7, WARD+4, WARD+7 |