©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
VSITVID ;ISL/dee - Computes the Visit Id ;4/17/97
Source file <VSITVID.m>
| Package | Total | Call Graph |
|---|---|---|
| PCE Patient Care Encounter | 1 | UPD^VSIT |
| VA Fileman | 1 | CHK^DIE |
| Package | Total | Caller Graph |
|---|---|---|
| IHS Electronic Health Record | 1 | BEHOENC1 |
| PCE Patient Care Encounter | 1 | VSITDEF |
| Patient Care Component | 1 | APCDALV |
| Scheduling | 1 | SD53103A |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| FIXVID(VSITIEN) | ;If the Visit ID is not valued then get a new id and store it
|
|
| GETVID() | ;Sets the VSIT("VID") node with the next unique Visit Id
|
|
| NEXTDIG | ||
| TESTNEXT | ||
| TEST | ;This prints every 100,000 number in base 27 then base 10
|
|
| NEXT(SEQNUMB) | ;Pass in the last sequence number and returns the next unique number in the sequence
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^AUPNVSIT - [#9000010] | CHK^DIE |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUPNVSIT - [#9000010] | FIXVID+7, FIXVID+9, FIXVID+24*, FIXVID+28 |
| ^AUPNVSIT("VID" | FIXVID+25! |
| ^DIC(150.9 - [#150.9] | GETVID+3, GETVID+5, GETVID+11*, GETVID+12 |
| ^VSIT(150.2 - [#150.2] | GETVID+7, FIXVID+17 |
| Name | Line Occurrences |
|---|---|
| $$GETVID | FIXVID+21 |
| $$NEXT | GETVID+9, TESTNEXT |
| NEXTDIG | NEXTDIG+2 |
| TESTNEXT | TESTNEXT+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| COUNT | TEST+2*, TESTNEXT+1*, TESTNEXT+2, TESTNEXT+4! |
| LASTONE | GETVID+1~, GETVID+5*, GETVID+6, GETVID+7 |
| LASTSEQ | GETVID+1~, GETVID+6*, GETVID+9 |
| LASTUSED | GETVID+1~ |
| NEXTSEQ | GETVID+1~, GETVID+9*, GETVID+11, GETVID+14 |
| NUM | TEST+3*, TESTNEXT*, TESTNEXT+2, TESTNEXT+4! |
| SEQNUMB | NEXT~, NEXT+5, NEXTDIG, NEXTDIG+1*, NEXTDIG+2*, NEXTDIG+3 |
| SITE | GETVID+1~, GETVID+7*, GETVID+14 |
| VSIT | FIXVID+20~ |
| VSIT("IEN" | FIXVID+26* |
| VSIT("VID" | FIXVID+21*, FIXVID+22, FIXVID+28 |
| VSITDIG | NEXT+2~, NEXTDIG*, NEXTDIG+1, NEXTDIG+2 |
| VSITIEN | FIXVID~, FIXVID+6, FIXVID+7, FIXVID+9, FIXVID+24, FIXVID+25, FIXVID+26, FIXVID+28 |
| VSITPLAC | NEXT+2~, NEXT+5*, NEXTDIG, NEXTDIG+1, NEXTDIG+2* |
| VSITSTR | NEXT+2~, NEXT+4*, NEXTDIG |
| VSITTEST | FIXVID+5~, FIXVID+11, FIXVID+13, FIXVID+16*, FIXVID+17* |
| VSITVID | FIXVID+5~, FIXVID+9*, FIXVID+11, FIXVID+13, FIXVID+16, FIXVID+17, FIXVID+23, FIXVID+25 |