GMRAFX ;SLC/DAN Fix existing allergy entries ;3/2/06 13:46
Source file <GMRAFX.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ; -- main entry point for GMRA FIX
|
|
HDR | ; -- header code
|
|
PHDR | ;
|
|
INIT | ;Initialize variables, etc
|
|
LIST | ; -- obtain and display list of free text allergies
|
|
HELP | ; -- help code
|
|
EXIT | ; -- exit code
|
|
EXPND | ; -- expand code
|
|
CHKSEL | ;Evaluate selection if done by number
|
|
DESELECT | ;Un-highlight selected choices
|
|
AEA | ; Entry for GMRA LOCAL ALLERGIES EDIT option
|
|
PROCESS(TYPE) | ;API to mark all entries as entered in error or update entries to new reactant
|
|
EIE | ;Mark individual entry as entered in error
|
|
DECEASED(GMRAIFN) | ;Function returns 1 if patient is deceased, 0 if living
|
|
ADCOM(ENTRY,TYPE,COM) | ;Add comment to allergy
|
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^ORD(101 - [#101] | FIND1^DIC |
^GMRD(120.82 - [#120.82] | Classic Fileman Calls |
^VA(200 - [#200] | GET1^DIQ |