GMRAUTL ;HIRMFO/YMP,RM,WAA-ALLERGY UTILITIES ;7/28/03 08:40
Source file <GMRAUTL.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
DEV | ;Device selecting module
|
|
CLOSE | ; Close device, and dequeue if queued.
|
|
SITE | ; GET SITE PARAMTER NODE
|
|
LOCK(X,Y,Z) | ; LOCKS ^GMR(X,Y,0). IF IT CAN RETURNS 1, ELSE RETURNS 0
; OPTIONAL PAR. Z IF EXISTS AND TRUE WILL PRINT ERROR MSG IF NO LOCK |
|
UNLOCK(X,Y) | ; UNLOCKS ^GMR(X,Y,0)
|
|
OUTTYPE(GMRAY) | ; INPUT VARIABLE IS INTERNAL FORMAT OF TYPE FIELD FOR
; FILES 120.8 AND 120.82. THIS FUNCTION RETURNS OUTPUT VALUE ; FOR THAT FIELD. |
|
INPTYPE(GMRAEN) | ; THIS PROCEDURE WILL ALLOW USER TO EDIT TYPE FIELD FOR
; FILE AND ENTRY DESIGNATED IN GMRAEN. GMRAEN IS IN VARIABLE PTR. ; FORMAT. |
|
EDTTYPE(GMRADEF) | ; THIS PROCEDURE WILL ALLOW EMULATE THE EDITING OF
; TYPE FIELD. GMRADEF IS THE VARIABLE THAT WILL BE RETURNED, AND MUST ; BE PASSED BY REFERENCE. IT SHOULD BE SET TO THE DEFAULT VALUE OF ; THE TYPE PRIOR TO THE EDIT AND WILL BE RETURNED AS THE NEW VALUE. ; GMRAOUT WILL BE SET TO 1 IF USER ABNORMALLY EXITS. |
|
ASKTYP | ; This line is where the query for type begins.
|
|
INTTYPE(GMRAX) | ; INPUT VARIABLE IS INTERNAL VALUE OF TYPE FIELD FOR FILES
; 120.8 AND 120.82. THIS PROCEDURE WILL KILL GMRAX IF IT IS INVALID, ; OR WILL RETURN GMRAX IN ITS PROPER FORMAT. GMRAX MUST BE PASSED BY ; REFERENCE. |
|
ASK(GMRATYPE,GMRAOUT,GMRASP) | ;Answer yes or no to data type questions
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|