MAGVCLN ;WOIFO/DAC - File 2005.6X Duplicate Removal Utility ; Feb 22, 2022@21:12:01
Source file <MAGVCLN.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ID | ; Identify Duplicates and Unattached Records
|
|
| DELETE | ; Change Status of Duplicates and Unattached Records to INACCESSIBLE
|
|
| IDDEL(DELETE,MAGPOST) | ; Identify or Set Status of Duplicates and Unattached Records
; DELETE - Set STATUS to Inaccessible, move child records from duplicate to primary ; MAGPOST - Run from Post-Install, send output as message to installer |
|
| IDLINKS(FILE,DELETE) | ; Check 2005.6x files broken pointer to parent records
|
|
| IDLINKS2(FILE,DELETE,BKEY,MAGCNT) | ; Get IEN from "B" x-ref
|
|
| DELETE2(FILE,DELETE) | ; Check 2005.6x files for B x-ref for duplicate key values
|
|
| DELETE3(FILE,AOFS,NAOFS,DELETE,PATDIFF) | ; Inactivate records identified as duplicates
; If no AOFS mark INACCESSIBLE all but first NAOFS |
|
| DELDUP(FILE,ORIGIEN,DUPEIEN,DELETE) | ; Mark Duplicates INACCESSIBLE
|
|
| DELBP(FILE,KEY,IEN,REASON,DELETE,BADIEN) | ; Report and/or inactivate (aka 'delete') records with broken pointers
|
|
| ADDAOF(IEN,AOF,AOFS,NAOFS) | ||
| AOF(FILE,IEN) | ; Determine if record has images on file
|
|
| PATKEY(IEN,PATFIL) | ; Return 4-piece Patient Reference Key
|
|
| PROCKEY(IEN) | ; Return 4-piece Procedure Reference Key
|
|
| PATCHK(IEN,NEXTIEN) | ; Patient Reference Duplicate Check
; Patient references have 4 key values |
|
| PROCCHK(IEN,NEXTIEN) | ; Patient Reference Duplicate Check
; Procedure references have 4 key values |
|
| MOVESUBS(FILE,ORIGAOF,DELIEN,DELETE) | ; Move subfile child records
|
|
| CONT | ; Continue
|
|
| QUE | ; Queue Search and Resolve processes
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^MAGV(2005.6 - [#2005.6] | FIELD^DID, GET1^DIQ |
| ^MAGV(2005.62 - [#2005.62] | GET1^DIQ |
