GMRARAD1 ;HIRMFO/WAA-RADIOLOGY ALLERGY INTERFACE ; 12/4/07 11:47am
;;4.0;Adverse Reaction Tracking;**13,27,41**;Mar 29, 1996;Build 8
PSCHK(GMRAVAR) ; This function will return a 1 (true) if the variable ptr
; passed in (GMRAVAR) has a RADIOLOGICAL CONTRAST/MEDIA VA Drug
; Class associated with it.
N CHK,GMRAX,GMRAY
;--41
S CHK=0,GMRAX=$P(GMRAVAR,";")
D ZERO^PSS50(GMRAX,"","","","","ENCAP")
I $P(GMRAVAR,";",2)="PSDRUG(" S:"^DX100^DX101^DX102^DX103^DX104^DX105^DX106^DX107^DX108^DX109^"[("^"_$G(^TMP($J,"ENCAP",GMRAX,2))_"^") CHK=1
K ^TMP($J,"ENCAP")
;--41
I $P(GMRAVAR,";",2)=$P($$NDFREF^GMRAOR,U,2) D:$D(@($$NDFREF^GMRAOR_GMRAX_",0)"))
.N CLASS,GMRACL
.S CLASS=$$CLIST^PSNAPIS(GMRAX,.GMRACL) I $O(GMRACL(0)) D Q:CHK
..S CLASS=0 F S CLASS=$O(GMRACL(CLASS)) Q:'CLASS D
...I "^DX100^DX101^DX102^DX103^DX104^DX105^DX106^DX107^DX108^DX109^"[("^"_$P(GMRACL(CLASS),U,2)_"^") S CHK=1
..Q
.Q
Q CHK
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMRARAD1 934 printed Oct 16, 2024@17:41:19 Page 2
GMRARAD1 ;HIRMFO/WAA-RADIOLOGY ALLERGY INTERFACE ; 12/4/07 11:47am
+1 ;;4.0;Adverse Reaction Tracking;**13,27,41**;Mar 29, 1996;Build 8
PSCHK(GMRAVAR) ; This function will return a 1 (true) if the variable ptr
+1 ; passed in (GMRAVAR) has a RADIOLOGICAL CONTRAST/MEDIA VA Drug
+2 ; Class associated with it.
+3 NEW CHK,GMRAX,GMRAY
+4 ;--41
+5 SET CHK=0
SET GMRAX=$PIECE(GMRAVAR,";")
+6 DO ZERO^PSS50(GMRAX,"","","","","ENCAP")
+7 IF $PIECE(GMRAVAR,";",2)="PSDRUG("
if "^DX100^DX101^DX102^DX103^DX104^DX105^DX106^DX107^DX108^DX109^"[("^"_$GET(^TMP($JOB,"ENCAP",GMRAX,2))_"^")
SET CHK=1
+8 KILL ^TMP($JOB,"ENCAP")
+9 ;--41
+10 IF $PIECE(GMRAVAR,";",2)=$PIECE($$NDFREF^GMRAOR,U,2)
if $DATA(@($$NDFREF^GMRAOR_GMRAX_",0)"))
Begin DoDot:1
+11 NEW CLASS,GMRACL
+12 SET CLASS=$$CLIST^PSNAPIS(GMRAX,.GMRACL)
IF $ORDER(GMRACL(0))
Begin DoDot:2
+13 SET CLASS=0
FOR
SET CLASS=$ORDER(GMRACL(CLASS))
if 'CLASS
QUIT
Begin DoDot:3
+14 IF "^DX100^DX101^DX102^DX103^DX104^DX105^DX106^DX107^DX108^DX109^"[("^"_$PIECE(GMRACL(CLASS),U,2)_"^")
SET CHK=1
End DoDot:3
+15 QUIT
End DoDot:2
if CHK
QUIT
+16 QUIT
End DoDot:1
+17 QUIT CHK
