GMTSPXEP ; SLC/SBW,KER - PCE Patient Education comp ; 08/27/2002
;;2.7;Health Summary;**8,10,28,35,56**;Oct 20, 1995
;
; External References
; DBIA 3063 EDUC^PXRHS08
; DBIA 10011 ^DIWP
;
PTED ; Patient Education
N GMTSOVT K ^TMP("PXPE",$J) S GMTSOVT="AICTSORXHDE"
;
; GMTSOVT is a sting containing a set of Service
; Categories for:
;
; Ambulatory A
; Inpatient I
; Chart Review C
; Telecommunications T
; Day Surgery S
; Observation O
; Nursing Home R
; Ancillary X
; Hospitalization H
; Daily Hospitalization Ancillary D
; Event-Historical E
;
D EDUC^PXRHS08(DFN,GMTSEND,GMTSBEG,GMTSNDM,GMTSOVT)
Q:'$D(^TMP("PXPE",$J)) D CKP^GMTSUP Q:$D(GMTSQIT) D HDR,EDMAIN
Q
MRPTED ; Most recent patient education
N GMTSOVT,LATEST K ^TMP("PXPE",$J) S LATEST="R",GMTSOVT="AICTSORXHDE"
;
; Returns most recent Patient Education Topic Types
; for time period. GMTSOVT is a sting containing a
; set of Service Categories for:
;
; Ambulatory A
; Inpatient I
; Chart Review C
; Telecommunications T
; Day Surgery S
; Observation O
; Nursing Home R
; Ancillary X
; Hospitalization H
; Daily Hospitalization Ancillary D
; Event-Historical E
;
D EDUC^PXRHS08(DFN,GMTSEND,GMTSBEG,LATEST,GMTSOVT)
Q:'$D(^TMP("PXPE",$J))
D CKP^GMTSUP Q:$D(GMTSQIT) D:GMTSNPG HDR
D EDMAIN
Q
HDR ; Header
W ?2,"Date",?12,"Facility",?25,"Topic - Understanding Level",!!
Q
EDMAIN ; Main Education Display
N GMDT,GMED,GMIFN,GMN0,GMN1,X,GMTSDAT,ED,LEVEL,GMSITE,PSITE,PDT,LTXT
N COMMENT,GMICL,GMTSLN,GMTAB
S GMDT=0
F S GMDT=$O(^TMP("PXPE",$J,GMDT)) Q:GMDT'>0 D Q:$D(GMTSQIT)
. S GMED=""
. F S GMED=$O(^TMP("PXPE",$J,GMDT,GMED)) Q:GMED']"" D Q:$D(GMTSQIT)
. . S GMIFN=0
. . F S GMIFN=$O(^TMP("PXPE",$J,GMDT,GMED,GMIFN)) Q:GMIFN'>0 D Q:$D(GMTSQIT)
. . . S GMN0=$G(^TMP("PXPE",$J,GMDT,GMED,GMIFN,0))
. . . Q:GMN0']""
. . . S GMN1=$G(^TMP("PXPE",$J,GMDT,GMED,GMIFN,1))
. . . S GMSITE=$S($P(GMN1,U,3)]"":$E($P(GMN1,U,3),1,10),$P(GMN1,U,4)]"":$E($P(GMN1,U,4),1,10),1:"No Site")
. . . S X=$P(GMN0,U,2) D REGDT4^GMTSU S GMTSDAT=X
. . . S LTXT="",ED=$P(GMN0,U),LEVEL=$P(GMN0,U,3)
. . . I LEVEL]"" S LTXT=" - "_LEVEL
. . . I LEVEL="POOR"!(LEVEL="FAIR")!(LEVEL="GOOD") S LTXT=LTXT_" UNDERSTANDING"
. . . D CKP^GMTSUP Q:$D(GMTSQIT) D:GMTSNPG HDR
. . . I GMTSDAT'=$G(PDT)!GMTSNPG W GMTSDAT S PDT=GMTSDAT,PSITE=""
. . . I GMSITE'=$G(PSITE) W ?12,GMSITE S PSITE=GMSITE
. . . W ?25,ED,$G(LTXT),!
. . . S COMMENT="",COMMENT=$P(^TMP("PXPE",$J,GMDT,GMED,GMIFN,"COM"),U)
. . . I COMMENT]"" S GMICL=26,GMTAB=2 D FORMAT I $D(^UTILITY($J,"W")) D
. . . . F GMTSLN=1:1:^UTILITY($J,"W",DIWL) D LINE Q:$D(GMTSQIT)
K ^TMP("PXPE",$J)
Q
FORMAT ; Format Line
N DIWR,DIWF,X S DIWL=3,DIWR=80-(GMICL+GMTAB)
K ^UTILITY($J,"W") S X=COMMENT D ^DIWP
Q
LINE ; Write Line
D CKP^GMTSUP Q:$D(GMTSQIT) W ?26,^UTILITY($J,"W",DIWL,GMTSLN,0),!
Q
GMTSPXEP ; SLC/SBW,KER - PCE Patient Education comp ; 08/27/2002
+1 ;;2.7;Health Summary;**8,10,28,35,56**;Oct 20, 1995
+2 ;
+3 ; External References
+4 ; DBIA 3063 EDUC^PXRHS08
+5 ; DBIA 10011 ^DIWP
+6 ;
PTED ; Patient Education
+1 NEW GMTSOVT
KILL ^TMP("PXPE",$JOB)
SET GMTSOVT="AICTSORXHDE"
+2 ;
+3 ; GMTSOVT is a sting containing a set of Service
+4 ; Categories for:
+5 ;
+6 ; Ambulatory A
+7 ; Inpatient I
+8 ; Chart Review C
+9 ; Telecommunications T
+10 ; Day Surgery S
+11 ; Observation O
+12 ; Nursing Home R
+13 ; Ancillary X
+14 ; Hospitalization H
+15 ; Daily Hospitalization Ancillary D
+16 ; Event-Historical E
+17 ;
+18 DO EDUC^PXRHS08(DFN,GMTSEND,GMTSBEG,GMTSNDM,GMTSOVT)
+19 IF '$DATA(^TMP("PXPE",$JOB))
QUIT
DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
DO HDR
DO EDMAIN
+20 QUIT
MRPTED ; Most recent patient education
+1 NEW GMTSOVT,LATEST
KILL ^TMP("PXPE",$JOB)
SET LATEST="R"
SET GMTSOVT="AICTSORXHDE"
+2 ;
+3 ; Returns most recent Patient Education Topic Types
+4 ; for time period. GMTSOVT is a sting containing a
+5 ; set of Service Categories for:
+6 ;
+7 ; Ambulatory A
+8 ; Inpatient I
+9 ; Chart Review C
+10 ; Telecommunications T
+11 ; Day Surgery S
+12 ; Observation O
+13 ; Nursing Home R
+14 ; Ancillary X
+15 ; Hospitalization H
+16 ; Daily Hospitalization Ancillary D
+17 ; Event-Historical E
+18 ;
+19 DO EDUC^PXRHS08(DFN,GMTSEND,GMTSBEG,LATEST,GMTSOVT)
+20 IF '$DATA(^TMP("PXPE",$JOB))
QUIT
+21 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
IF GMTSNPG
DO HDR
+22 DO EDMAIN
+23 QUIT
HDR ; Header
+1 WRITE ?2,"Date",?12,"Facility",?25,"Topic - Understanding Level",!!
+2 QUIT
EDMAIN ; Main Education Display
+1 NEW GMDT,GMED,GMIFN,GMN0,GMN1,X,GMTSDAT,ED,LEVEL,GMSITE,PSITE,PDT,LTXT
+2 NEW COMMENT,GMICL,GMTSLN,GMTAB
+3 SET GMDT=0
+4 FOR
SET GMDT=$ORDER(^TMP("PXPE",$JOB,GMDT))
IF GMDT'>0
QUIT
Begin DoDot:1
+5 SET GMED=""
+6 FOR
SET GMED=$ORDER(^TMP("PXPE",$JOB,GMDT,GMED))
IF GMED']""
QUIT
Begin DoDot:2
+7 SET GMIFN=0
+8 FOR
SET GMIFN=$ORDER(^TMP("PXPE",$JOB,GMDT,GMED,GMIFN))
IF GMIFN'>0
QUIT
Begin DoDot:3
+9 SET GMN0=$GET(^TMP("PXPE",$JOB,GMDT,GMED,GMIFN,0))
+10 IF GMN0']""
QUIT
+11 SET GMN1=$GET(^TMP("PXPE",$JOB,GMDT,GMED,GMIFN,1))
+12 SET GMSITE=$SELECT($PIECE(GMN1,U,3)]"":$EXTRACT($PIECE(GMN1,U,3),1,10),$PIECE(GMN1,U,4)]"":$EXTRACT($PIECE(GMN1,U,4),1,10),1:"No Site")
+13 SET X=$PIECE(GMN0,U,2)
DO REGDT4^GMTSU
SET GMTSDAT=X
+14 SET LTXT=""
SET ED=$PIECE(GMN0,U)
SET LEVEL=$PIECE(GMN0,U,3)
+15 IF LEVEL]""
SET LTXT=" - "_LEVEL
+16 IF LEVEL="POOR"!(LEVEL="FAIR")!(LEVEL="GOOD")
SET LTXT=LTXT_" UNDERSTANDING"
+17 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
IF GMTSNPG
DO HDR
+18 IF GMTSDAT'=$GET(PDT)!GMTSNPG
WRITE GMTSDAT
SET PDT=GMTSDAT
SET PSITE=""
+19 IF GMSITE'=$GET(PSITE)
WRITE ?12,GMSITE
SET PSITE=GMSITE
+20 WRITE ?25,ED,$GET(LTXT),!
+21 SET COMMENT=""
SET COMMENT=$PIECE(^TMP("PXPE",$JOB,GMDT,GMED,GMIFN,"COM"),U)
+22 IF COMMENT]""
SET GMICL=26
SET GMTAB=2
DO FORMAT
IF $DATA(^UTILITY($JOB,"W"))
Begin DoDot:4
+23 FOR GMTSLN=1:1:^UTILITY($JOB,"W",DIWL)
DO LINE
IF $DATA(GMTSQIT)
QUIT
End DoDot:4
End DoDot:3
IF $DATA(GMTSQIT)
QUIT
End DoDot:2
IF $DATA(GMTSQIT)
QUIT
End DoDot:1
IF $DATA(GMTSQIT)
QUIT
+24 KILL ^TMP("PXPE",$JOB)
+25 QUIT
FORMAT ; Format Line
+1 NEW DIWR,DIWF,X
SET DIWL=3
SET DIWR=80-(GMICL+GMTAB)
+2 KILL ^UTILITY($JOB,"W")
SET X=COMMENT
DO ^DIWP
+3 QUIT
LINE ; Write Line
+1 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
WRITE ?26,^UTILITY($JOB,"W",DIWL,GMTSLN,0),!
+2 QUIT
