- GMRAY23C ;SLC/DAN-CREATE NEW-STYLE XREF ;7/18/05 08:49
- ;;4.0;Adverse Reaction Tracking;**23**;Mar 29, 1996
- ;
- N GMRAXR,GMRARES,GMRAOUT
- S GMRAXR("FILE")=120.82
- S GMRAXR("NAME")="AC"
- S GMRAXR("TYPE")="MU"
- S GMRAXR("USE")="A"
- S GMRAXR("EXECUTION")="F"
- S GMRAXR("ACTIVITY")="R"
- S GMRAXR("SHORT DESCR")="Updates REACTANT field in file 120.8 when changed"
- S GMRAXR("DESCR",1)="Changes to the NAME field in file 120.82 will cause an update"
- S GMRAXR("DESCR",2)="to the REACTANT field in file 120.8 for associated entries."
- S GMRAXR("SET")="Q:$D(DIU(0)) D QREACT^GMRAUTL2"
- S GMRAXR("KILL")="Q"
- S GMRAXR("VAL",1)=.01
- S GMRAXR("VAL",1,"COLLATION")="F"
- D CREIXN^DDMOD(.GMRAXR,"k",.GMRARES,"GMRAOUT")
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMRAY23C 729 printed Feb 18, 2025@23:07:20 Page 2
- GMRAY23C ;SLC/DAN-CREATE NEW-STYLE XREF ;7/18/05 08:49
- +1 ;;4.0;Adverse Reaction Tracking;**23**;Mar 29, 1996
- +2 ;
- +3 NEW GMRAXR,GMRARES,GMRAOUT
- +4 SET GMRAXR("FILE")=120.82
- +5 SET GMRAXR("NAME")="AC"
- +6 SET GMRAXR("TYPE")="MU"
- +7 SET GMRAXR("USE")="A"
- +8 SET GMRAXR("EXECUTION")="F"
- +9 SET GMRAXR("ACTIVITY")="R"
- +10 SET GMRAXR("SHORT DESCR")="Updates REACTANT field in file 120.8 when changed"
- +11 SET GMRAXR("DESCR",1)="Changes to the NAME field in file 120.82 will cause an update"
- +12 SET GMRAXR("DESCR",2)="to the REACTANT field in file 120.8 for associated entries."
- +13 SET GMRAXR("SET")="Q:$D(DIU(0)) D QREACT^GMRAUTL2"
- +14 SET GMRAXR("KILL")="Q"
- +15 SET GMRAXR("VAL",1)=.01
- +16 SET GMRAXR("VAL",1,"COLLATION")="F"
- +17 DO CREIXN^DDMOD(.GMRAXR,"k",.GMRARES,"GMRAOUT")
- +18 QUIT