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

DGFFPLM.m

Go to the documentation of this file.
  1. DGFFPLM ; ALB/GAH - FUGITIVE FELON PROGRAM LM INQUIRY ; 10-10-2006
  1. ;;5.3;Registration;**485,725**;Aug 13, 1993;Build 12
  1. EN ; -- main entry point for DGFFP PATIENT STATUS INQUIRY
  1. N DFN,VALMCNT
  1. ;
  1. D SEL^DGFFPLM1(.DFN)
  1. Q:DFN'>0
  1. D EN^VALM("DGFFP PATIENT STATUS INQUIRY")
  1. Q
  1. ;
  1. HDR ; -- header code
  1. N VA,X
  1. ;
  1. D PID^VADPT
  1. S VALMHDR(1)=$E("Patient: "_$P($G(^DPT(DFN,0)),U),1,30)_" ("_VA("PID")_")"
  1. S VALMHDR(2)=$S($D(^DPT("AXFFP",1,DFN)):"Fugitive Flag Set",1:"")
  1. S VALMHDR(3)=$$LASTACT(DFN)
  1. Q
  1. ;
  1. INIT ; -- init variables and list array
  1. N VALMBCK
  1. D BLD
  1. Q
  1. ;
  1. BLD ; Build patient fugitive felon program screen
  1. D CLEAN^VALM10
  1. K ^TMP("DGFFPLM",$J)
  1. ;
  1. D HDR
  1. D EN^DGFFPLM1(DFN,"DGFFPLM",1,.VALMCNT)
  1. Q
  1. ;
  1. HELP ; -- help code
  1. S X="?" D DISP^XQORM1 W !!
  1. Q
  1. ;
  1. EXIT ; -- exit code
  1. D CLEAN^VALM10
  1. D CLEAR^VALM1
  1. K ^TMP("DGFFPLM",$J)
  1. Q
  1. ;
  1. EXPND ; -- expand code
  1. Q
  1. ;
  1. LASTACT(DFN) ;
  1. N DGCLNME,DGDT,ERRCODE,NEWDAT,OLDDAT,RSLT,SDARRAY,SDCOUNT
  1. ;
  1. S DGDT=$$NOW^XLFDT
  1. S SDARRAY(4)=DFN
  1. S SDARRAY(1)=";"_DGDT
  1. S SDARRAY("FLDS")=1
  1. S SDCOUNT=$$SDAPI^SDAMA301(.SDARRAY) ;Get all appointments for the patient
  1. I SDCOUNT>0 D ;Get the last appointment date and client if records found
  1. . S DGCLN="",DGDT=0
  1. . F S DGCLN=$O(^TMP($J,"SDAMA301",DFN,DGCLN)) Q:DGCLN="" D
  1. . . S NEWDAT=+$O(^TMP($J,"SDAMA301",DFN,DGCLN,""),-1)
  1. . . I NEWDAT>DGDT S DGDT=NEWDAT,DGCLNME=DGCLN
  1. . S RSLT="Last Appointment: "_$$FMTE^XLFDT(DGDT,"1P")_" Clinic: "_DGCLNME
  1. I SDCOUNT<0 S ERRCODE=$O(^TMP($J,"SDAMA301","")) I ERRCODE'="" S RSLT="Last Appointment: "_$G(^TMP($J,"SDAMA301",ERRCODE))
  1. K ^TMP($J,"SDAMA301")
  1. Q $G(RSLT)
  1. ;
  1. PAT ; Entry point for DGFFP CHANGE PATIENT PROTOCOL
  1. ; Input - None
  1. ; Output - DFN Patient IEN
  1. ; VALMBCK R = Refresh screen
  1. ;
  1. N DGDFN
  1. S VALMBCK=""
  1. D FULL^VALM1
  1. ;
  1. ; Get new patient
  1. D SEL^DGFFPLM1(.DGDFN)
  1. ;
  1. I DGDFN>0 D
  1. . S DFN=DGDFN
  1. . D BLD^DGFFPLM
  1. S VALMBCK="R"
  1. Q