Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
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>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  $$UP^XLFSTR  
VA Fileman 2 ^DIE  ^DIR  
Adverse Reaction Tracking 1 ENDPG^GMRADSP3  

Caller Graph

Caller Graph Total: 52

Package Total Caller Graph
Adverse Reaction Tracking 51 GMRACMR4  GMRADEL  GMRADGMV  GMRADSP4  GMRAEER0  GMRAFDA1  GMRAFDA3  GMRAMCB  
GMRAPED0  GMRAPST1  ^GMR(120.8  GMRADSP5  GMRADSP6  GMRAEF  GMRAFDA  GMRAGUI  
GMRAGUI1  GMRAMAN  GMRAOR2  GMRAOR5  GMRAOR7  GMRAPEE0  GMRAPEM0  GMRAPEM3  
GMRAPEM4  GMRAPEO0  GMRAPER2  GMRAPFT  GMRAPL  GMRAPNA  GMRAPST2  GMRAPST3  
GMRAPST4  GMRAPST5  GMRAPST6  GMRAPST7  GMRAPT  GMRAPU  GMRAPVDE  GMRARAD0  
GMRAREP  GMRAROBS  GMRASEN2  GMRASEND  GMRASIGN  GMRAU85  GMRAU851  GMRAVAM0  
^GMRD(120.82  GMRAUTL1  GMRAVFY  
Order Entry Results Reporting 1 ORWDAL32  

Entry Points

Name Comments DBIA/ICR reference
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
    ASK(GMRATYPE,GMRAOUT,GMRASP) ;Answer yes or no to data type questions
    UNLOCK(X,Y) ; UNLOCKS ^GMR(X,Y,0)
    SITE ; GET SITE PARAMTER NODE
  • ICR #4684
    • Status: Active
    • Usage: Private
    DEV ;Device selecting module
    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.
    ASKTYP ; This line is where the query for type begins.
    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.
    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
    CLOSE ; Close device, and dequeue if queued.
    INPTYPE(GMRAEN) ; THIS PROCEDURE WILL ALLOW USER TO EDIT TYPE FIELD FOR
    ; FILE AND ENTRY DESIGNATED IN GMRAEN. GMRAEN IS IN VARIABLE PTR.
    ; FORMAT.

    External References

    Name Field # of Occurrence
    ^%ZIS DEV+5, DEV+15
    ^%ZISC CLOSE+2
    ^DIE INPTYPE+9
    ^DIR ASKTYP+3, ASK+3
    ENDPG^GMRADSP3 CLOSE+1
    $$UP^XLFSTR INTTYPE+7

    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
    Routine Call
    • DIE
    • Line Location:
      • INPTYPE+9
    Routine Call
    • DIR
    • Line Location:
      • ASKTYP+3
      • ASK+3
    Routine Call
    • %ZIS
    • Line Location:
      • DEV+5
      • DEV+15

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^GMR( LOCK+2, UNLOCK+1
    ^GMRD(120.84 - [#120.84] SITE+1, SITE+2

    Label References

    Name Line Occurrences
    DEV DEV+6, DEV+9, DEV+12, DEV+15
    EDTTYPE INPTYPE+7

    Local Variables

    Legend:

    >> 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*
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All