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 |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^GMR( | LOCK+2, UNLOCK+1 |
^GMRD(120.84 - [#120.84] | SITE+1, SITE+2 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> %ZIS | DEV+4*, DEV+15* |
>> %ZIS("B" | DEV+3*, DEV+4* |
DA | INPTYPE+4~, INPTYPE+5*, INPTYPE+6 |
DIE | INPTYPE+4~, INPTYPE+5*, INPTYPE+6 |
DIR | EDTTYPE+6~, ASK+1~ |
DIR("?" | ASKTYP+2* |
DIR("A" | ASKTYP+1*, ASK+2* |
DIR("B" | ASKTYP+1*, ASK+3* |
DIR(0 | ASKTYP+1*, ASK+2* |
>> DIRUT | ASKTYP+4, ASK+4 |
DR | INPTYPE+4~, INPTYPE+5*, INPTYPE+9* |
DUZ(2 | SITE+1 |
FXN | OUTTYPE+3~*, OUTTYPE+4*, OUTTYPE+5, INTTYPE+4~*, INTTYPE+9*, INTTYPE+11, INTTYPE+14*, INTTYPE+17 |
GMRADEF | INPTYPE+4~, INPTYPE+6*, INPTYPE+7, INPTYPE+8, INPTYPE+9, EDTTYPE~, EDTTYPE+5, EDTTYPE+7, EDTTYPE+9, EDTTYPE+10 , EDTTYPE+11, EDTTYPE+12*, ASKTYP+1, ASKTYP+4*, ASKTYP+5* |
GMRAEN | INPTYPE~, INPTYPE+3, INPTYPE+5 |
GMRAOUT | CLOSE+1, ASKTYP+4*, ASK~, ASK+4*, ASK+5 |
>> GMRASITE | SITE+1*, SITE+2* |
GMRASP | ASK~, ASK+3, ASK+4*, ASK+5* |
GMRATYPE | ASK~, ASK+2 |
GMRAX | INTTYPE~, INTTYPE+5, INTTYPE+7, INTTYPE+11*, INTTYPE+14, INTTYPE+15*, INTTYPE+17! |
GMRAY | OUTTYPE~, OUTTYPE+4 |
GMRAZIS | DEV+2*, DEV+4, DEV+5!, DEV+9, DEV+10, DEV+12, DEV+13, DEV+16! |
I | INTTYPE+6~, INTTYPE+7* |
IO("Q" | DEV+7, DEV+15 |
IO("S" | DEV+6 |
IOM | DEV+10, DEV+15 |
ION | DEV+15 |
IOP | DEV+3*, DEV+4!, DEV+15* |
IOSL | DEV+13, DEV+15 |
IOST | DEV+7, DEV+15 |
J | INTTYPE+6~, INTTYPE+7*, INTTYPE+8* |
K | INTTYPE+6~, INTTYPE+7*, INTTYPE+8*, INTTYPE+11 |
>> POP | DEV+5, DEV+6*, DEV+7*, DEV+9*, DEV+10*, DEV+12*, DEV+13*, DEV+15 |
X | LOCK~, LOCK+2, UNLOCK~, UNLOCK+1, OUTTYPE+3~, OUTTYPE+4*, EDTTYPE+6~, EDTTYPE+8*, EDTTYPE+9*, EDTTYPE+10* , EDTTYPE+11*, EDTTYPE+12, ASKTYP+5*, ASK+1~ |
Y | LOCK~, LOCK+2, UNLOCK~, UNLOCK+1, EDTTYPE+6~, ASKTYP+5, ASK+1~, ASK+5 |
Z | LOCK~, LOCK+3 |
>> ZTQUEUED | CLOSE+3 |
>> ZTREQ | CLOSE+3* |