| [613] | 1 | PSBOAL ;BIRMINGHAM/EFC-BCMA UTILITIES ;Mar 2004
|
|---|
| 2 | ;;3.0;BAR CODE MED ADMIN;;Mar 2004
|
|---|
| 3 | ;
|
|---|
| 4 | ; Reference/IA
|
|---|
| 5 | ; ^GMRADPT/10099
|
|---|
| 6 | ; ^GMRAOR2/2422
|
|---|
| 7 | EN ;
|
|---|
| 8 | N PSBLIST,PSBGBL,DFN
|
|---|
| 9 | S PSBGBL="^TMP(""PSBO"",$J,""B"")"
|
|---|
| 10 | F S PSBGBL=$Q(@PSBGBL) Q:PSBGBL="" Q:$QS(PSBGBL,2)'=$J Q:$QS(PSBGBL,1)'["PSBO" D
|
|---|
| 11 | .S DFN=$QS(PSBGBL,5)
|
|---|
| 12 | .D EN1
|
|---|
| 13 | K ^TMP("PSBO",$J)
|
|---|
| 14 | Q
|
|---|
| 15 | ;
|
|---|
| 16 | EN1 ;
|
|---|
| 17 | S GMRA="0^0^111" S PSBLIST=""
|
|---|
| 18 | D EN1^GMRADPT
|
|---|
| 19 | F S PSBLIST=$O(GMRAL(PSBLIST)) Q:'PSBLIST D
|
|---|
| 20 | .K PSBARRY
|
|---|
| 21 | .D EN1^GMRAOR2(PSBLIST,"PSBARRY")
|
|---|
| 22 | .W !,""
|
|---|
| 23 | .W !," Causative agent : "_$P(PSBARRY,U)
|
|---|
| 24 | .W !,""
|
|---|
| 25 | .I $D(PSBARRY("S",1)) D SYMP
|
|---|
| 26 | .I $D(PSBARRY("V",1)) D CLAS
|
|---|
| 27 | .W !," Verified : "_$S($P(PSBARRY,U,4)="VERIFIED":"Yes",1:"No")
|
|---|
| 28 | .W !," Observed/Historical : "_$S($P(PSBARRY,U,5)="OBSERVED":"Observed",$P(PSBARRY,U,5)="HISTORICAL":"Historical",1:"")
|
|---|
| 29 | .W !," ******************************************"
|
|---|
| 30 | Q
|
|---|
| 31 | ;
|
|---|
| 32 | SYMP ;
|
|---|
| 33 | S K=0,N=0 F S K=$O(PSBARRY("S",K)) Q:K'>0 D
|
|---|
| 34 | .I N=0 W !," Signs/symptoms : "_PSBARRY("S",K)
|
|---|
| 35 | .E W !," "_PSBARRY("S",K)
|
|---|
| 36 | .S N=N+1
|
|---|
| 37 | W !
|
|---|
| 38 | K N,K
|
|---|
| 39 | Q
|
|---|
| 40 | CLAS ;
|
|---|
| 41 | S K=0,N=0 F S K=$O(PSBARRY("V",K)) Q:K'>0 D
|
|---|
| 42 | .I N=0 W !," Drug Classes : "_$P(PSBARRY("V",K),U,2)
|
|---|
| 43 | .E W !," "_$P(PSBARRY("V",K),U,2)
|
|---|
| 44 | .S N=N+1
|
|---|
| 45 | W !
|
|---|
| 46 | K N,K
|
|---|
| 47 | Q
|
|---|
