©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
ACDPVHST ;IHS/ADC/EDE/KML - DISPLAY PATIENT VISIT HISTORY;
Source file <ACDPVHST.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| START | ;
|
|
| EOJ | ;
|
|
| DISPLAY | ; EP - FOR TASKMAN
|
|
| PATLOOP | ; DISPLAY PATIENTS UNTIL DONE
|
|
| GETPAT | ; GET PATIENT
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^AUPNPAT - [#9000001] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | GETPAT+6 |
| ^TMP("ACD" | PATLOOP+5 |
| Name | Line Occurrences |
|---|---|
| DISPLAY | PATLOOP+10, PATLOOP+13 |
| EOJ | START+2, DISPLAY+7 |
| GETPAT | PATLOOP+1 |
| PATLOOP | START+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> ACDDFN | PATLOOP+5, GETPAT+6* |
| >> ACDDFNP | GETPAT+6* |
| >> ACDQ | START+1, PATLOOP+2, PATLOOP+4, PATLOOP+12, GETPAT+1*, GETPAT+7* |
| ACDSLAVE | PATLOOP+11, PATLOOP+13, PATLOOP+14!, DISPLAY+1, DISPLAY+5 |
| >> AUPNLK("ALL" | GETPAT+2*, GETPAT+4! |
| >> DIC | GETPAT+3* |
| >> DIC("S" | GETPAT+3* |
| >> DIC(0 | GETPAT+3* |
| IO | PATLOOP+13, PATLOOP+14*, DISPLAY+2, DISPLAY+3 |
| IO("Q" | PATLOOP+6 |
| IO(0 | PATLOOP+13, PATLOOP+14, DISPLAY+3 |
| IOF | DISPLAY+3, DISPLAY+5 |
| >> IOP | DISPLAY+1* |
| IOST | PATLOOP+11 |
| U | GETPAT+6 |
| >> Y | GETPAT+5, GETPAT+6 |
| >> ZTDESC | PATLOOP+7* |
| >> ZTDTH | PATLOOP+7* |
| >> ZTQUEUED | DISPLAY+7 |
| >> ZTREQ | DISPLAY+7* |
| >> ZTRTN | PATLOOP+7* |
| >> ZTSAVE("ACD*" | PATLOOP+7* |
| >> ZTSAVE("^TMP(""ACD"",$J,""VISITS""," | PATLOOP+7* |