119 lines
5.3 KiB
Mathematica
119 lines
5.3 KiB
Mathematica
GMPLDISP ; SLC/MKB -- Problem List detailed display ; 04/15/2002
|
|
;;2.0;Problem List;**21,26**;Aug 25, 1994
|
|
;
|
|
; External References
|
|
; DBIA 3106 ^DIC(49
|
|
; DBIA 10082 ^ICD9( file 80
|
|
; DBIA 10040 ^SC( file 44
|
|
; DBIA 10060 ^VA(200
|
|
; DBIA 10116 $$SETSTR^VALM1
|
|
; DBIA 10117 CLEAN^VALM10
|
|
; DBIA 10117 CNTRL^VALM10
|
|
; DBIA 10103 $$FMTE^XLFDT
|
|
; DBIA 10103 $$HTFM^XLFDT
|
|
; DBIA 10104 $$REPEAT^XLFSTR
|
|
;
|
|
EN ; Init Variables (need GMPLSEL,GMPLNO) and List Array
|
|
G:'$D(GMPLSEL) ERROR G:'$G(GMPLNO) ERROR
|
|
S GMPI=+$G(GMPI)+1 I GMPI>GMPLNO D Q
|
|
. W !!,"There are no more problems that have been selected to view!",! S VALMBCK="" H 2
|
|
S GMPLNUM=$P(GMPLSEL,",",GMPI) G:GMPLNUM'>0 ERROR
|
|
S GMPIFN=$P($G(^TMP("GMPLIDX",$J,+GMPLNUM)),U,2) G:GMPIFN'>0 ERROR
|
|
W !!,"Retrieving current data for problem #"_GMPLNUM_" ...",!
|
|
;
|
|
PROB ; Display problem GMPIFN
|
|
N LINE,STR,I,TEXT,NOTE,GMPL0,GMPL1,X,Y,IDT,FAC,AIFN,SP,LCNT,NIFN
|
|
G:'$G(GMPIFN) ERROR D CLEAN^VALM10
|
|
S GMPL0=$G(^AUPNPROB(GMPIFN,0)),GMPL1=$G(^(1)),LCNT=1,SP=""
|
|
F I=11,12,13,15,16 S:+$P(GMPL1,U,I) SP=SP_$S(I=11:"AGENT ORANGE",I=12:"RADIATION",I=13:"ENV CONTAMINANTS",I=15:"HEAD/NECK CANCER",1:"MIL SEXUAL TRAUMA")_U
|
|
F Q:$E(SP,$L(SP))'="^" S SP=$E(SP,1,($L(SP)-1))
|
|
D WRAP^GMPLX($$PROBTEXT^GMPLX(GMPIFN),65,.TEXT)
|
|
S GMPDT(LCNT,0)=" Problem: "_TEXT(1)
|
|
I TEXT>1 F I=2:1:TEXT S LCNT=LCNT+1,GMPDT(LCNT,0)=TEXT(I)
|
|
S LCNT=LCNT+1,GMPDT(LCNT,0)=" "
|
|
PR1 ; Onset
|
|
; SC Condition
|
|
; Status
|
|
; Exposure
|
|
; Provider
|
|
; Service/Clinic
|
|
S LINE=" Onset: "_$S($P(GMPL0,U,13):$$EXTDT^GMPLX($P(GMPL0,U,13)),1:"date unknown"),STR=""
|
|
S:GMPVA STR="SC Condition: "_$S(+$P(GMPL1,U,10):"YES",$P(GMPL1,U,10)=0:"NO",1:"unknown")
|
|
S LINE=$$SETSTR^VALM1(STR,LINE,49,30),LCNT=LCNT+1,GMPDT(LCNT,0)=LINE
|
|
S X=$P(GMPL0,U,12),LINE=" Status: "_$S(X="A":"ACTIVE",1:"INACTIVE")
|
|
I X="A",$L($P(GMPL1,U,14)) S LINE=LINE_"/"_$S($P(GMPL1,U,14)="A":"ACUTE",1:"CHRONIC")
|
|
I X="I",$P(GMPL1,U,7) S LINE=LINE_", Resolved "_$$EXTDT^GMPLX($P(GMPL1,U,7))
|
|
S STR="",LCNT=LCNT+1
|
|
S:GMPVA STR=" Exposure: "_$S('$L(SP):"none",1:$P(SP,U))
|
|
S LINE=$$SETSTR^VALM1(STR,LINE,49,30),GMPDT(LCNT,0)=LINE
|
|
S LINE=" Provider: "_$P($G(^VA(200,+$P(GMPL1,U,5),0)),U),LCNT=LCNT+1,STR=""
|
|
I GMPVA,$L(SP,U)>1 S STR=$P(SP,U,2)
|
|
S LINE=$$SETSTR^VALM1(STR,LINE,63,16),GMPDT(LCNT,0)=LINE
|
|
I $E(GMPLVIEW("VIEW"))="S" S LINE=" Service: "_$P($G(^DIC(49,+$P(GMPL1,U,6),0)),U)
|
|
E S LINE=" Clinic: "_$P($G(^SC(+$P(GMPL1,U,8),0)),U)
|
|
S LCNT=LCNT+1,STR="" I GMPVA,$L(SP,U)>2 S STR=$P(SP,U,3)
|
|
S LINE=$$SETSTR^VALM1(STR,LINE,63,16),GMPDT(LCNT,0)=LINE
|
|
S LCNT=LCNT+1,GMPDT(LCNT,0)=" "
|
|
PR2 ; Recorded
|
|
; Entered
|
|
; Provider Narrative
|
|
; ICD code
|
|
S LINE=" Recorded: "_$S($P(GMPL1,U,9):$$EXTDT^GMPLX($P(GMPL1,U,9)),1:"date unknown")
|
|
S:$P(GMPL1,U,4) LINE=LINE_", by "_$P($G(^VA(200,+$P(GMPL1,U,4),0)),U)
|
|
S LCNT=LCNT+1,GMPDT(LCNT,0)=LINE
|
|
S LINE=" Entered: "_$$EXTDT^GMPLX($P(GMPL0,U,8))
|
|
S LINE=LINE_", by "_$P($G(^VA(200,+$P(GMPL1,U,3),0)),U),LCNT=LCNT+1
|
|
S:GMPARAM("VER")&($P(GMPL1,U,2)="T") LINE=LINE_" <unconfirmed>"
|
|
S GMPDT(LCNT,0)=LINE
|
|
S LINE=" ICD Code: "_$P($G(^ICD9(+GMPL0,0)),U),LCNT=LCNT+1,GMPDT(LCNT,0)=LINE
|
|
S LCNT=LCNT+1,GMPDT(LCNT,0)=" "
|
|
PR3 ; Comments
|
|
S LCNT=LCNT+1,GMPDT(LCNT,0)="Comments:"
|
|
D CNTRL^VALM10(LCNT,1,8,IOUON,IOUOFF)
|
|
; By Facility
|
|
F FAC=0:0 S FAC=$O(^AUPNPROB(GMPIFN,11,FAC)) Q:+FAC'>0 D
|
|
. I 'FAC S LCNT=LCNT+1,GMPDT(LCNT,0)=" <None>" G PR4
|
|
. F NIFN=0:0 S NIFN=$O(^AUPNPROB(GMPIFN,11,FAC,11,NIFN)) Q:+NIFN'>0 D
|
|
. . S NOTE=$G(^AUPNPROB(GMPIFN,11,FAC,11,NIFN,0)) Q:NOTE=""
|
|
. . S LINE=$J($$EXTDT^GMPLX($P(NOTE,U,5)),10)_": "_$P(NOTE,U,3)
|
|
. . S LCNT=LCNT+1,GMPDT(LCNT,0)=LINE
|
|
. . I $P(NOTE,U,6) S LINE=" "_$P($G(^VA(200,+$P(NOTE,U,6),0)),U),LCNT=LCNT+1,GMPDT(LCNT,0)=LINE
|
|
S:'($G(NOTE)) LCNT=LCNT+1,GMPDT(LCNT,0)=" <None>"
|
|
PR4 ; Audit Trail
|
|
S LCNT=LCNT+1,GMPDT(LCNT,0)=" "
|
|
S LCNT=LCNT+1,GMPDT(LCNT,0)="History:"
|
|
D CNTRL^VALM10(LCNT,1,7,IOUON,IOUOFF)
|
|
I '$D(^GMPL(125.8,"B",GMPIFN)) S LCNT=LCNT+1,GMPDT(LCNT,0)=" <No changes>" G PRQ
|
|
F IDT=0:0 S IDT=$O(^GMPL(125.8,"AD",GMPIFN,IDT)) Q:IDT'>0 D
|
|
. F AIFN=0:0 S AIFN=$O(^GMPL(125.8,"AD",GMPIFN,IDT,AIFN)) Q:AIFN'>0 D DT^GMPLHIST
|
|
PRQ ; Header Node
|
|
S VALMCNT=LCNT,GMPDT(0)=VALMCNT,VALMSG=$$MSG^GMPLX,VALMBG=1,VALMBCK="R"
|
|
Q
|
|
;
|
|
HDR ; Header Code (uses GMPDFN, GMPIFN)
|
|
N LASTMOD,PAT S PAT=$P(GMPDFN,U,2)_" ("_$P(GMPDFN,U,3)_")"
|
|
S LASTMOD=$S($G(GMPIFN):$P(^AUPNPROB(GMPIFN,0),U,3),1:$E($$HTFM^XLFDT($H),1,12))
|
|
S LASTMOD="Last Updated: "_$$FMTE^XLFDT(LASTMOD)
|
|
S VALMHDR(1)=PAT_$$REPEAT^XLFSTR(" ",(79-$L(PAT)-$L(LASTMOD)))_LASTMOD
|
|
Q
|
|
;
|
|
HELP ; Help Code
|
|
N X W !!?4,"You may view detailed information here on this problem;"
|
|
W !?4,"more data may be available by entering 'Next Screen'."
|
|
W !?4,"If you have selected multiple problems to view, you may"
|
|
W !?4,"enter 'Continue to Next Selected Problem'; to return to"
|
|
W !?4,"the patient's problem list, enter 'Quit to Problem List'."
|
|
W !!,"Press <return> to continue ... " R X:DTIME
|
|
S VALMSG=$$MSG^GMPLX,VALMBCK=$S(VALMCC:"",1:"R")
|
|
Q
|
|
;
|
|
DEFLT() ; Default Action, using GMPI and GMPLNO
|
|
I GMPI<GMPLNO Q "Continue to Next Selected Problem"
|
|
Q "Quit to Problem List"
|
|
;
|
|
ERROR ; Error Message - drop into EXIT
|
|
W !!,"ERROR -- Cannot continue ... Returning to Problem List.",!
|
|
S VALMBCK="Q" H 1
|
|
EXIT ; Exit Code
|
|
K GMPDT Q
|