Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: GMRAOR1

GMRAOR1.m

Go to the documentation of this file.
  1. GMRAOR1 ; HIRMFO/RM,WAA - OERR UTILITIES ;May 11, 2021@12:07:22
  1. ;;4.0;Adverse Reaction Tracking;**21,41,46,63**;Mar 29, 1996;Build 34
  1. EN1(DFN,ARRAY) ;RETURN CONDENSED LIST OF PATIENT REACTIONS
  1. ;CONTROLLED BY CONTROLLED SUBSCRIPTION INTEGRATION AGREEMENT #2421
  1. ;PARAMETERS: DFN => INTERNAL ENTRY NUMBER (IEN) OF THE PATIENT
  1. ; IN THE PATIENT FILE (#2).
  1. ; ARRAY => NAME OF THE ARRAY IN WHICH TO RETURN THE
  1. ; REACTIONS. IF NOTHING IS PASSED IN, DATA
  1. ; IS RETURNED IN THE GMRARXN ARRAY.
  1. ; GMRA => REACTION SEARCH CRITERIA; REFER TO ^GMRADPT
  1. ; FOR DETAILS
  1. ; GMRAIDT => WHEN SET, WILL RETURN THE DATE ENTERED FOR
  1. ; THE SIGN/SYMPTOM IN THE SECOND SEMI-COLON
  1. ; PIECE
  1. Q:+$G(DFN)'>0
  1. S ARRAY=$G(ARRAY,"GMRARXN")
  1. Q:ARRAY="GMRAL"
  1. N GMRAL
  1. K @ARRAY
  1. D EN2^GMRADPT
  1. I GMRAL D
  1. .N GMRAIEN,GMRASS
  1. .S GMRAIEN="" F S GMRAIEN=$O(GMRAL(GMRAIEN)) Q:GMRAIEN="" D
  1. ..N GMRAGMR,GMRAIDX,GMRASEV
  1. ..S @ARRAY=1+$G(@ARRAY)
  1. ..I $P(GMRAL(GMRAIEN),U,7)["D" D
  1. ...S GMRAGMR=$$EXTERNAL^DILFD(120.8,1,,$P(GMRAL(GMRAIEN),U,9))
  1. ...I $P(GMRAL(GMRAIEN),U,2)'=GMRAGMR,($P(GMRAL(GMRAIEN),U,9)'["50.605") S @ARRAY@(@ARRAY)=GMRAGMR_" ["_$P(GMRAL(GMRAIEN),U,2)_"]"
  1. ..I $P(GMRAL(GMRAIEN),U,7)'["D"!('$D(@ARRAY@(@ARRAY))) D
  1. ...S @ARRAY@(@ARRAY)=$P(GMRAL(GMRAIEN),U,2)
  1. ..I $P($P(GMRAL(GMRAIEN),U,10),";",2)="o" D
  1. ...S GMRAIDX=0 F S GMRAIDX=$O(GMRAL(GMRAIEN,"O",GMRAIDX)) Q:'+GMRAIDX D
  1. ....I $P($P(GMRAL(GMRAIEN,"O",GMRAIDX),U),";",2)>$G(GMRASEV) S GMRASEV=$P($P(GMRAL(GMRAIEN,"O",GMRAIDX),U),";",2)
  1. ...I $G(GMRASEV)>0 S GMRASEV=$$EXTERNAL^DILFD(120.85,14.5,,GMRASEV)
  1. ..I $P($P(GMRAL(GMRAIEN),U,10),";",2)="h" D
  1. ...S GMRASEV=$P($P(GMRAL(GMRAIEN,"H"),U),";")
  1. ..S @ARRAY@(@ARRAY)=@ARRAY@(@ARRAY)_U_$G(GMRASEV)_U_GMRAIEN
  1. ..S GMRASS=0 F S GMRASS=$O(GMRAL(GMRAIEN,"S",GMRASS)) Q:GMRASS<1 D
  1. ...S @ARRAY@(@ARRAY,"S",GMRASS)=$P($P(GMRAL(GMRAIEN,"S",GMRASS),U),";")_$S($G(GMRAIDT):";"_$P($P(GMRAL(GMRAIEN,"S",GMRASS),U,2),";",2),1:"")
  1. S @ARRAY=GMRAL
  1. Q
  1. ;*BD
  1. SETNODE(ITEM,DATA) ;
  1. N VALUE
  1. S VALUE=""
  1. I ITEM[DATA S VALUE=ITEM Q VALUE
  1. I DATA="LOCAL" D Q VALUE
  1. .I ITEM="" S VALUE="LOCAL" Q
  1. .I ITEM["REMOTE SITE(S)" S VALUE="LOCAL AND REMOTE SITE(S)"
  1. I DATA="REMOTE SITE(S)" D Q VALUE
  1. .I ITEM="" S VALUE="REMOTE SITE(S)" Q
  1. .I ITEM["LOCAL" S VALUE="LOCAL AND REMOTE SITE(S)"
  1. Q VALUE
  1. ;*ED