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

GMRAWORD.m

Go to the documentation of this file.
  1. GMRAWORD ;HIRMFO/YMP,RM,WAA- WORD DATA TO HISTORICAL STORAGE ;12/1/95 13:45
  1. ;;4.0;Adverse Reaction Tracking;;Mar 29, 1996
  1. WORD(GMRAPA,COMM,WID) ; PASS THE DATA TO AN ARRAY
  1. ; Input variables:
  1. ; GMRAPA = Reaction IEN in 120.8
  1. ; COMM = Kind of comment to display
  1. ; O is Originator
  1. ; V is Verifier
  1. ; E is Entered in Error
  1. ; ARRAY = Merge arrat for the text
  1. ; WID = Width of the array
  1. N GMRAYY,GMRACNT,Y,DIWL
  1. S GMRACNT=1
  1. F GMRAYY=1:1:$L(COMM) K ^UTILITY($J,"W") D
  1. .D DISP1(GMRAPA,$E(COMM,GMRAYY),WID) Q:'$D(DIWL)
  1. .I $D(^UTILITY($J,"W",DIWL)) S ^TMP($J,"GMRAWORD",GMRACNT)=$S($E(COMM,GMRAYY)="E":"ENTERED IN ERROR",$E(COMM,GMRAYY)="V":"VERIFIER",$E(COMM,GMRAYY)="O":"OBSERVER",1:"")_" COMMENTS: ",GMRACNT=GMRACNT+1
  1. .S Y=0 F S Y=$O(^UTILITY($J,"W",DIWL,Y)) Q:Y<1 S ^TMP($J,"GMRAWORD",GMRACNT)=$G(^UTILITY($J,"W",DIWL,Y,0)),GMRACNT=GMRACNT+1
  1. .Q
  1. Q
  1. DISP1(GMRAPA,GMRAKIND,WID) ;Display comments and reaction for a reaction
  1. ; Input variables:
  1. ; GMRAPA = Reaction IEN in 120.8
  1. ; GMRAKIND = Kind of comment to display
  1. ; O is Originator
  1. ; V is Verifier
  1. ; E is Entered in Error
  1. ; WID = Width of the array
  1. I '$D(^GMR(120.8,GMRAPA,26,"AVER",GMRAKIND)) Q
  1. S GMRAX=0 F S GMRAX=$O(^GMR(120.8,GMRAPA,26,"AVER",GMRAKIND,GMRAX)) Q:GMRAX<1 D Q:GMRAOUT
  1. .S GMRAY=$P(^GMR(120.8,GMRAPA,26,GMRAX,0),U),GMRAZ=$P(^(0),U,2)
  1. .D BLD
  1. .Q
  1. Q
  1. BLD ; BUILD THE DATA
  1. N GMRAT,GMRAZN S (GMRAZN,GMRAT)=""
  1. I '$D(^GMR(120.8,GMRAPA,26,GMRAX,2,0)) Q
  1. S DIWL=0,DIWR=WID,DIWF=""
  1. K ^UTILITY($J,"W",DIWL)
  1. S GMRAXX=0 F S GMRAXX=$O(^GMR(120.8,GMRAPA,26,GMRAX,2,GMRAXX)) Q:GMRAXX<1 S X=^(GMRAXX,0) D ^DIWP
  1. Q