| [613] | 1 | PSOORUT3 ;ISC-BHAM/SAB-build listman screen continued ;12/07/95 18:12
|
|---|
| 2 | ;;7.0;OUTPATIENT PHARMACY;**5,25,243**;DEC 1997;Build 22
|
|---|
| 3 | ;
|
|---|
| 4 | ;Reference to MAIN^TIUEDIT supported by IA# 2410
|
|---|
| 5 | ;Reference to RESET^VALM4 supported by IA# 2334
|
|---|
| 6 | ;bulids allergy/adverse reactions list
|
|---|
| 7 | F DR=0:0 S DR=$O(GMRAL(DR)) Q:'DR S ^TMP($J,"AL",$S($P(GMRAL(DR),"^",4):1,1:2),$S('$P(GMRAL(DR),"^",5):1,1:2),$P(GMRAL(DR),"^",7),$P(GMRAL(DR),"^",2))=""
|
|---|
| 8 | S IEN=IEN+1,^TMP("PSOPI",$J,IEN,0)="Allergies "
|
|---|
| 9 | S:$O(^TMP($J,"AL",1,1,""))]"" IEN=IEN+1,^TMP("PSOPI",$J,IEN,0)=" Verified: "
|
|---|
| 10 | S (DR,TY)="" F I=0:0 S TY=$O(^TMP($J,"AL",1,1,TY)) Q:TY="" F D=0:0 S DR=$O(^TMP($J,"AL",1,1,TY,DR)) Q:DR="" D
|
|---|
| 11 | .S:$L(^TMP("PSOPI",$J,IEN,0)_DR_", ")>80 IEN=IEN+1,$P(^TMP("PSOPI",$J,IEN,0)," ",14)=" " S ^TMP("PSOPI",$J,IEN,0)=$G(^TMP("PSOPI",$J,IEN,0))_DR_", "
|
|---|
| 12 | S:$O(^TMP($J,"AL",2,1,""))]"" IEN=IEN+1,^TMP("PSOPI",$J,IEN,0)="Non-Verified: "
|
|---|
| 13 | S (DR,TY)="" F I=0:0 S TY=$O(^TMP($J,"AL",2,1,TY)) Q:TY="" F D=0:0 S DR=$O(^TMP($J,"AL",2,1,TY,DR)) Q:DR="" D
|
|---|
| 14 | .S:$L(^TMP("PSOPI",$J,IEN,0)_DR_", ")>80 IEN=IEN+1,$P(^TMP("PSOPI",$J,IEN,0)," ",14)=" " S ^TMP("PSOPI",$J,IEN,0)=$G(^TMP("PSOPI",$J,IEN,0))_DR_", "
|
|---|
| 15 | D REMOTE^PSOORUT2
|
|---|
| 16 | S IEN=IEN+1,^TMP("PSOPI",$J,IEN,0)=" "
|
|---|
| 17 | S IEN=IEN+1,^TMP("PSOPI",$J,IEN,0)="Adverse Reactions "
|
|---|
| 18 | S:$O(^TMP($J,"AL",1,2,""))]"" IEN=IEN+1,^TMP("PSOPI",$J,IEN,0)=" Verified: "
|
|---|
| 19 | S (DR,TY)="" F I=0:0 S TY=$O(^TMP($J,"AL",1,2,TY)) Q:TY="" F D=0:0 S DR=$O(^TMP($J,"AL",1,2,TY,DR)) Q:DR="" D
|
|---|
| 20 | .S:$L(^TMP("PSOPI",$J,IEN,0)_DR_", ")>80 IEN=IEN+1,$P(^TMP("PSOPI",$J,IEN,0)," ",14)=" " S ^TMP("PSOPI",$J,IEN,0)=$G(^TMP("PSOPI",$J,IEN,0))_DR_", "
|
|---|
| 21 | S:$O(^TMP($J,"AL",2,2,""))]"" IEN=IEN+1,^TMP("PSOPI",$J,IEN,0)="Non-Verified: "
|
|---|
| 22 | S (DR,TY)="" F I=0:0 S TY=$O(^TMP($J,"AL",2,2,TY)) Q:TY="" F D=0:0 S DR=$O(^TMP($J,"AL",2,2,TY,DR)) Q:DR="" D
|
|---|
| 23 | .S:$L(^TMP("PSOPI",$J,IEN,0)_DR_", ")>80 IEN=IEN+1,$P(^TMP("PSOPI",$J,IEN,0)," ",15)=" " S ^TMP("PSOPI",$J,IEN,0)=$G(^TMP("PSOPI",$J,IEN,0))_DR_", "
|
|---|
| 24 | K TY,D,I,GMRA,GMRAL,DR,AD,ADL,^TMP($J,"AL")
|
|---|
| 25 | Q
|
|---|
| 26 | PRONTE ;entry point to enter a progress note DBIA 220
|
|---|
| 27 | I $T(MAIN^TIUEDIT)]"" D FULL^VALM1,MAIN^TIUEDIT(3,.TIUDA,PSODFN,"","","","",1) Q
|
|---|
| 28 | S VALMSG="Progress Notes NOT Available.",VALMBCK=""
|
|---|
| 29 | Q
|
|---|
| 30 | DPLYOR ;displays status of patient's orders
|
|---|
| 31 | S PSOHA=1,(EXT,DTME,RX,OLDT)="",(CNT,CNT1,RXNYM)=0
|
|---|
| 32 | S X=PSODFN,DIC=2,DIC(0)="ZN" D ^DIC K DIC S NAM=Y(0,0),NNUM=PSODFN
|
|---|
| 33 | D BING^PSOBGMG3 S VALMBCK="R" K PSOHA
|
|---|
| 34 | W ! S DIR(0)="E",DIR("A")="Press Return to Continue" D ^DIR
|
|---|
| 35 | K DIR,DIRUT,DTOUT,DUOUT
|
|---|
| 36 | Q
|
|---|
| 37 | A ;resizes list area
|
|---|
| 38 | S PSOBM=$S(VALMMENU:19,1:21) I VALM("BM")'=PSOBM S VALMBCK="R" D
|
|---|
| 39 | .S VALM("BM")=PSOBM,VALM("LINES")=(PSOBM-VALM("TM"))+1 I +$G(VALMCC) D RESET^VALM4
|
|---|
| 40 | Q
|
|---|
