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

GMRADSP0.m

Go to the documentation of this file.
  1. GMRADSP0 ;HIRMFO/WAA - DISPLAY ALLERGY ;08/01/2013 09:58
  1. ;;4.0;Adverse Reaction Tracking;**46**;Mar 29, 1996;Build 62
  1. EN1(GMRAL) ; This routine will print all the reaction in the GMRAL array
  1. ; for the given DFN.
  1. ; Input variables:
  1. ; GMRAL = An array of all the patient allergies.
  1. ;
  1. K ^TMP($J,"GMRALST")
  1. N GMRATYPE,GMRALN,GMRANAME,GMRAPA
  1. I $D(XRTL) D T0^%ZOSV ; START RT
  1. S GMRAOUT=0,GMRAOSOF=1
  1. I $D(XRT0) S XRTN=$T(+0) D T1^%ZOSV ; STOP RT
  1. ;sort list builder subroutine
  1. ;This subroutine builds the a ^TMP array in the following format:
  1. ; ^TMP($J,"GMRALST",type,name,ien)=""
  1. I GMRAL S GMRAPA=0 F S GMRAPA=$O(GMRAL(GMRAPA)) Q:GMRAPA<1 D
  1. .S ^TMP($J,"GMRALST",$P(GMRAL(GMRAPA),U,7),$P(GMRAL(GMRAPA),U,2),GMRAPA)=""
  1. .Q
  1. ALLTYP ;Loop through the list created by the sort subroutine and print.
  1. D HEAD^GMRADSP8
  1. S GMRATYPE="" F S GMRATYPE=$O(^TMP($J,"GMRALST",GMRATYPE)) Q:GMRATYPE="" D Q:GMRAOUT
  1. .S GMRANAME="" F S GMRANAME=$O(^TMP($J,"GMRALST",GMRATYPE,GMRANAME)) Q:GMRANAME="" D Q:GMRAOUT
  1. .. S GMRAPA=0 F S GMRAPA=$O(^TMP($J,"GMRALST",GMRATYPE,GMRANAME,GMRAPA)) Q:GMRAPA<1 D Q:GMRAOUT
  1. ...N GMALN
  1. ...D DISBLD^GMRADSP1(GMRAPA,.GMALN)
  1. ...D DISPLAY^GMRADSP8(.GMALN) Q:GMRAOUT
  1. ...Q
  1. ..Q
  1. .Q
  1. S:GMRAOUT GMRAOUT=2-GMRAOUT
  1. Q
  1. EXIT ;Exit
  1. K ^TMP($J,"GMRALST")
  1. S:GMRAOUT GMRAOUT=2-GMRAOUT
  1. Q