| 1 | NURCES1 ;HIRMFO/YH,MD,YH-END OF SHIFT REPORT PART 2 - NURSING CARE PROBLEM ;12/12/96
|
|---|
| 2 | ;;4.0;NURSING SERVICE;;Apr 25, 1997
|
|---|
| 3 | PTPROB ;OBTAINS PATIENT'S PROBLEMS
|
|---|
| 4 | S NPR=0,GMRGRT=$O(^GMRD(124.2,"AA","NURSC",2,"Nursing Care Plan",1,0)),GMRGPDA=0
|
|---|
| 5 | F REVDAT=0:0 S REVDAT=$O(^GMR(124.3,"AA",DFN,GMRGRT,REVDAT)) Q:'REVDAT S GMRGPDA=$O(^GMR(124.3,"AA",DFN,GMRGRT,REVDAT,0)) I GMRGPDA Q:'$S('$D(^GMR(124.3,GMRGPDA,5)):0,1:+^(5)) S GMRGPDA=0
|
|---|
| 6 | Q:'GMRGPDA S NURSCPE=+$O(^NURSC(216.8,"B",GMRGPDA,0))
|
|---|
| 7 | K NURSPROB F PROB=0:0 S PROB=$O(^NURSC(216.8,NURSCPE,"EVAL","AA",PROB)) Q:PROB'>0 S REVDATE=+$O(^(PROB,0)),DA=+$O(^(REVDATE,0)) I $D(^NURSC(216.8,NURSCPE,"EVAL",DA,0)),'$P(^(0),"^",4) D PROB
|
|---|
| 8 | S PSW=0,PSW(0)=1,PROB="" F NX=1:1 S PROB=$S(NX=1!(NX'=1&(PROB'="")&'PSW):$O(NURSPROB(PROB)),1:PROB) Q:PROB="" D FORMAT Q:NURQUIT
|
|---|
| 9 | Q
|
|---|
| 10 | PROB ;PATIENT PROBLEM ARRAY
|
|---|
| 11 | I $D(^GMRD(124.2,PROB,0)),$P(^(0),"^")'="" S NURSPROB($P(^(0),"^"))=PROB
|
|---|
| 12 | Q
|
|---|
| 13 | FORMAT ;PATIENT PROBLEM
|
|---|
| 14 | I 'PSW,PROB'="" S P=+$O(^GMR(124.3,GMRGPDA,1,"B",+NURSPROB(PROB),0)),GMRGXPRT=PROB,GMRGXPRT(0)=$S($D(^GMR(124.3,GMRGPDA,1,P,0)):$P(^(0),"^",2),1:""),GMRGXPRT(1)="^^0^^1" D EN1^GMRGRUT2 S PRPROB=GMRGXPRT,(PSW(0),PSW)=1
|
|---|
| 15 | S LEN=62 I $D(PRPROB) S GMRGLEN=LEN,GMRGPLN=PRPROB D FITLINE^GMRGRUT1 S NURPLN=GMRGPLN(0),PRPROB=GMRGPLN(1) S:PRPROB="" PSW=0
|
|---|
| 16 | I $D(PRORD) S GMRGLEN=LEN,GMRGPLN=PRORD D FITLINE^GMRGRUT1 S NURPLN(0)=GMRGPLN(0),PRORD=GMRGPLN(1)
|
|---|
| 17 | ;I ($Y>(IOSL-6)) D HEADER^NURCES2 Q:NURQUIT D HEADER1^NURCES2
|
|---|
| 18 | S:($D(NURPLN)#2) NPR=NPR+1,NPR(NPR)=$S('PSW(0):" ",1:"")_NURPLN S PSW(0)=0
|
|---|
| 19 | Q
|
|---|
| 20 | VM ;EXTRACTS LATEST VITAL MEASUREMENTS AND ABNORMAL V/M FOR THE PAST 24 HOURS
|
|---|
| 21 | D VITAL^NURCES5 K ^UTILITY($J,"GMRVD")
|
|---|
| 22 | Q
|
|---|
| 23 | SETDATAR ;
|
|---|
| 24 | F Y=0:0 S Y=$O(^GMR(120.5,"AA",DFN,GMR(X),GMRDAT,Y)) Q:Y'>0!GMRDATS I '$D(^GMR(120.5,Y,2)) D SETNODE
|
|---|
| 25 | Q
|
|---|
| 26 | SETNODE ;
|
|---|
| 27 | S GMRL=$S($D(^GMR(120.5,Y,0)):^(0),1:"") I GMRL'="" K GMRVX S GMRVX=X,GMRVX(0)=$P(GMRL,"^",8) D EN1^GMRVSAS0 S GMRDAT(X)=$P(GMRL,"^",8)_$S('$D(GMRVX(1)):"",'GMRVX(1):"",1:"*"),GMRDATS=1
|
|---|
| 28 | Q
|
|---|
