Last change
on this file since 780 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
820 bytes
|
Rev | Line | |
---|
[613] | 1 | GMRARAD1 ;HIRMFO/WAA-RADIOLOGY ALLERGY INTERFACE ; 10/1/92
|
---|
| 2 | ;;4.0;Adverse Reaction Tracking;**13,27**;Mar 29, 1996
|
---|
| 3 | PSCHK(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.