source: WorldVistAEHR/trunk/r/BAR_CODE_MED_ADMIN-ALPB-PSB/PSBOAL.m@ 975

Last change on this file since 975 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.2 KB
Line 
1PSBOAL ;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
7EN ;
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 ;
16EN1 ;
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 ;
32SYMP ;
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
40CLAS ;
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
Note: See TracBrowser for help on using the repository browser.