Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: DGPFMPI

DGPFMPI.m

Go to the documentation of this file.
  1. DGPFMPI ;BP/DMR - PRF TRANSMISSION CALL FOR MPI
  1. ;;5.3;Registration;**864**;Aug 13, 1993;Build 16
  1. ;
  1. ;Routine to transmit PRF, used by MPI during the the patient load/edit
  1. ;process or as a standalone routine.
  1. ;
  1. ;INPUT - DFN
  1. ;
  1. EN(DFN) ;
  1. ;
  1. Q:$G(DFN)'>0 0
  1. ;
  1. N DGINST,DGTRANS,DGTF,DGTF2
  1. S DGTRANS=0,DGTF2=""
  1. ;
  1. I $$BLDTFL^DGPFUT2(DFN,.DGTF) D G EXIT
  1. . D SITE
  1. . S DGINST=0
  1. . F S DGINST=$O(DGTF2(DGINST)) Q:+$G(DGINST)'>0 D
  1. . . S DGTRANS=$$SNDQRY^DGPFHLS(DFN,$$QRYON^DGPFPARM(),DGINST)
  1. ;
  1. EXIT ;
  1. Q DGTRANS
  1. ;
  1. ;Call to run in background, without displaying patient information.
  1. ;
  1. EN1(DFN) ;
  1. ;
  1. Q:$G(DFN)'>0 0
  1. ;
  1. N DGTF,DGINST,DGTRANS,DGMODE,DGTF2
  1. S DGMODE=2
  1. S DGTRANS=0,DGTF2=""
  1. ;
  1. I $$BLDTFL^DGPFUT2(DFN,.DGTF) D G EXIT1
  1. . D SITE
  1. . S DGINST=0
  1. . F S DGINST=$O(DGTF2(DGINST)) Q:+$G(DGINST)'>0 D
  1. . . S DGTRANS=$$SNDQRY^DGPFHLS(DFN,DGMODE,DGINST)
  1. ;
  1. EXIT1 ;
  1. Q DGTRANS
  1. ;
  1. SITE ;
  1. N FAC,IEN
  1. ;
  1. S FAC=0,IEN=0
  1. F S FAC=$O(DGTF(FAC)) Q:+$G(FAC)'>0 D
  1. . S IEN=$$GET1^DIQ(4,FAC,99) Q:+IEN'>0 D
  1. . . S DGTF2(IEN)=DGTF(FAC)
  1. Q