DGYLPOST ;ALB/CAW;Update VA Admitting Regulation/HL7 file;8/10/94<<= NOT VERIFIED >
Source file <DGYLPOST.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| INDEX | ; Reindex VA ADMITTING REGULATION file | |
| EN | ; | |
| HL7 | ; Update HL7 version and segment files | |
| HL7713 | ||
| ENQ | ||
| INIT | ;Place active codes in an array | |
| CLEAN | ;Clean up existing entries; add new if doesn't exit | |
| NEW | ;Add new entry | |
| INACT | ;Inactivate entry | |
| ADM | ;List of active VA ADMITTING REGULATIONS | |
| NMCHG | ;Change the name of codes | |
| MESA | ;Message to add new entry | 
| Name | Line Occurrences | 
|---|---|
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Routine Call | 
 | 
| FileNo | Call Tags | 
|---|---|
| ^DIC(43.4 - [#43.4] | Classic Fileman Calls | 
| ^HL(770 - [#770] | Classic Fileman Calls | 
| ^HL(771.3 - [#771.3] | Classic Fileman Calls | 
| ^HL(771.5 - [#771.5] | Classic Fileman Calls | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^DIC(43.4 - [#43.4] | NMCHG+3, NMCHG+5, CLEAN+4, CLEAN+6, CLEAN+9, INACT+3, INACT+4*, INACT+5* | 
| ^HL(770 - [#770] | HL7+5 | 
| ^HL(771.3 - [#771.3] | HL7713 | 
| ^HL(771.5 - [#771.5] | HL7+3 | 
| Name | Line Occurrences | 
|---|---|
| CLEAN | EN+4 | 
| HL7 | EN+7 | 
| HL7713 | HL7+3 | 
| INACT | CLEAN+5, CLEAN+9 | 
| INDEX | EN+6 | 
| INIT | EN+2 | 
| MESA | NEW+9 | 
| NEW | EN+5 | 
| NMCHG | EN+3 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| ADM | ENQ! | 
| ADM( | INIT+2*, CLEAN+5, CLEAN+7, CLEAN+10!, NEW+5, NEW+7, NEW+8, MESA+1 | 
| DA | NMCHG+2~, NMCHG+4*, NMCHG+6*, CLEAN+2~, CLEAN+7*, HL7+2~, HL7+5*, HL7+6, HL7713+1*, HL7713+2* | 
| DD | HL7+4!, HL7713+1! | 
| DGA | CLEAN+2~, CLEAN+3*, CLEAN+6*, CLEAN+7, CLEAN+9*, INACT+2, INACT+3 | 
| DGA1 | CLEAN+2~, INACT+2*, INACT+3*, INACT+4, INACT+5* | 
| DGC | INIT+1~, INIT+2* | 
| DGI | INIT+1~, INIT+2*, NMCHG+2~, NMCHG+3*, NMCHG+4, NMCHG+5*, NMCHG+6, CLEAN+2~, CLEAN+3*, CLEAN+4* , CLEAN+5, CLEAN+6, CLEAN+7, CLEAN+9, CLEAN+10, INACT+3, INACT+5, NEW+2~, NEW+3*, NEW+5* , NEW+7, NEW+8, MESA+1 | 
| DIC | NEW+2~, NEW+6*, HL7+2~, HL7+4*, HL7713+1*, HL7713+2 | 
| DIC("DR" | NEW+8* | 
| DIC(0 | NEW+6*, HL7+4*, HL7713+1* | 
| DIE | NMCHG+2~, NMCHG+4*, NMCHG+6*, CLEAN+2~, CLEAN+7*, HL7+2~, HL7+6*, HL7713+2* | 
| DIK | INDEX+1~, INDEX+2* | 
| DIK(1 | INDEX+2* | 
| DLAYGO | NEW+2~, NEW+6*, HL7+2~, HL7+4*, HL7713+1* | 
| DO | HL7+4!, HL7713+1! | 
| DR | NMCHG+2~, NMCHG+4*, NMCHG+6*, CLEAN+2~, CLEAN+7*, HL7+6*, HL7713+2* | 
| HLVER | HL7+2~, HL7+3*, HL7+5* | 
| U | INIT+2, CLEAN+7, INACT+4, INACT+5, NEW+7, NEW+8, MESA+1 | 
| X | NEW+2~, NEW+7*, HL7+2~, HL7+4*, HL7713+1* | 
| Y | NEW+2~, HL7+2~, HL7+5, HL7+6, HL7713+1, HL7713+2 | 
| Name | Field # of Occurrence | 
|---|---|
| $T(ADM+DGI | INIT+2 |