source: WorldVistAEHR/trunk/r/INPATIENT_MEDICATIONS-PSJ-PSIV-PSG--PSGW/PSJORDA.m@ 1766

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

initial load of WorldVistAEHR

File size: 1.1 KB
Line 
1PSJORDA ;BIR/LC BUILD DETAILED ALLERGY LIST- ;16 DEC 97 / 1:42 PM
2 ;;5.0; INPATIENT MEDICATIONS ;;16 DEC 97
3BEG ;
4 NEW PSJINPT S PSJINPT=1 D BEG^PSOORDA(DFN)
5 Q
6SEL ;select allergy for detail display
7 N ORD,ORN,IEN,VALMCNT I '$G(PSJALL) S VALMSG="This patient has no Allergies!" S VALMBCK="" Q
8 K DIR,DUOUT,DIRUT S DIR("A")="Select Allergies by number",DIR(0)="LO^1:"_PSJALL D ^DIR I $D(DTOUT)!($D(DUOUT)) K DIR,DIRUT,DTOUT,DUOUT S VALMBCK="" Q
9 K DIR,DIRUT,DTOUT,DTOUT I +Y D FULL^VALM1 S ALST=Y D
10 .F ORD=1:1:$L(ALST,",") Q:$P(ALST,",",ORD)']"" S ORN=$P(ALST,",",ORD) D DSPLY
11 E S VALMBCK=""
12 K ALST
13 Q
14DSPLY ;build detailed allergy display
15 NEW PSJINPT S PSJINPT=1 D DSPLY^PSOORDA(DFN),EN^PSJLMAL
16 Q
17EXT K AGNL,CG,CLS,CPT,IG,ING,IPT,NB,OD,ODT,OG,ORC,ORT,SG,SNM,SYM,Y
18 Q
19NEWSEL ;
20 N ORD,ORN,IEN,VALMCNT I '$G(PSJALL) S VALMSG="This patient has no Allergies!" S VALMBCK="" Q
21 S ALST=$P(XQORNOD(0),"=",2)
22 I '$O(AGN(0)) S VALMQUIT=1 Q
23 I $D(ALST) D FULL^VALM1 D
24 .F ORD=1:1:$L(ALST,",") Q:$P(ALST,",",ORD)']"" S ORN=$P(ALST,",",ORD) D DSPLY
25 E S VALMBCK=""
26 K ALST
27 G EXT
28 Q
Note: See TracBrowser for help on using the repository browser.