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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: GMRARAD

Package: Adverse Reaction Tracking

Routine: GMRARAD


Information

GMRARAD ;HIRMFO/RM-Radiology\ART Interface Routine ;12/8/04 08:03

Source Information

Source file <GMRARAD.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Adverse Reaction Tracking 3 (CHKEXAL,NKADD)^GMRARAD0  $$PSCHK^GMRARAD1  $$VFY^GMRASIGN  
Kernel 3 ^%ZTLOAD  ($$DT,$$HTFM)^XLFDT  $$LOW^XLFSTR  
VA FileMan 2 IX1^DIK  ^DIR  
National Drug File 1 IEN^PSN50P65  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Radiology Nuclear Medicine 2 EXAMINATIONS  RAPTLU  
Adverse Reaction Tracking 1 GMRARAD0  

Entry Points

Name Comments DBIA/ICR reference
RADD(DFN,OH,YN,VER) ; THIS EXTRINSIC FUNCTION WILL ADD A CONTRAST MEDIA
; ALLERGY TO FILE 120.8 FOR PATIENT WITH IEN DFN. INPUT VARIABLES:
; DFN = IEN IN FILE 2 OF PATIENT
; OH = 'o' FOR OBSERVED, 'h' FOR HISTORICAL, OR
; 'p' IF THE UTILITY SHOULD PROMPT FOR OBSERVED/HISTORICAL.
; YN = 'Y' MEANS CONTRAST RXN, 'N' MEANS NO CONTRAST RXN,
; 'U' MEANS UNKNOWN CONTRAST RXN, "" MEANS CONTRAST RXN DELETED
; VER (optional) = '1' MEANS DATA WILL BE AUTOVERIFIED,
; '0' MEANS DATA WILL NOT BE VERIFIED,
; '$D MEANS USE ART AUTOVERIFICATION CHECKS.
; FUNCTION RETURNS THE IEN OF NEW 120.8 ENTRY, OR -1 IF NOT ADDED.
  • ICR #1123
    • Status: Active
    • Usage: Private
    RETRA
    RACHK(DFN,YN) ; This function will be called from input transform on the
    ; .05 field of file 70. If the patient (DFN) has allergies in ART
    ; to contrast media, and the user is changing the .05 field to
    ; indicate NO contrast media allergy (YN), this function will prompt
    ; the user if this change is correct.
    ; Input variables: DFN=Patient IEN in file 2.
    ; YN=new value of the .05 field.
    ; Return value: 1 if X should be killed, 0 if not
  • ICR #1123
    • Status: Active
    • Usage: Private
    RALLG(DA,ERR) ; This function will determine if entry DA in 120.8 represents
    ; a contrast media allergy that is not entered in error.
    ; Input variable: DA=entry in file 120.8
    ; ERR(optional)=if set to 0 do not check for E/E
    ; Return value: 1 if entry is contrast media allergy, 0 if not
    OTHRAD(DFN,DA) ; This function will determine if another entry for patient
    ; (DFN) exists other than entry DA that is also a Radiological
    ; allergy.
    ; Input Variables: DFN=IEN of patient, DA=entry in 120.8
    ; Function Returns: 1 if another entry exists, else returns 0

    External References

    Name Field # of Occurrence
    ^%ZTLOAD RADD+41
    IX1^DIK RADD+39
    ^DIR RADD+23
    CHKEXAL^GMRARAD0 RACHK+11
    NKADD^GMRARAD0 RADD+42
    $$PSCHK^GMRARAD1 RALLG+12
    $$VFY^GMRASIGN RADD+29
    IEN^PSN50P65 RADD+15, RALLG+10
    $$DT^XLFDT RADD+38
    $$HTFM^XLFDT RADD+27
    $$LOW^XLFSTR RADD+24

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^GMR(120.8 - [#120.8] Classic Fileman Calls

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^GMR(120.8 - [#120.8] RADD+20, RADD+34, RADD+35, RADD+36*, RADD+37*, RADD+38*, RADD+39, RADD+40*, RALLG+7, RALLG+8
    , RALLG+10, OTHRAD+7
    ^GMRD(120.82 - [#120.82] RALLG+11
    ^TMP($J RADD+17, RADD+18!, RALLG+10

    Label References

    Name Line Occurrences
    $$RALLG RADD+20, OTHRAD+7
    RETRA RADD+12, RADD+13, RADD+17, RADD+21, RADD+26, RADD+32

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    DA RADD+11~, RADD+12*, RADD+13*, RADD+17*, RADD+20*, RADD+21, RADD+26*, RADD+32*, RADD+35*, RADD+36
    , RADD+37, RADD+38, RADD+39, RADD+40, RADD+41, RETRA, RACHK+9~, RALLG~, RALLG+7, RALLG+8
    , RALLG+10, OTHRAD~, OTHRAD+7
    DFN RADD~, RADD+13, RADD+20, RADD+27, RACHK~, OTHRAD~, OTHRAD+7
    DIK RADD+11~, RADD+39*, RACHK+9~
    DIR RADD+23!, RADD+24!, RACHK+9~
    DIR("?" RADD+23*
    DIR("A" RADD+23*
    DIR(0 RADD+23*
    DRCL RALLG+6~, RALLG+10*
    DRCL1 RALLG+6~, RALLG+10*
    DUZ RADD+27, RADD+38
    ERR RALLG~, RALLG+7*, RALLG+8
    FXN RACHK+9~, RACHK+10*, RACHK+12, RALLG+6~, RALLG+7*, RALLG+10*, RALLG+11*, RALLG+12*, RALLG+14, OTHRAD+6~
    , OTHRAD+7*, OTHRAD+8
    GMRA RADD+11~
    GMRACAUS RADD+11~, RADD+16*, RADD+27
    GMRACLS RADD+11~, RADD+27*, RADD+37
    GMRADA RACHK+9~, OTHRAD+6~, OTHRAD+7*
    GMRADRCL RADD+11~, RADD+17*, RADD+27
    GMRAER RADD+11~, RACHK+9~
    GMRAL RADD+11~, RADD+27*, RADD+29, RADD+33*, RADD+36
    GMRANEW RADD+11~, RADD+34*, RADD+35, RADD+40
    GMRANOW RADD+11~, RADD+27*, RADD+33
    GMRAPA RADD+41*!
    GMRASITE RADD+30!
    GMRATYPE RADD+30!
    GMRAX RADD+11~, RACHK+9~
    GMRAY RADD+11~, RADD+29*, RADD+30!, RACHK+9~
    GMRAY(0 RADD+29*
    OH RADD~, RADD+22, RADD+24*, RADD+26, RADD+27
    >> RAAF18 RADD+27, RADD+41
    U RADD+33, RALLG+10, RALLG+11, RALLG+12
    VER RADD~, RADD+28, RADD+29*, RADD+32, RADD+33
    X RADD+11~, RACHK+9~
    Y RADD+11~, RADD+24, RACHK+9~
    YN RADD~, RADD+12, RACHK~, RACHK+11
    ZERO RALLG+6~, RALLG+7*, RALLG+10, RALLG+11, RALLG+12
    >> ZTDESC RADD+41*
    >> ZTDTH RADD+41*
    >> ZTIO RADD+41*
    >> ZTRTN RADD+41*
    >> ZTSAVE("GMRAPA" RADD+41*
    ZTSK RADD+41!
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All