©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
VSITKIL ;ISL/ARS,JVS - NON INTERACTIVE CHECK DEPENDENT ENTRY COUNT ;8/15/97
Source file <VSITKIL.m>
| Package | Total | Call Graph |
|---|---|---|
| PCE Patient Care Encounter | 1 | $$DEC^VSITKIL |
| VA Fileman | 1 | (,IX)^DIK |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DEC(VISIT,VISUAL) | ;Test looking through DD to find fields pointing to the visit entries.
; VISIT=Visit ien to looked up and counted ; VISUAL= Set to 1 if you want and interactive display of what is found |
|
| DOC | ; This routine checks the dependent entry count of the VISIT file for
; accuracy. If it is not correct it is replaced with a correct count ; The count is determined by scanning each of the VISIT related ; files for entries that point to that VISIT. A count is incremented ; each time a "hit" is made. ; The user can enter the visit IEN and if there is not any entries ; pointing to the entry it is deleted. (not logically but totally) |
|
| KILL(VSITKDFN) | ; ENTER THE VSIT YOU WANT CHECKED SET VSITKDFN=IEN
; VSITKDFN = Vsit Ien REQUIRED |
|
| XIT | ;exit
|
|
| COMP | ;COMPARE DEC WITH WHAT UTILITY SAYS
|
|
| QUE | ;CHECK OUT CROSS REFERENCE
|
|
| REF | ;Look for all of the regular cross references and other
|
|
| REG | ;Look for regular cross references
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^AUPNVSIT - [#9000010] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUPNVSIT - [#9000010] | KILL+7, KILL+9, KILL+10, KILL+12*, KILL+14, KILL+15*, KILL+25, KILL+27, COMP+7, COMP+8 |
| ^DD( | REG+3, REG+4, REG+5, QUE+5 |
| ^DD(9000010 | DEC+10, DEC+12 |
| Name | Line Occurrences |
|---|---|
| QUE | DEC+14 |
| REF | DEC+14 |
| REG | REF+4 |
| XIT | KILL+6, KILL+7 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| BECKY | DEC+6~, QUE+13* |
| CNT | COMP+4~, COMP+6*, COMP+13*, COMP+15 |
| COUNT | DEC+6~, DEC+17, QUE+2*, QUE+13* |
| DA | KILL+16*, KILL+19!, KILL+22*, KILL+24! |
| DEC | COMP+4~, COMP+8*, COMP+10, COMP+11, COMP+12 |
| DEC1 | COMP+4~, COMP+9*, COMP+10, COMP+11, COMP+12, COMP+14* |
| DIK | KILL+3~, KILL+17*, KILL+19!, KILL+21*, KILL+24! |
| DR | KILL+19! |
| FIELD | DEC+6~, DEC+11*, DEC+12*, DEC+13, REF+3*, REG+3, REG+4, REG+5, REG+6, REG+7 , QUE+2* |
| FILE | DEC+6~, DEC+9*, DEC+10*, DEC+12, DEC+13, REF+2*, REF+3, REG+3, REG+4, REG+5 , REG+6, REG+7, QUE+2*, QUE+3*, QUE+4 |
| GET | DEC+6~, REG+5*, REG+6, QUE+4*, QUE+5 |
| KYRON | COMP+4~, COMP+7*, COMP+8, COMP+9, COMP+12, COMP+14 |
| PIECE | DEC+6~, QUE+7*, QUE+8, QUE+9 |
| PX | DEC+6~, QUE+11*, QUE+12, QUE+13 |
| REF | DEC+6~, QUE+5*, QUE+6, QUE+7 |
| SNDPIECE | DEC+6~, QUE+8*, QUE+11, QUE+13 |
| STOP | DEC+6~, REG+2*, REG+6*, QUE+2*, QUE+4*, QUE+10* |
| SUB | DEC+6~, REG+4*, REG+5, REG+6, QUE+4* |
| VAUGHN | DEC+6~, QUE+9*, QUE+10 |
| VDD | DEC+7~, REF+5! |
| VDD( | DEC+13*, REF+2, REF+3 |
| VDDN | DEC+7~, DEC+15! |
| VDDN( | REG+3*, REG+7* |
| VDDR | DEC+7~, DEC+15! |
| VDDR( | REG+6*, QUE+3, QUE+4 |
| VISIT | DEC~, QUE+13 |
| VISUAL | DEC~, DEC+16, QUE+13 |
| VSITKDEC | KILL+3~, KILL+10*, KILL+12 |
| VSITKDFN | KILL~, KILL+6, KILL+7, KILL+9, KILL+10, KILL+11, KILL+12, KILL+14, KILL+15, KILL+16 , KILL+22, KILL+25, KILL+26!, KILL+27 |
| VSITKND | KILL+3~, KILL+4*, KILL+11*, KILL+12, KILL+14, KILL+20, XIT+1 |