©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
VAFCTF ;BIR/DLR-Utility for capturing patient's Date Last Treated and Event Reason ;9/9/2002
Source file <VAFCTF.m>
| Package | Total | Call Graph |
|---|---|---|
| Registration | 3 | IN5^VADPT FILE^VAFCTFU $$SITE^VASITE |
| Uncategorized | 2 | $$ICNLC^MPIF001 EXC^RGHLLOG |
| Kernel | 1 | $$KSP^XUPARAM |
| Scheduling | 1 | (GETGEN,PARSE)^SDOE |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| 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 |
|
| ADMDIS(DFN) | ; find the patient's last admission and discharge dates if
; they exist. ; Input: DFN - ien of the patient (file 2) |
|
| EN1(VAFCDFN,VAFCSUP) | ; determine the LAST TREATMENT DATE for a single
; patient ; input: VAFCDFN - the dfn of the patient ; VAFCSUP - if 1, suppress add entries to the ADT HL7 PIVOT ; (#391.71) file for TF messaging - VAFCTFMF (optional) ; output: VAFCDATE - patient's DATE LAST TREATED ; VAFCENVR - event reason |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^SCE("ADFN" | ENCDT+10, ENCDT+11 |
| Name | Line Occurrences |
|---|---|
| $$ADMDIS | EN1+11 |
| $$ENCDT | EN1+13 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | ADMDIS+5~ |
| DFN | ADMDIS~, ENCDT~, ENCDT+7, ENCDT+10, ENCDT+11 |
| ERR | EN1+8~, EN1+26 |
| ERR( | EN1+26 |
| ICN | EN1+25~* |
| INPDT | ENCDT~, ENCDT+10 |
| STA | EN1+25~*, EN1+26 |
| U | EN1+9*, EN1+16, EN1+17, EN1+26, ADMDIS+8, ADMDIS+10 |
| VAERR | ADMDIS+5~ |
| VAFCADMD | EN1+8~, EN1+11*, EN1+12*, EN1+13 |
| VAFCDATA | ENCDT+8~, ENCDT+13, ENCDT+15!, ENCDT+18! |
| VAFCDATE | EN1+8~, EN1+18*, EN1+23*, EN1+24, EN1+26 |
| VAFCDFN | EN1~, EN1+11, EN1+13, EN1+25, EN1+26 |
| VAFCENDT | EN1+8~, EN1+13*, EN1+16, EN1+17 |
| VAFCENVR | EN1+8~, EN1+23*, EN1+24*, EN1+26 |
| VAFCLAST | EN1+8~, EN1+11*, EN1+13, EN1+16*, EN1+17*, EN1+18 |
| VAFCPARS | ENCDT+15! |
| VAFCPARS( | ENCDT+14 |
| VAFCPURG | ENCDT+8~, ENCDT+18! |
| VAFCSITE | EN1+8~, EN1+10*, EN1+26 |
| VAFCSUP | EN1~, EN1+26 |
| VAFCTYPE | EN1+8~, EN1+18*, EN1+24 |
| VAFCX | ENCDT+8~, ENCDT+9*, ENCDT+10*, ENCDT+11, ENCDT+14, ENCDT+18! |
| VAFCX1 | ENCDT+8~, ENCDT+11*, ENCDT+12, ENCDT+18! |
| VAFCX2 | ENCDT+8~, ENCDT+9*, ENCDT+10, ENCDT+11, ENCDT+14*, ENCDT+18! |
| VAFCX3 | ENCDT+8~, ENCDT+9*, ENCDT+14*, ENCDT+20*, ENCDT+21*, ENCDT+23*, ENCDT+24 |
| 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 |