source: WorldVistAEHR/trunk/r/ADVERSE_REACTION_TRACKING-GMRA-GMA/GMRARAD1.m@ 699

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

initial load of WorldVistAEHR

File size: 820 bytes
Line 
1GMRARAD1 ;HIRMFO/WAA-RADIOLOGY ALLERGY INTERFACE ; 10/1/92
2 ;;4.0;Adverse Reaction Tracking;**13,27**;Mar 29, 1996
3PSCHK(GMRAVAR) ; This function will return a 1 (true) if the variable ptr
4 ; passed in (GMRAVAR) has a RADIOLOGICAL CONTRAST/MEDIA VA Drug
5 ; Class associated with it.
6 N CHK,GMRAX,GMRAY
7 S CHK=0,GMRAX=$P(GMRAVAR,";")
8 I $P(GMRAVAR,";",2)="PSDRUG(" S:"^DX100^DX101^DX102^DX103^DX104^DX105^DX106^DX107^DX108^DX109^"[("^"_$P($G(^PSDRUG(GMRAX,0)),U,2)_"^") CHK=1
9 I $P(GMRAVAR,";",2)=$P($$NDFREF^GMRAOR,U,2) D:$D(@($$NDFREF^GMRAOR_GMRAX_",0)"))
10 .N CLASS,GMRACL
11 .S CLASS=$$CLIST^PSNAPIS(GMRAX,.GMRACL) I $O(GMRACL(0)) D Q:CHK
12 ..S CLASS=0 F S CLASS=$O(GMRACL(CLASS)) Q:'CLASS D
13 ...I "^DX100^DX101^DX102^DX103^DX104^DX105^DX106^DX107^DX108^DX109^"[("^"_$P(GMRACL(CLASS),U,2)_"^") S CHK=1
14 ..Q
15 .Q
16 Q CHK
Note: See TracBrowser for help on using the repository browser.