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

GMRAY23B.m

Go to the documentation of this file.
  1. GMRAY23B ;SLC/DAN-CREATE NEW-STYLE XREF ;7/6/05 10:22
  1. ;;4.0;Adverse Reaction Tracking;**23**;Mar 29, 1996
  1. ;
  1. N GMRAXR,GMRARES,GMRAOUT
  1. S GMRAXR("FILE")=120.8205
  1. S GMRAXR("NAME")="AC"
  1. S GMRAXR("TYPE")="MU"
  1. S GMRAXR("USE")="A"
  1. S GMRAXR("EXECUTION")="F"
  1. S GMRAXR("ACTIVITY")="R"
  1. S GMRAXR("SHORT DESCR")="Update entries in 120.8 when changes are made to this subfile"
  1. S GMRAXR("SET")="Q:$D(DIU(0)) S GMRAT=""CLASS"" D ^GMRAUTL2"
  1. S GMRAXR("KILL")="Q:$D(DIU(0)) S GMRAT=""CLASS"" D ^GMRAUTL2"
  1. S GMRAXR("VAL",1)=.01
  1. S GMRAXR("VAL",1,"COLLATION")="F"
  1. D CREIXN^DDMOD(.GMRAXR,"k",.GMRARES,"GMRAOUT")
  1. Q