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

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  GMRADSP5  GMRADSP6  GMRAEER0  GMRAEF  
GMRAFDA  GMRAFDA1  GMRAFDA3  GMRAGUI  GMRAGUI1  GMRAMAN  GMRAMCB  GMRAMCU0  
GMRAOR2  GMRAOR5  GMRAOR7  GMRAPED0  GMRAPEE0  GMRAPEM0  GMRAPEM3  GMRAPEM4  
GMRAPEO0  GMRAPER2  GMRAPFT  GMRAPL  GMRAPNA  GMRAPST1  GMRAPST2  GMRAPST3  
GMRAPST4  GMRAPST5  GMRAPST6  GMRAPST7  GMRAPT  GMRAPU  GMRAPVDE  GMRARAD0  
GMRAREP  GMRAROBS  GMRASEN2  GMRASEND  GMRASIGN  GMRAU85  GMRAU851  GMRAUTL1  
GMRAVAM0  GMRAVFY  ^GMRD(120.82  
Order Entry Results Reporting 1 ORWDAL32  

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

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

    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