ACDPFACE ;IHS/ADC/EDE/KML - DISPLAY PATIENT VISIT;
Source file <ACDPFACE.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EOJ | ;
|
|
GETPAT | ; GET PATIENT
|
|
START | ;
|
|
PATLOOP | ; DISPLAY PATIENTS UNTIL DONE
|
|
DISPLAYQ | ; EP - FOR TASKMAN
|
|
DISPLAY | ; EP - DISPLAY VISIT AND SUBORDINATE FILE ENTRY
|
|
SELECT | ; SELECT A CDMIS INITIAL/REOPEN/TDC VISIT
|
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 |
|
FileNo | Call Tags |
---|---|
^AUPNPAT - [#9000001] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^ACDIIF("C" | DISPLAYQ+9 |
^ACDTDC("C" | DISPLAYQ+8 |
^ACDVIS - [#9002172.1] | SELECT+8, DISPLAYQ+7 |
^DPT - [#2] | GETPAT+6 |
^TMP("ACD" | SELECT+5, SELECT+7 |
Name | Line Occurrences |
---|---|
@( | DISPLAYQ+11 |
DISPLAY | PATLOOP+7, PATLOOP+10 |
DISPLAYQ | DISPLAY+6 |
EOJ | START+3, DISPLAYQ+18 |
GETPAT | PATLOOP+1 |
PATLOOP | START+2 |
SELECT | PATLOOP+5 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ACDCOMC | DISPLAYQ+5~ |
ACDCOMCL | DISPLAYQ+5~ |
ACDCOMT | DISPLAYQ+5~ |
ACDCOMTL | DISPLAYQ+5~ |
ACDCONT | DISPLAYQ+5~ |
ACDCONTL | DISPLAYQ+5~ |
>> ACDDA | DISPLAYQ+6*, DISPLAYQ+8*, DISPLAYQ+9*, DISPLAYQ+10 |
ACDDFN | GETPAT+6*, DISPLAYQ+5~ |
ACDDFNP | GETPAT+6*, DISPLAYQ+5~ |
ACDLC | SELECT+6*, SELECT+10*, SELECT+11, SELECT+14, SELECT+17, SELECT+18, SELECT+20! |
ACDPDD | SELECT+15! |
ACDPDD( | SELECT+14 |
ACDPFACE | DISPLAYQ+12*, DISPLAYQ+14! |
ACDPROV | DISPLAYQ+5~ |
ACDPROVP | DISPLAYQ+5~ |
>> ACDQ | START+2, PATLOOP+2, PATLOOP+4, PATLOOP+6*, PATLOOP+9, GETPAT+1*, GETPAT+7*, SELECT+1*, SELECT+22* |
ACDSLAVE | PATLOOP+8, PATLOOP+10, PATLOOP+11!, DISPLAYQ+1, DISPLAYQ+17 |
>> ACDTC | SELECT+8*, SELECT+9, DISPLAYQ+7*, DISPLAYQ+8, DISPLAYQ+10, DISPLAYQ+11 |
>> ACDVIEN | SELECT+3*, SELECT+19*, SELECT+21, DISPLAYQ+6, DISPLAYQ+7, DISPLAYQ+8, DISPLAYQ+9 |
ACDVLST | SELECT+4!, SELECT+20! |
ACDVLST( | SELECT+11*, SELECT+19 |
ACDWSTAF | DISPLAYQ+6! |
ACDWSTAF(1 | DISPLAYQ+6* |
>> ACDX | SELECT+6*, SELECT+7* |
>> ACDY | SELECT+6*, SELECT+7*, SELECT+8, SELECT+11, SELECT+12, SELECT+14 |
>> AUPNLK("ALL" | GETPAT+2*, GETPAT+4! |
DA | SELECT+12*, SELECT+18! |
>> DIC | GETPAT+3*, SELECT+12* |
>> DIC("S" | GETPAT+3* |
>> DIC(0 | GETPAT+3* |
>> DIQ | SELECT+12* |
DIR | SELECT+18! |
DIR("A" | SELECT+18* |
DIR(0 | SELECT+18* |
>> DR | SELECT+12* |
IO | PATLOOP+10, PATLOOP+11*, DISPLAYQ+2, DISPLAYQ+15 |
IO("Q" | DISPLAY+2 |
IO(0 | PATLOOP+10, PATLOOP+11, DISPLAYQ+15 |
IOF | DISPLAYQ+15 |
>> IOP | DISPLAYQ+1* |
IOST | PATLOOP+8, DISPLAYQ+4 |
U | GETPAT+6, SELECT+8, DISPLAYQ+7 |
>> Y | GETPAT+5, GETPAT+6, SELECT+19 |
>> ZTDESC | DISPLAY+3* |
>> ZTDTH | DISPLAY+3* |
>> ZTQUEUED | DISPLAYQ+18 |
>> ZTREQ | DISPLAYQ+18* |
>> ZTRTN | DISPLAY+3* |
>> ZTSAVE("ACD*" | DISPLAY+3* |