RGADT2 ;HIRMFO/GJC-TFL FILE SEEDING ROUTINE (PD-MPI LOAD) ;09/21/99
Source file <RGADT2.m>
| Package | Total | Call Graph |
|---|---|---|
| Kernel | 4 | ($$FMDIFF,$$NOW)^XLFDT $$STRIP^XLFSTR ($$PARCP,$$UPCP)^XPDUTL $$KSP^XUPARAM |
| Registration | 2 | IN5^VADPT FILE^VAFCTFU |
| Clinical Information Resource Network | 1 | EMAIL^RGADT2 |
| MailMan | 1 | ^XMD |
| Master Patient Index VistA | 1 | $$IFLOCAL^MPIF001 |
| Scheduling | 1 | (GETGEN,PARSE)^SDOE |
| VA FileMan | 1 | FILE^DIE |
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Package | Total | Caller Graph |
|---|---|---|
| Clinical Information Resource Network | 2 | RGADT2 RGI15PST |
| Registration | 1 | VAFCTFMF |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; entry point to check the TREATING FACILITY LIST (TFL-391.91) file
; for the proper LAST TREATMENT DATE. This code is part of the post ; init for RG*1*4. This can also be called from the EN1 entry point ; to determine the LAST TREATMENT DATE for a specific patient. ; Closely linked to the MFU event message broadcasts used to update ; the TFL (#391.91) file. |
|
| EN1(RGDFN,RGSUP) | ; determine the LAST TREATMENT DATE for a single
; patient called from our seeding process above. ; input: RGDFN - the dfn of the patient ; RGSUP - if 1, suppress add entries to the ADT HL7 PIVOT ; (#391.71) file for TF messaging - VAFCTFMF (optional) ; output: RGDATE - patient's DATE LAST TREATED ; RGENVR - event reason |
|
| KILL | ; kill and quit
|
|
| ADMDIS(DFN) | ; find the patient's last admission and discharge dates if
; they exist. ; Input: DFN - ien of the patient (file 2) |
|
| ENCDT(DFN,INPDT) | ; find the last patient check out date/time. 'ADFN'
; cross-reference accessed through DBIA: 2953 ; Input: DFN - ien of the patient (file 2) ; INPDT - date (if any) returned from the inpatient admission/ ; discharge subroutine |
|
| SETMSG | ; define the variables used to build a HL7 message (RGADT1)
|
|
| ; Send a completion email message to the user who installed this patch,
; RG*1*4. Show the number of records processed, elapsed time and the ; number of records processed per minute. |
||
| LOCICN(DFN,ICN) | ; check if this patient has a national ICN without having a
; local ICN. This function is used when an entire site (all patients) ; is seeding, or for individual patient seeding. ; note: IA 2070 covers the hit on the 'MPI' node ; IA 2701 covers the call to $$IFLOCAL^MPIF001 |
| Name | Field # of Occurrence |
|---|---|
| FILE^DIE | EN+41 |
| $$IFLOCAL^MPIF001 | LOCICN+12, LOCICN+15 |
| EMAIL^RGADT2 | EN+37 |
| GETGEN^SDOE | ENCDT+12 |
| PARSE^SDOE | ENCDT+13 |
| IN5^VADPT | ADMDIS+5 |
| FILE^VAFCTFU | EN1+23 |
| $$FMDIFF^XLFDT | EMAIL+6, EMAIL+8 |
| $$NOW^XLFDT | EN+24, EN+37, EN+40 |
| $$STRIP^XLFSTR | EMAIL+12 |
| ^XMD | EMAIL+13 |
| $$PARCP^XPDUTL | EN+27 |
| $$UPCP^XPDUTL | EN+35 |
| $$KSP^XUPARAM | EN+23, EN1+10 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | LOCICN+12, LOCICN+15 |
| ^DPT("AICN" | EN+31, EN+33 |
| ^RGSITE(991.8 - [#991.8] | EN+20 |
| ^SCE("ADFN" | ENCDT+10, ENCDT+11 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | ADMDIS+5~ |
| DFN | KILL+1!, ADMDIS~, ENCDT~, ENCDT+7, ENCDT+10, ENCDT+11, SETMSG+1*, LOCICN~, LOCICN+12, LOCICN+15 |
| DUZ | EMAIL+4 |
| FLAG | LOCICN+10~*, LOCICN+12*, LOCICN+15*, LOCICN+17 |
| ICN | LOCICN~, LOCICN+11, LOCICN+12 |
| INPDT | ENCDT~, ENCDT+10 |
| RGADMDIS | EN1+11*, EN1+12*, EN1+13, KILL+1! |
| RGARY | EMAIL+3~ |
| RGARY(1 | EMAIL+9*, EMAIL+10*, EMAIL+11*, EMAIL+12* |
| RGCNT | EN+24*, EN+34*, KILL+1!, EMAIL+10, EMAIL+12 |
| RGDATA | ENCDT+8!, ENCDT+13, ENCDT+15!, ENCDT+18! |
| RGDATE | EN1+18*, EN1+23, KILL+1! |
| RGDFN | EN+32*, EN+33*, EN1~, EN1+8, EN1+11, EN1+13, EN1+23, KILL+1!, SETMSG+1 |
| RGELAPS | EMAIL+3~, EMAIL+8*, EMAIL+11 |
| RGENCDT | EN1+13*, EN1+16, EN1+17, KILL+1! |
| RGENVR | EN1+23, KILL+1!, SETMSG+2* |
| RGFDA | EN+40!, KILL+1! |
| RGFDA( | EN+40* |
| RGFIN | EN+37*, KILL+1!, EMAIL+6, EMAIL+8 |
| RGICN | EN+27*, EN+31*, EN+33, EN+35, EN1+8, KILL+1! |
| RGLAST | EN1+11*, EN1+13, EN1+16*, EN1+17*, EN1+18, KILL+2! |
| RGMIN | EMAIL+3~, EMAIL+6*, EMAIL+7*, EMAIL+12 |
| RGPARSE | ENCDT+15! |
| RGPARSE( | ENCDT+14 |
| RGPURGE | ENCDT+8!, ENCDT+18! |
| RGSAVE | EN+35*, KILL+2! |
| RGSITE | EN+23*, EN1+10*, EN1+23, KILL+2! |
| RGSTRT | EN+24*, KILL+2!, EMAIL+6, EMAIL+8 |
| RGSUP | EN1~, EN1+23 |
| RGTYPE | EN1+18*, KILL+2!, SETMSG+2 |
| RGX | ENCDT+8!, ENCDT+9*, ENCDT+10*, ENCDT+11, ENCDT+14, ENCDT+18! |
| RGX1 | ENCDT+8!, ENCDT+11*, ENCDT+12, ENCDT+18! |
| RGX2 | ENCDT+8!, ENCDT+9*, ENCDT+10, ENCDT+11, ENCDT+14*, ENCDT+18! |
| RGX3 | ENCDT+8~, ENCDT+9*, ENCDT+14*, ENCDT+19 |
| U | EN+23*, EN1+9*, EN1+16, EN1+17, EN1+23, ADMDIS+8, ADMDIS+10 |
| VAERR | ADMDIS+5~ |
| VAIP | ADMDIS+5~ |
| VAIP("D" | ADMDIS+5* |
| VAIP(13 | ADMDIS+6, ADMDIS+8, ADMDIS+10, ADMDIS+12, ADMDIS+14 |
| VAIP(17 | ADMDIS+6, ADMDIS+8, ADMDIS+10, ADMDIS+12 |
| XMDUZ | EMAIL+4*, EMAIL+13! |
| XMSUB | EMAIL+5*, EMAIL+13! |
| XMTEXT | EMAIL+4*, EMAIL+13! |
| XMY | EMAIL+13! |
| XMY( | EMAIL+4* |
| >> XPDNM | EN+27, EN+35, EN1+28 |
| >> ZTQUEUED | EN+22 |
| >> ZTREQ | EN+22* |
