Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: GMRAUTL

Package: Adverse Reaction Tracking

Routine: GMRAUTL


Information

GMRAUTL ;HIRMFO/YMP,RM,WAA-ALLERGY UTILITIES ;7/28/03 08:40

Source Information

Source file <GMRAUTL.m>

Entry Points

Name Comments DBIA/ICR reference
DEV ;Device selecting module
CLOSE ; Close device, and dequeue if queued.
SITE ; GET SITE PARAMTER NODE
  • ICR #4684
    • Status: Active
    • Usage: Private
    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.
  • ICR #6255
    • Status: Withdrawn
    • Usage: Controlled Subscription
    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

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !
    • Line Location: DEV+1
    Function Call: WRITE
    • Prompt: !?4,$C(7),"PRINTED REPORTS MUST BE QUEUED.",!
    • Line Location: DEV+7
    Function Call: WRITE
    • Prompt: !!?4,$C(7),"THIS REPORT MUST BE SENT TO A PRINTER WITH A MARGIN OF AT LEAST "_+$P(GMRAZIS,"M",2)_"."
    • Line Location: DEV+10
    Function Call: WRITE
    • Prompt: !!?4,$C(7),"THIS REPORT MUST BE SENT TO A PRINTER WITH PAGE LENGTH OF AT LEAST "_+$P(GMRAZIS,"S",2)_"."
    • Line Location: DEV+13
    Function Call: WRITE
    • Prompt: !
    • Line Location: CLOSE+2
    Info |  Source |  Entry Points |  Interaction Calls