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

GMRAPEM1.m

Go to the documentation of this file.
  1. GMRAPEM1 ; HIRMFO/YMP,RM,WAA - CHANGE OF OBSERVED DATA TO HISTORICAL STORAGE ;May 11, 2021@12:03:03
  1. ;;4.0;Adverse Reaction Tracking;**63**;Mar 29, 1996;Build 34
  1. ENDING ;Display and edit the word processing field for a patient reaction.
  1. W @IOF,! D DISP,EDIT G EXIT
  1. Q
  1. OUTPUT ;Display the word processing field for a patient.
  1. D DISP G EXIT
  1. Q
  1. DISP S GMRAOUT=0
  1. F GMRAYY="O","V","E" D DISP1(GMRAPA,GMRAYY,.GMRAOUT) Q:GMRAOUT
  1. Q
  1. DISP1(GMRAPA,GMRAKIND,GMRAOUT) ;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. ; GMRAOUT = Escape variable
  1. I '$D(^GMR(120.8,GMRAPA,26,"AVER",GMRAKIND)) Q
  1. W !!,?5,$S(GMRAKIND="O":"ORIGINATOR",GMRAKIND="V":"VERIFIER",GMRAKIND="E":"ENTERED IN ERROR",1:"")
  1. W !,?6,"COMMENTS:"
  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 PRINT
  1. .Q
  1. Q
  1. PRINT ;PRINT OUT THE DATA
  1. N GMRAT,GMRAZN S (GMRAZN,GMRAT)=""
  1. S:GMRAZ'="" GMRAZN=$P($G(^VA(200,GMRAZ,0)),U)
  1. S:GMRAZ'="" GMRAT=$P($G(^VA(200,GMRAZ,0)),U,9)
  1. S:GMRAT'="" GMRAT=$P($G(^DIC(3.1,GMRAT,0)),U)
  1. W !,?10,"Date: ",$$FMTE^XLFDT(GMRAY,1),?52,"User: ",GMRAZN
  1. W !,?51,"Title: ",GMRAT
  1. I '$D(^GMR(120.8,GMRAPA,26,GMRAX,2,0)) Q
  1. S DIWL=16,DIWR=75,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. S GMRAXX=0 F S GMRAXX=$O(^UTILITY($J,"W",DIWL,GMRAXX)) Q:GMRAXX<1 D:($Y+3)>IOSL HEAD Q:GMRAOUT W !,?16,^UTILITY($J,"W",DIWL,GMRAXX,0)
  1. W !
  1. Q
  1. D EOP^GMRADSP3
  1. Q
  1. EDIT ;Edit the word processing field.
  1. Q:GMRAOUT=2 S:'$D(GMRAVCM) GMRAVCM="O"
  1. S GMRAOUT=0 N GMRA
  1. I '$D(^GMR(120.8,GMRAPA,26,0)) S ^(0)="^120.826D^^"
  1. D NOW^%DTC S DIC="^GMR(120.8,"_GMRAPA_",26,",DA(1)=GMRAPA,DLAYGO=120.8,DIC(0)="L",X=% K DD,DO,DINUM D FILE^DICN K DLAYGO G EXIT:+Y'>0
  1. K DR S DA=+Y,DIE=DIC,DR="1////"_DUZ_";1.5////"_GMRAVCM_";2" K DIC D ^DIE
  1. I '$O(^GMR(120.8,DA(1),26,DA,2,0)) S DIK=DIE D ^DIK K Y
  1. EXIT ;Exit point.
  1. K GMRAVCM
  1. Q