IAs for VAFCTFU utilities    ICR (2988)

MPI Vista is requesting a DBIA with Registration to
call DELALLTF^VAFCTFU to remove all associated treating facilities for a
patient who's ICN has been inactivated.

DELALLTF(PAT)   ;Entry point to delete all Treating Facilities for a single
patient.
;INPUT  PAT - The patient's ICN
;OUTPUT 0 (zero) - If no errors
;       1^error description if an error

MPI/PD is requesting an IA with Registration to call FILE^VAFCTFU.  This
subroutine is used to file data into the TREATING FACILITY LIST (TFL -
#391.91) file (via the ADT/HL7 PIVOT file) under certain conditions.

FILE(PDFN,FSTRG,TICN)   ;this module files the individual entry
input: PDFN - patient dfn
FSTRG- string, three pieces delimited by an '^'
1st piece: treating facility
2nd piece: last treatment date for the patient
3rd piece: Event Reason (ADT/HL7 EVENT REASON
#391.72) file
TICN - boolean flag, do not update the TFL file
(via the PIVOT file) if TICN equals one.

MPI/PD needs to expand this DBIA to include a call to DELETE^VAFCTFU.  This
call is necessary to address the issue of duplicate treating facilities
assigned to a patient, therefore the variable being passed is the internal
entry number in TREATING FACILITY LIST FILE (#391.91) not the IEN for a site
that the other calls are using.

DELETE(TFIEN)   ;the actual deletion code
;
K DIK,DA
S DIK="^DGCN(391.91,"
S DA=TFIEN
D ^DIK K DIK,DA
Q

• FILE
• DELALLTF
• DELETE