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

DGENRPB2.m

Go to the documentation of this file.
  1. DGENRPB2 ;ALB/CJM - Pending Applications for Enrollment Report Cont.; May 4, 1998
  1. ;;5.3;Registration;**147,232**;Aug 13,1993
  1. ;
  1. PRINT ;
  1. N STATS,CRT,QUIT,PAGE1
  1. K ^TMP($J)
  1. S QUIT=0
  1. S PAGE1=1
  1. S CRT=$S($E(IOST,1,2)="C-":1,1:0)
  1. ;
  1. D GETPAT
  1. U IO
  1. I CRT,PAGE1 W @IOF S PAGE1=0
  1. D HEADER
  1. ;
  1. D PRNTPATS
  1. I CRT,'QUIT D PAUSE
  1. I $D(ZTQUEUED) S ZTREQ="@"
  1. D ^%ZISC
  1. K ^TMP($J)
  1. Q
  1. LINE(LINE) ;
  1. ;Description: prints a line. First prints header if at end of page.
  1. ;
  1. I CRT,($Y>(IOSL-4)) D
  1. .D PAUSE
  1. .Q:QUIT
  1. .W @IOF
  1. .D HEADER
  1. .W LINE
  1. ;
  1. E I ('CRT),($Y>(IOSL-2)) D
  1. .W @IOF
  1. .D HEADER
  1. .W LINE
  1. ;
  1. E W !,LINE
  1. Q
  1. ;
  1. GETPAT ;
  1. ;Description: Gets patients to include in the report
  1. ;for that reason
  1. ;
  1. N DFN,STATUS,I,DGENRIEN,DGENR,EFFDATE
  1. S STATUS=""
  1. F S STATUS=$O(^DPT("AENRC",STATUS)) Q:STATUS="" D
  1. .S DFN=0
  1. .F S DFN=$O(^DPT("AENRC",STATUS,DFN)) Q:'DFN D
  1. ..S DGENRIEN=$$FINDCUR^DGENA(DFN)
  1. ..Q:'$$GET^DGENA(DGENRIEN,.DGENR)
  1. ..I $$CATEGORY^DGENA4(DFN)="P" D
  1. ...;
  1. ...N PREFAC,DGPFH,DGINST
  1. ...S PREFAC=$$PREF^DGENPTA(DFN)
  1. ...I PREFAC S DGPFH("PREFAC")=PREFAC,DGPFH("EFFDATE")=""
  1. ...I PREFAC,'$$GETINST^DGENU($G(DGPFH("PREFAC")),.DGINST) S PREFAC=""
  1. ...I (DGENINST("ALL")!$D(DGENINST(+PREFAC))),(DGENR("APP")>(DGENBEG-1)),(DGENR("APP")<(DGENEND+1)) D
  1. ....S ^TMP($J,$$LJ($G(DGINST("STANUM")),10)_$$LJ($G(DGINST("NAME")),45),DGENR("STATUS"),DGENR("APP"),DGENRIEN)=$G(DGPFH("EFFDATE"))
  1. Q
  1. ;
  1. ;Description: Prints the report header.
  1. ;
  1. N LINE
  1. W !,"Pending Applications For Enrollment - Enrollment Category is ""In Process"""
  1. W !,"Date Range: "_$$FMTE^XLFDT(DGENBEG)_" to "_$$FMTE^XLFDT(DGENEND)
  1. W ?50," Run Date: "_$$FMTE^XLFDT(DT)
  1. W !
  1. W !,"AppDt",?17,"Name",?64,"PatientID",?81,"DOB"
  1. S $P(LINE,"-",132)="-"
  1. W !,LINE
  1. Q
  1. ;
  1. PAUSE ;
  1. ;Description: Screen pause. Sets QUIT=1 if user decides to quit.
  1. ;
  1. N DIR,X,Y
  1. F Q:$Y>(IOSL-3) W !
  1. S DIR(0)="E" D ^DIR
  1. I ('(+Y))!$D(DIRUT) S QUIT=1
  1. Q
  1. ;
  1. PRNTPATS ;
  1. ;Description: Prints list of patients
  1. ;
  1. N PREFAC,APP,DGENRIEN,DGENR,DGPAT,LINE,STATUS
  1. S PREFAC=""
  1. F S PREFAC=$O(^TMP($J,PREFAC)) Q:PREFAC="" D Q:QUIT
  1. .D LINE(" ") Q:QUIT
  1. .D LINE("PREFERRED FACILITY: "_$S('(+PREFAC):"none",1:PREFAC)_" "_$G(^TMP($J,PREFAC))) Q:QUIT
  1. .S STATUS=""
  1. .F S STATUS=$O(^TMP($J,PREFAC,STATUS)) Q:STATUS="" D
  1. ..D LINE(" ") Q:QUIT
  1. ..D LINE(" ENROLLMENT STATUS: "_$$STATUS(STATUS)) Q:QUIT
  1. ..S APP=""
  1. ..F S APP=$O(^TMP($J,PREFAC,STATUS,APP)) Q:'APP D Q:QUIT
  1. ...S DGENRIEN=0
  1. ...F S DGENRIEN=$O(^TMP($J,PREFAC,STATUS,APP,DGENRIEN)) Q:'DGENRIEN D Q:QUIT
  1. ....Q:'$$GET^DGENA(DGENRIEN,.DGENR)
  1. ....Q:'$$GET^DGENPTA(DGENR("DFN"),.DGPAT)
  1. ....S LINE=$$LJ($$DATE(APP),12)_" "_$$LJ(DGPAT("NAME"),45)_" "
  1. ....S LINE=LINE_$$LJ(DGPAT("PID"),15)_" "_$$LJ($$DATE(DGPAT("DOB")),12)
  1. ....D LINE(LINE)
  1. Q
  1. ;
  1. STATUS(STATUS) ;
  1. ;Description: Returns status name.
  1. ;
  1. Q $$LOWER^VALM1($$EXT^DGENU("STATUS",STATUS))
  1. ;
  1. DATE(DATE) ;
  1. Q $$FMTE^XLFDT(DATE,"1")
  1. ;
  1. LJ(STRING,LENGTH) ;
  1. Q $$LJ^XLFSTR($E(STRING,1,LENGTH),LENGTH)