200 lines
9.2 KiB
Mathematica
200 lines
9.2 KiB
Mathematica
GMPLUTL2 ; SLC/MKB/KER -- PL Utilities (OE/TIU) ; 04/15/2002
|
|
;;2.0;Problem List;**10,18,21,26**;Aug 25, 1994
|
|
;
|
|
; External References
|
|
; DBIA 348 ^DPT( file #2
|
|
; DBIA 10082 ^ICD9( file #80
|
|
; DBIA 10040 ^SC( file #44
|
|
; DBIA 10060 ^VA(200
|
|
; DBIA 2716 $$GETSTAT^DGMSTAPI
|
|
; DBIA 3457 $$GETCUR^DGNTAPI
|
|
; DBIA 10062 7^VADPT
|
|
; DBIA 10062 DEM^VADPT
|
|
; DBIA 10118 EN^VALM
|
|
; DBIA 10116 CLEAR^VALM1
|
|
; DBIA 10103 $$HTFM^XLFDT
|
|
;
|
|
LIST(GMPL,GMPDFN,GMPSTAT,GMPCOMM) ; Returns list of Problems for Patient
|
|
;
|
|
; Input GMPDFN Pointer to Patient file #2
|
|
; GMPCOMP Display Comments 1/0
|
|
; GMTSTAT Status A/I/""
|
|
;
|
|
; Output GMPL Array, passed by reference
|
|
; GMPL(#)
|
|
; Piece 1: Pointer to Problem #9000011
|
|
; 2: Status
|
|
; 3: Description
|
|
; 4: ICD-9 code
|
|
; 5: Date of Onset
|
|
; 6: Date Last Modified
|
|
; 7: Service Connected
|
|
; 8: Special Exposures
|
|
; GMPL(#,C#) Comments
|
|
; GMPL(0) Number of Problems Returned
|
|
;
|
|
N I,IFN,CNT,GMPL0,GMPL1,SP,ST,NUM,ONSET,ICD,LASTMOD,SC,GMPLIST,GMPLVIEW,GMPARAM,GMPTOTAL
|
|
Q:$G(GMPDFN)'>0 S CNT=0,SP=""
|
|
S GMPARAM("QUIET")=1,GMPARAM("REV")=$P($G(^GMPL(125.99,1,0)),U,5)="R"
|
|
S GMPLVIEW("ACT")=GMPSTAT,GMPLVIEW("PROV")=0,GMPLVIEW("VIEW")=""
|
|
D GETPLIST^GMPLMGR1(.GMPLIST,.GMPTOTAL,.GMPLVIEW)
|
|
F NUM=0:0 S NUM=$O(GMPLIST(NUM)) Q:NUM'>0 D
|
|
. S IFN=+GMPLIST(NUM) Q:IFN'>0
|
|
. S GMPL0=$G(^AUPNPROB(IFN,0)),GMPL1=$G(^(1)),CNT=CNT+1
|
|
. S ICD=$P($G(^ICD9(+GMPL0,0)),U),LASTMOD=$P(GMPL0,U,3)
|
|
. S ST=$P(GMPL0,U,12),ONSET=$P(GMPL0,U,13)
|
|
. S SC=$S(+$P(GMPL1,U,10):"SC",$P(GMPL1,U,10)=0:"NSC",1:"")
|
|
. N SCS D SCS^GMPLX1(IFN,.SCS) S SP=$G(SCS(3))
|
|
. S GMPL(CNT)=IFN_U_ST_U_$$PROBTEXT^GMPLX(IFN)_U_ICD_U_ONSET_U_LASTMOD_U_SC_U_SP_U_$S($P(GMPL1,U,14)="A":"*",1:"")_U_$S('$P($G(^GMPL(125.99,1,0)),U,2):"",$P(GMPL1,U,2)'="T":"",1:"$")
|
|
. I $G(GMPCOMM) D
|
|
. . N FAC,NIFN,NOTE,NOTECNT
|
|
. . S NOTECNT=0,FAC=0
|
|
. . F S FAC=$O(^AUPNPROB(IFN,11,FAC)) Q:+FAC'>0 D
|
|
. . . S NIFN=0
|
|
. . . F S NIFN=$O(^AUPNPROB(IFN,11,FAC,11,NIFN)) Q:NIFN'>0 D
|
|
. . . . S NOTE=$P($G(^AUPNPROB(IFN,11,FAC,11,NIFN,0)),U,3)
|
|
. . . . S NOTECNT=NOTECNT+1,GMPL(CNT,NOTECNT)=NOTE
|
|
S GMPL(0)=CNT
|
|
Q
|
|
;
|
|
DETAIL(IFN,GMPL) ; Returns Detailed Data for Problem
|
|
;
|
|
; Input IFN Pointer to Problem file #9000011
|
|
;
|
|
; Output GMPL Array, passed by reference
|
|
; GMPL("DATA NAME") = External Format of Value
|
|
;
|
|
; GMPL("DIAGNOSIS") ICD Code
|
|
; GMPL("PATIENT") Patient Name
|
|
; GMPL("MODIFIED") Date Last Modified
|
|
; GMPL("NARRATIVE") Provider Narrative
|
|
; GMPL("ENTERED") Date Entered ^ Entered by
|
|
; GMPL("STATUS") Status
|
|
; GMPL("PRIORITY") Priority Acute/Chronic
|
|
; GMPL("ONSET") Date of Onset
|
|
; GMPL("PROVIDER") Responsible Provider
|
|
; GMPL("RECORDED") Date Recorded ^ Recorded by
|
|
; GMPL("CLINIC") Hospital Location
|
|
; GMPL("SC") Service Connected SC/NSC/""
|
|
;
|
|
; GMPL("EXPOSURE") = #
|
|
; GMPL("EXPOSURE",X)="AGENT ORANGE"
|
|
; GMPL("EXPOSURE",X)="RADIATION"
|
|
; GMPL("EXPOSURE",X)="ENV CONTAMINANTS"
|
|
; GMPL("EXPOSURE",X)="HEAD AND/OR NECK CANCER"
|
|
; GMPL("EXPOSURE",X)="MILITARY SEXUAL TRAUMA"
|
|
;
|
|
; GMPL("COMMENT") = #
|
|
; GMPL("COMMENT",CNT) = Date ^ Author ^ Text of Note
|
|
;
|
|
N GMPL0,GMPL1,GMPLP,X,I,FAC,CNT,NIFN Q:'$D(^AUPNPROB(IFN,0))
|
|
S GMPLP=+($$PTR^GMPLUTL4),GMPL0=$G(^AUPNPROB(IFN,0)),GMPL1=$G(^(1))
|
|
S GMPL("DIAGNOSIS")=$P($G(^ICD9(+GMPL0,0)),U)
|
|
S GMPL("PATIENT")=$P($G(^DPT(+$P(GMPL0,U,2),0)),U)
|
|
S GMPL("MODIFIED")=$$EXTDT^GMPLX($P(GMPL0,U,3))
|
|
S GMPL("NARRATIVE")=$$PROBTEXT^GMPLX(IFN)
|
|
S GMPL("ENTERED")=$$EXTDT^GMPLX($P(GMPL0,U,8))_U_$P($G(^VA(200,+$P(GMPL1,U,3),0)),U)
|
|
S X=$P(GMPL0,U,12),GMPL("STATUS")=$S(X="A":"ACTIVE",1:"INACTIVE")
|
|
S X=$S(X'="A":"",1:$P(GMPL1,U,14)),GMPL("PRIORITY")=$S(X="A":"ACUTE",X="C":"CHRONIC",1:"")
|
|
S GMPL("ONSET")=$$EXTDT^GMPLX($P(GMPL0,U,13))
|
|
S GMPL("PROVIDER")=$P($G(^VA(200,+$P(GMPL1,U,5),0)),U)
|
|
S GMPL("RECORDED")=$$EXTDT^GMPLX($P(GMPL1,U,9))_U_$P($G(^VA(200,+$P(GMPL1,U,4),0)),U)
|
|
S GMPL("CLINIC")=$P($G(^SC(+$P(GMPL1,U,8),0)),U)
|
|
S GMPL("SC")=$S($P(GMPL1,U,10):"YES",$P(GMPL1,U,10)=0:"NO",1:"UNKNOWN")
|
|
S GMPL("EXPOSURE")=0
|
|
I $P(GMPL1,U,11) S X=GMPL("EXPOSURE")+1,GMPL("EXPOSURE",X)="AGENT ORANGE",GMPL("EXPOSURE")=X
|
|
I $P(GMPL1,U,12) S X=GMPL("EXPOSURE")+1,GMPL("EXPOSURE",X)="RADIATION",GMPL("EXPOSURE")=X
|
|
I $P(GMPL1,U,13) S X=GMPL("EXPOSURE")+1,GMPL("EXPOSURE",X)="ENV CONTAMINANTS",GMPL("EXPOSURE")=X
|
|
I $P(GMPL1,U,15) S X=GMPL("EXPOSURE")+1,GMPL("EXPOSURE",X)="HEAD AND/OR NECK CANCER",GMPL("EXPOSURE")=X
|
|
I $P(GMPL1,U,16)&(GMPLP'>0) S X=GMPL("EXPOSURE")+1,GMPL("EXPOSURE",X)="MILITARY SEXUAL TRAUMA",GMPL("EXPOSURE")=X
|
|
S (FAC,CNT)=0,GMPL("COMMENT")=0
|
|
F FAC=0:0 S FAC=$O(^AUPNPROB(IFN,11,FAC)) Q:+FAC'>0 D
|
|
. F NIFN=0:0 S NIFN=$O(^AUPNPROB(IFN,11,FAC,11,NIFN)) Q:NIFN'>0 D
|
|
. . S X=$G(^AUPNPROB(IFN,11,FAC,11,NIFN,0))
|
|
. . S CNT=CNT+1,GMPL("COMMENT",CNT)=$$EXTDT^GMPLX($P(X,U,5))_U_$P($G(^VA(200,+$P(X,U,6),0)),U)_U_$P(X,U,3)
|
|
S GMPL("COMMENT")=CNT D AUDIT
|
|
Q
|
|
;
|
|
AUDIT ; 14 Sep 99 - MA - Add audit trail to OE Problem List.
|
|
; Called from DETAIL, requires IFN and sets GMPL("AUDIT")
|
|
N IDT,AIFN,X0,X1,FLD,CNT
|
|
S CNT=0,GMPL("AUDIT")=CNT
|
|
F IDT=0:0 S IDT=$O(^GMPL(125.8,"AD",IFN,IDT)) Q:IDT'>0 D
|
|
. F AIFN=0:0 S AIFN=$O(^GMPL(125.8,"AD",IFN,IDT,AIFN)) Q:AIFN'>0 D
|
|
.. S X0=$G(^GMPL(125.8,AIFN,0)),X1=$G(^(1)) Q:'$L(X0)
|
|
.. S FLD=$$FLDNAME(+$P(X0,U,2))
|
|
.. S CNT=CNT+1
|
|
.. S GMPL("AUDIT",CNT,0)=$P(X0,U,2)_U_FLD_U_$P(X0,U,3,8)
|
|
.. ; = pointer#^fld name^date mod^who mod^old^new^reason^prov
|
|
.. S:$L(X1) GMPL("AUDIT",CNT,1)=X1
|
|
S GMPL("AUDIT")=CNT
|
|
Q
|
|
;
|
|
FLDNAME(NUM) ; Returns field name for display
|
|
N NAME,NM1,NM2,I,J S J=0,NAME=""
|
|
S NM1=".01^.05^.12^.13^1.01^1.02^1.04^1.05^1.06^1.07^1.08^1.09^1.1^1.11^1.12^1.13^1.14^1101"
|
|
F I=1:1:$L(NM1,U) I +$P(NM1,U,I)=+NUM S J=I Q
|
|
G:J'>0 FNQ
|
|
S NM2="DIAGNOSIS^PROVIDER NARRATIVE^STATUS^DATE OF ONSET^PROBLEM^CONDITION^RECORDING PROVIDER^RESPONSIBLE PROVIDER^SERVICE^DATE RESOLVED^CLINIC^DATE RECORDED^SERVICE CONNECTED^AGENT ORANGE EXP^RADIATION EXP^ENV CONTAMINANTS EXP^PRIORITY^NOTE"
|
|
S NAME=$P(NM2,U,J)
|
|
FNQ Q NAME
|
|
;
|
|
ADD(DFN,LOC,GMPROV) ; -- Interactive LMgr action to add new problem
|
|
N X,Y,GMPDFN,GMPVA,GMPVAMC,GMPSC,GMPAGTOR,GMPION,GMPGULF,GMPHNC,GMPMST
|
|
N GMPARAM,GMPLVIEW,GMPLUSER,GMPCLIN,GMPLSLST,GMPQUIT,VALMCC,GMPSAVED
|
|
Q:'DFN Q:'LOC D SETVARS
|
|
S GMPLSLST=$P($G(^VA(200,DUZ,125)),U,2),VALMCC=0
|
|
I 'GMPLSLST,GMPCLIN,$D(^GMPL(125,"C",+GMPCLIN)) S GMPLSLST=$O(^(+GMPCLIN,0))
|
|
I GMPLSLST D Q
|
|
. S $P(GMPLSLST,U,2)=$P($G(^GMPL(125,+GMPLSLST,0)),U)
|
|
. D EN^VALM("GMPL LIST MENU")
|
|
F D ADD^GMPL1 Q:$D(GMPQUIT) K DUOUT,DTOUT,GMPSAVED W !!,">>> Please enter another problem, or press <return> to exit."
|
|
Q
|
|
;
|
|
SETVARS ; -- Define GMP* variables used in ADD and EDIT
|
|
N VA,VADM,VAEL,VASV,X
|
|
Q:'DFN D DEM^VADPT,7^VADPT
|
|
S GMPDFN=DFN_U_VADM(1)_U_$E(VADM(1))_VA("BID")_$S(VADM(6):U_+VADM(6),1:"")
|
|
S AUPNSEX=$P(VADM(5),U),GMPVA=1,GMPSC=VAEL(3),GMPAGTOR=VASV(2),GMPION=VASV(3)
|
|
S X=$P($G(^DPT(DFN,.322)),U,10),GMPGULF=$S(X="Y":1,X="N":0,1:"")
|
|
S X=$$GETCUR^DGNTAPI(DFN,"HNC"),X=+($G(HNC("STAT"))),GMPHNC=$S(X=4:1,X=5:1,X=1:0,X=6:0,1:"")
|
|
S X=$P($$GETSTAT^DGMSTAPI(DFN),"^",2),GMPMST=$S(X="Y":1,X="N":0,1:"")
|
|
S GMPLVIEW("VIEW")=$S($P($G(^SC(+$G(LOC),0)),U,3)="C":"C",1:"S")
|
|
S GMPCLIN="" I $G(LOC),GMPLVIEW("VIEW")="C" S GMPCLIN=+LOC_U_$P(^SC(+LOC,0),U)
|
|
S X=$$PARAM,GMPARAM("VER")=+$P(X,U,2),GMPARAM("CLU")=+$P(X,U,4),GMPARAM("REV")=+$P(X,U,5)
|
|
S:+GMPROV=DUZ GMPLUSER=1 S GMPVAMC=+$G(DUZ(2)),GMPLIST(0)=0
|
|
Q
|
|
;
|
|
EDIT(DFN,LOC,GMPROV,GMPIFN) ; Interactive LMgr action to edit a problem
|
|
N GMPARAM,GMPDFN,GMPVA,GMPSC,GMPAGTOR,GMPION,GMPGULF,GMPHNC,GMPMST
|
|
N GMPLVIEW,GMPCLIN,GMPLJUMP,GMPQUIT,GMPLUSER,GMPLVAMC,AUPNSEX
|
|
L +^AUPNPROB(GMPIFN,0):1 I '$T W $C(7),!!,$$LOCKED^GMPLX,! H 2 Q
|
|
D SETVARS,EN^VALM("GMPL EDIT PROBLEM")
|
|
L -^AUPNPROB(GMPIFN,0)
|
|
Q
|
|
;
|
|
REMOVE(GMPIFN,GMPROV,TEXT,PLY) ; -- Remove problem GMPIFN
|
|
N GMPVAMC,CHANGE
|
|
S GMPVAMC=+$G(DUZ(2)),PLY=-1,PLY(0)=""
|
|
I '$L($G(^AUPNPROB(GMPIFN,0))) S PLY(0)="Invalid problem" Q
|
|
I '$D(^VA(200,+$G(GMPROV),0)) S PLY(0)="Invalid provider" Q
|
|
I $L($G(TEXT)) S GMPFLD(10,"NEW",1)=TEXT D NEWNOTE^GMPLSAVE
|
|
S CHANGE=GMPIFN_"^1.02^"_$$HTFM^XLFDT($H)_U_DUZ_U_$P($G(^AUPNPROB(GMPIFN,1)),U,2)_"^H^Deleted^"_+$G(GMPROV),$P(^AUPNPROB(GMPIFN,1),U,2)="H",PLY=GMPIFN
|
|
D AUDIT^GMPLX(CHANGE,""),DTMOD^GMPLX(GMPIFN)
|
|
Q
|
|
;
|
|
PARAM() ; -- Returns parameter values from 125.99
|
|
Q $G(^GMPL(125.99,1,0))
|
|
;
|
|
VAF(DFN,SILENT) ; -- print PL VA Form chart copy
|
|
;
|
|
N VA,VADM,VAERR,GMPDFN,GMPVAMC,X,GMPARAM,GMPRT,GMPQUIT,GMPLCURR
|
|
Q:'$G(DFN) D DEM^VADPT S GMPDFN=DFN_U_VADM(1)_U_$E(VADM(1))_VA("BID")
|
|
S GMPVAMC=+$G(DUZ(2)),GMPARAM("QUIET")=1
|
|
S X=$G(^GMPL(125.99,1,0)),GMPARAM("VER")=+$P(X,U,2),GMPARAM("PRT")=+$P(X,U,3),GMPARAM("CLU")=+$P(X,U,4),GMPARAM("REV")=$S($P(X,U,5)="R":1,1:0) K X
|
|
D VAF^GMPLPRNT I '$G(SILENT) D Q:$G(GMPQUIT)
|
|
. I GMPRT'>0 W !!,"No problems available." S GMPQUIT=1 Q
|
|
. D DEVICE^GMPLPRNT Q:$G(GMPQUIT) D CLEAR^VALM1
|
|
D PRT^GMPLPRNT
|
|
Q
|