©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
VAFHLZMH ;BAY/JAT - Create HL7 Military History segment (ZMH) ; 11/20/00 2:14pm
Source file <VAFHLZMH.m>
| Package | Total | Call Graph |
|---|---|---|
| Health Level Seven | 1 | $$HLDATE^HLFNC |
| Registration | 1 | ENTER^VAFHLZM1 |
| VA Fileman | 1 | $$GET1^DIQ |
| Package | Total | Caller Graph |
|---|---|---|
| Registration | 2 | DGRUGA01 DGRUGA08 |
| Scheduling | 1 | SDRPA07 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EDIT(X) | ||
| ENTER(DFN,VAFARRAY,VAFTYPE,VAFSTR,VAFHLS,VAFHLC,VAFHLQ) |
|
|
| NOGO | ;
|
|
| UNCRUNCH | ; reformat VAFTYPE by translating any range of numbers,
; for example replace "1:3,6,9:11" by "1,2,3,6,9,10,11," |
|
| EN(DFN,VAFHMIEN,VAFSTR) | ; RAI/MDS Reserved entry point!!
; !!!!!!!!!! don't enter here !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! |
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | ENTER+55, ENTER+66, ENTER+67, ENTER+68, ENTER+69, ENTER+70, ENTER+71, ENTER+76, ENTER+78 |
| ^TMP("VAFHLZMH" | ENTER+45 |
| Name | Line Occurrences |
|---|---|
| $$EDIT | ENTER+59 |
| NOGO | ENTER+54, ENTER+55, ENTER+57, ENTER+59 |
| UNCRUNCH | ENTER+60 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| A | UNCRUNCH+2~, UNCRUNCH+5*, UNCRUNCH+6, UNCRUNCH+7* |
| B | UNCRUNCH+2~, UNCRUNCH+5*, UNCRUNCH+7 |
| CNT | EDIT+1~, EDIT+8*, EDIT+13* |
| DFN | EN~, EN+9, ENTER~, ENTER+54, ENTER+55, ENTER+66, ENTER+67, ENTER+68, ENTER+69, ENTER+70 , ENTER+71, ENTER+76, ENTER+78 |
| ERR | EDIT+1~*, EDIT+8*, EDIT+9, EDIT+17*, EDIT+18 |
| >> HL("ECH" | EN+9 |
| >> HL("FS" | EN+7, EN+8, EN+9 |
| P | EDIT+1~, EDIT+7*, EDIT+8 |
| Q | EDIT+1~, EDIT+10*, EDIT+11 |
| R | EDIT+1~, EDIT+10*, EDIT+11 |
| VAF321N | ENTER+65~, ENTER+67* |
| VAF322N | ENTER+65~, ENTER+68* |
| VAF3291N | ENTER+65~, ENTER+69* |
| VAF32N | ENTER+65~, ENTER+66* |
| VAF52N | ENTER+65~, ENTER+70* |
| VAF53N | ENTER+65~, ENTER+71* |
| VAFARRAY | ENTER~, ENTER+45*, ENTER+46, NOGO+1 |
| VAFHA | EN+6~ |
| VAFHADD | EN+6~ |
| VAFHLC | ENTER~, ENTER+51*, ENTER+52* |
| VAFHLOC | EN+6~ |
| VAFHLQ | ENTER~, ENTER+53* |
| VAFHLREC | EN+6~, EN+7*, EN+8*, EN+9*, EN+10 |
| VAFHLS | ENTER~, ENTER+49*, ENTER+50*, NOGO+1 |
| VAFHMIEN | EN~ |
| VAFHSUB | EN+6~* |
| VAFINDX | ENTER+62~, ENTER+63* |
| VAFOPS | ENTER+73~ |
| VAFOPS( | ENTER+78* |
| VAFREC | ENTER+73~, ENTER+74*, ENTER+76*, ENTER+78 |
| VAFSTR | EN~, EN+9, ENTER~, ENTER+48*, ENTER+56*, ENTER+57, ENTER+58* |
| VAFSUB | ENTER+73~, ENTER+74*, ENTER+77*, ENTER+78 |
| VAFTAG | ENTER+62~ |
| VAFTYPE | ENTER~, ENTER+47*, ENTER+59, ENTER+60, UNCRUNCH+3, UNCRUNCH+8* |
| VAFX | ENTER+62~ |
| VAFY | ENTER+62~ |
| VAFZ | ENTER+62~ |
| X | EDIT~, EDIT+2*, EDIT+3, EDIT+4, EDIT+5, EDIT+8, EDIT+11, EDIT+13, UNCRUNCH+2~, UNCRUNCH+3* |
| Y | UNCRUNCH+2~*, UNCRUNCH+4*, UNCRUNCH+6*, UNCRUNCH+7*, UNCRUNCH+8 |
| Z | EDIT+1~, EDIT+8*, EDIT+13*, EDIT+14, EDIT+15, UNCRUNCH+2~, UNCRUNCH+3*, UNCRUNCH+4, UNCRUNCH+5 |
| Z1 | EDIT+1~, EDIT+15*, EDIT+16 |
| Z2 | EDIT+1~, EDIT+15*, EDIT+16 |