GMRAGUI1 ; SLC/DAN - CPRS GUI support ;May 11, 2021@12:02:23
Source file <GMRAGUI1.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| EN1 | ; GETREC, cont'd
 | 
|
| OBSV | ;  Get OBSERVATIONS from file 120.85
 | 
|
| OBSLOOP | ||
| EXIT | ||
| NEXT | ;SET ARRAY NODE AND INCREMENT ARRAY COUNTER
 | 
|
| GETUSR | ||
| EIE(GMRAIEN,GMRADFN,GMRARRAY) | ;Mark individual entry as entered in error
 | 
 
  | 
| ADCOM(ENTRY,TYPE,GMRACOM) | ;Add comments to allergies
 | 
|
| NKA | ;Change patient assessment to NKA
 | 
 
  | 
| UPDATE(GMRAIEN,DFN,GMRARRAY) | ;Add/edit allergies
 | 
 
  | 
| MESS | ;Give out locked message
 | 
| Name | Line Occurrences | 
|---|---|
| Function Call: WRITE | 
  | 
| FileNo | Call Tags | 
|---|---|
| ^ORD(101 - [#101] | FIND1^DIC | 
| ^GMR(120.8 - [#120.8] | Classic Fileman Calls | 
| ^GMR(120.86 - [#120.86] | Classic Fileman Calls | 
| ^VA(200 - [#200] | GET1^DIQ |