1 | GMPLUTL3 ; SLC/JST/JVS -- PL Utilities (CIRN) ; 04/15/2002
|
---|
2 | ;;2.0;Problem List;**14,15,19,25,26**;Aug 25, 1994
|
---|
3 | ;
|
---|
4 | ; External References
|
---|
5 | ; None
|
---|
6 | ;
|
---|
7 | ; This routine is primarily called by CIRN for use
|
---|
8 | ; in HL7 (RGHOPL), and Historical Load (RGHOPLB),
|
---|
9 | ; record creation.
|
---|
10 | ;
|
---|
11 | ; NOTE: This routine DOES NOT NEW the variables
|
---|
12 | ; that are set below.
|
---|
13 | ;
|
---|
14 | CALL0(GMPLZ) ; Call 0 - Get Node 0
|
---|
15 | N GMPLCOND I $P($G(^AUPNPROB(GMPLZ,1)),"^",2)="H" S GMPLCOND="H" D CLEAR Q
|
---|
16 | I '$D(^AUPNPROB(GMPLZ,0)) D CLEAR Q
|
---|
17 | D NODE0
|
---|
18 | Q
|
---|
19 | ;
|
---|
20 | CALL1(GMPLZ) ; Call 1 - Get Node 1
|
---|
21 | N GMPLCOND I $P($G(^AUPNPROB(GMPLZ,1)),"^",2)="H" S GMPLCOND="H" D CLEAR Q
|
---|
22 | I '$D(^AUPNPROB(GMPLZ,0)) D CLEAR Q
|
---|
23 | D NODE1
|
---|
24 | Q
|
---|
25 | ;
|
---|
26 | CALL2(GMPLZ) ; Call 2 - Get both Node 0 and Node 1
|
---|
27 | I $P($G(^AUPNPROB(GMPLZ,1)),"^",2)="H" S GMPLCOND="H" D CLEAR Q
|
---|
28 | I '$D(^AUPNPROB(GMPLZ,0)) D CLEAR Q
|
---|
29 | D NODE0,NODE1
|
---|
30 | Q
|
---|
31 | ;
|
---|
32 | NODE0 ; Set Node 0 data variables
|
---|
33 | N GMPLZ0
|
---|
34 | S GMPLZ0=$G(^AUPNPROB(GMPLZ,0))
|
---|
35 | ; Diagnosis
|
---|
36 | S GMPLICD=$P(GMPLZ0,U)
|
---|
37 | ; Patient Name
|
---|
38 | S GMPLPNAM=$P(GMPLZ0,U,2)
|
---|
39 | ; Date Last Modifed
|
---|
40 | S GMPLDLM=$P(GMPLZ0,U,3)
|
---|
41 | ; Provider Narrative
|
---|
42 | S GMPLTXT=$P(GMPLZ0,U,5)
|
---|
43 | ; Status
|
---|
44 | S GMPLSTAT=$P(GMPLZ0,U,12)
|
---|
45 | ; Date of Onset
|
---|
46 | S GMPLODAT=$P(GMPLZ0,U,13)
|
---|
47 | ; Date Entered
|
---|
48 | S:'GMPLODAT GMPLODAT=$P(GMPLZ0,U,8)
|
---|
49 | Q
|
---|
50 | ;
|
---|
51 | NODE1 ; Set Node 1 data variables
|
---|
52 | N GMPLZ1
|
---|
53 | S GMPLZ1=$G(^AUPNPROB(GMPLZ,1))
|
---|
54 | ; Problem
|
---|
55 | S GMPLLEX=$P(GMPLZ1,U)
|
---|
56 | ; Condition
|
---|
57 | S GMPLCOND=$P(GMPLZ1,U,2)
|
---|
58 | ; Recording Provider
|
---|
59 | S GMPLPRV=$P(GMPLZ1,U,4)
|
---|
60 | ; Responsible Provider
|
---|
61 | S:'GMPLPRV GMPLPRV=$P(GMPLZ1,U,5)
|
---|
62 | ; Date Resolved
|
---|
63 | S GMPLXDAT=$P(GMPLZ1,U,7)
|
---|
64 | ; Priority
|
---|
65 | S GMPLPRIO=$P(GMPLZ1,U,14)
|
---|
66 | Q
|
---|
67 | ;
|
---|
68 | CLEAR ; Set Variables Equal to Null
|
---|
69 | S (GMPLZ0,GMPLICD,GMPLPNAM,GMPLDLM,GMPLTXT,GMPLSTAT,GMPLODAT)=""
|
---|
70 | S (GMPLZ1,GMPLLEX,GMPLPRV,GMPLXDAT,GMPLPRIO,GMPLCOND)=""
|
---|
71 | Q
|
---|
72 | MOD(DFN) ; Return the Date the Patients Problem List was Last Modified
|
---|
73 | Q +$O(^AUPNPROB("MODIFIED",DFN,0))
|
---|