ATSERCHA ; TUCSON/DG;DISPLAY RESULT OF COMPARISON VALUES [ 10/25/91 3:20 PM ]
Source file <ATSERCHA.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
START | ;GET VALUES OUT OF ^UTILITY("ATSEARCH",$J,"MERGED",3
|
|
PTRFILE | ;DISPLAYS .01 FIELD ONLY FROM POINTER FILE IF MERGED RESULTS
|
|
EOJ | ;
|
|
DISPLAY | ;
|
|
NOTPTRFL | ;DISPLAYS .01 FIELD AND COMMON FIELD VALUE FROM NOT
|
Name | Field # of Occurrence |
---|---|
EN^DIQ1 | PTRFILE+2, NOTPTRFL+4 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^%ZIS("C" | START+3 |
^DIC - [#1] | PTRFILE+4, NOTPTRFL+6 |
^UTILITY("ATSEARCH" | START+1 |
^UTILITY("DIQ1" | PTRFILE+3, PTRFILE+5!, NOTPTRFL+5, NOTPTRFL+6, NOTPTRFL+7! |
Name | Line Occurrences |
---|---|
@( | START+1 |
DISPLAY | ATSERCHA+3 |
EOJ | ATSERCHA+5 |
START | ATSERCHA+4 |
Name | Field # of Occurrence |
---|---|
^( | PTRFILE+3, NOTPTRFL+5 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> ATSEARCH("FILELINK" | START+1, PTRFILE+2, PTRFILE+3, PTRFILE+4, PTRFILE+5, NOTPTRFL+2, NOTPTRFL+4, NOTPTRFL+5, NOTPTRFL+6, NOTPTRFL+7 |
>> ATSEARCH("PTRFILENUM" | START+1 |
>> ATSEARCH(1 | NOTPTRFL+2 |
>> ATSEARCH(2 | NOTPTRFL+3 |
ATSECMPT | START+1*, PTRFILE+2, NOTPTRFL+4, EOJ+1! |
ATSEVLU | NOTPTRFL+5*, EOJ+1! |
>> DA | PTRFILE+2*, PTRFILE+3, PTRFILE+4, PTRFILE+5, NOTPTRFL+4*, NOTPTRFL+5, NOTPTRFL+6, NOTPTRFL+7 |
>> DIC | PTRFILE+2*, NOTPTRFL+4* |
>> DR | PTRFILE+2*, NOTPTRFL+2*, NOTPTRFL+3*, NOTPTRFL+5 |
DTIME | START+2 |
IO | DISPLAY+2, START+2, START+3 |
IO(0 | START+2, START+3 |
IOF | DISPLAY+1 |
>> L | START+1* |
U | PTRFILE+4, NOTPTRFL+6 |
>> X | START+2* |