GMRAPES0 ;HIRMFO/RM-SELECT PATIENT ALLERGY TO EDIT ;11/16/07 10:26
Source file <GMRAPES0.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN1 | ; GIVEN DFN, SELECT PATIENT ALLERGY
|
|
PAL | ||
NPA | ||
NDF | ;find partial matches and select from NDF
|
|
ING | ||
CLASS | ||
YNOTH | ||
YNDRG | ;
|
|
Q1 | ;
|
|
DIC | ; VALIDATE LOOKUP FOR A/AR
|
|
YNOK | ||
DUPCHK(X,Y,Z) | ;CHECK FOR ENTERED IN ERROR
|
|
MATCHES | ; -- List matches for NDF
|
|
MORE() | ||
SENDREQ(USER,PAT,TEXT,GMRAET) | ;Send email to GMRA REQUEST NEW REACTANT indicating user's request for a new allergy
|
|
MESS | ;Provide help for sending email message
|
|
GETINPUT(GMRAET) | ;Allow user to add comment to message
|
Name | Line Occurrences |
---|---|
Function Call: READ |
|
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 |
|
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 |
---|---|
^GMR(120.8 - [#120.8] | Classic Fileman Calls |
^GMRD(120.82 - [#120.82] | Classic Fileman Calls |
^DPT - [#2] | GETS^DIQ |
^VA(200 - [#200] | GETS^DIQ |
^PS(50.416 - [#50.416] | Classic Fileman Calls |
^PS(50.605 - [#50.605] | Classic Fileman Calls |