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 |