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: GMTSRAE

Package: Health Summary

Routine: GMTSRAE


Information

GMTSRAE ; SLC/JER,KER HIN/GJC Selected Radiology Extract ; 04/19/2002

Source Information

Source file <GMTSRAE.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Health Summary 3 (GETHIS,GETR4S)^GMTSRAE1  $$PROK^GMTSU  $$EN2^GMTSUMX  
VA Fileman 3 ($$GET1,GETS)^DIQ  EN^DIQ1  ^DIWP  
DRG Grouper 2 $$CPT^ICPTCOD  $$MOD^ICPTMOD  
Kernel 2 $$DT^XLFDT  $$UP^XLFSTR  

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Health Summary 4 GMTSRAE1  GMTSRAI  GMTSRAS  GMTSRASP  
Order Entry Results Reporting 1 ORDV03  

Entry Points

Name Comments DBIA/ICR reference
GETADD ; Gets Additional Clinical History (#74)
GET ; Gets data associated with study and sets global array
; ^TMP("RAE",$J, where:
;
; GMTSIDT = inverse exam date/time
; GMTSPN = Case IEN
;
; ^TMP("RAE",$J,GMTSIDT,GMTSPN,0)= <exam date> ^
; <procedure> ^ <exam status> ^ <report status> ^
; <prim interpret resident> ^ <prim interpret staff> ^
; <CPT code> ^ <technologist> ^ <case number> ^
; < exam status order >
;
; ^TMP("RAE",$J,GMTSIDT,"EXAMSET") Indicates if all
; exams for this date/time are part of an exam set
;
; ^TMP("RAE",$J,GMTSIDT,"PRINTSET") Indicates if all
; exams for this exam set share the same report
;
; Only if the report is verified -OR- released will
; these nodes be set
;
; ^TMP("RAE",$J,IDT,PN,"D",seq #) = Dx codes
; Sequence # = 1 Primary Dx
; Sequence # > 1 Secondary Dx
; ^TMP("RAE",$J,IDT,PN,"H",line #)= Clinical History line #
; ^TMP("RAE",$J,IDT,PN,"S",line #)= Reason for Study line #
; ^TMP("RAE",$J,IDT,PN,"I",line #)= Impression Text line #
; ^TMP("RAE",$J,IDT,PN,"R",line #)= Report Text line #
;
PMOD ; Procedure Modifiers
CMOD ; CPT Modifiers
GETREP ; Gets Radiologist's Report
GETIMP ; Gets Radiologist's Impression
GETDX(GMTSIEN) ; Set the data node with diagnostic code info.
;
; Input: GMTSIEN = Case IEN_","_exam date_","_DFN_","
; Output: ^TMP("RAE",$J,GMTSIDT,GMTSPN,"D",seq #) = Dx codes
;
; Sequence # = 1 Primary Dx
; Sequence # > 1 Secondary Dx
TECH ; Technician
MAINSEL(MODE,TEST) ; Entry for Selection Items
FORMAT ; Calls ^DIWP to format each line of text
MAIN(MODE) ; Main Entry
  • ICR #3968
    • Status: Active
    • Usage: Private
  • ICR #3968
    • Status: Active
    • Usage: Private

    External References

    Name Field # of Occurrence
    $$GET1^DIQ GET+57, GET+74, GETIMP+1, GETADD+1, GETREP+1
    GETS^DIQ GETDX+8
    EN^DIQ1 GET+51, GET+70, PMOD+4, CMOD+3
    ^DIWP FORMAT+2
    GETHIS^GMTSRAE1 GET+91
    GETR4S^GMTSRAE1 GET+91
    $$PROK^GMTSU GET+32
    $$EN2^GMTSUMX CMOD+9
    $$CPT^ICPTCOD GET+75
    $$MOD^ICPTMOD CMOD+6
    $$DT^XLFDT CMOD+2
    $$UP^XLFSTR GET+83

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    70.03 GETS^DIQ
    ^RAMIS(71 - [#71] GET1^DIQ
    ^RA(72 - [#72] GET1^DIQ
    ^RARPT - [#74] Classic Fileman Calls,  GET1^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^RADPT - [#70] MAINSEL+4, MAINSEL+5, MAINSEL+6, MAINSEL+8, MAIN+5, MAIN+6, MAIN+7, MAIN+9, TECH+1
    ^TMP("RAE" MAINSEL+1!, MAIN+2!, GET+34*, GET+76*, GET+78*, GET+80*, GET+82, GET+83*, GET+86*, GET+89*
    , GET+90, GET+92*, GETIMP+3*, GETADD+4*, GETREP+3*, GETDX+7*, GETDX+10*
    ^UTILITY($J GETIMP+2!, GETIMP+3, GETIMP+4!, GETADD+2!, GETADD+3, GETADD+4, GETADD+5!, GETREP+2!, GETREP+3, GETREP+4!

    Label References

    Name Line Occurrences
    CMOD GET+70
    FORMAT GETIMP+2, GETADD+2, GETREP+2
    GET MAINSEL+9, MAIN+10
    GETADD GET+91
    GETDX GET+73
    GETIMP GET+91
    GETREP GET+91
    PMOD GET+70
    TECH GET+50

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % GET+29~
    D0 GET+29~
    DA GET+29~, GET+49*, GET+70*, PMOD+1, PMOD+2~, PMOD+3*, CMOD+1, CMOD+2~, CMOD+3*
    DA( TECH+2*
    >> DFN MAINSEL+4, MAINSEL+5, MAINSEL+6, MAINSEL+8, MAIN+5, MAIN+6, MAIN+7, MAIN+9, GET+49, GET+73
    , TECH+1
    DIC GET+29~, GET+49*, GET+70*, PMOD+1, PMOD+2~*, PMOD+3, CMOD+1, CMOD+2~*, CMOD+3
    DIQ GET+29~, GET+49*, GET+70*
    DIQ(0 GET+50*, GET+70*
    DIW GET+29~
    DIWF GET+29~, FORMAT+1~
    DIWI GET+29~
    DIWL GET+29~, FORMAT+1~*
    DIWR GET+29~, FORMAT+1~*
    DIWT GET+29~
    DIWTC GET+29~
    DIWX GET+29~
    DN GET+29~
    DR GET+29~, GET+50*, GET+70*, PMOD+2~, PMOD+3*, CMOD+2~, CMOD+3*, TECH+2*
    DR( TECH+2*
    DT CMOD+2*
    GMTS PMOD+1~*, PMOD+2, CMOD+1~*, CMOD+2
    >> GMTS1 MAINSEL+2, MAINSEL+3, MAIN+3, MAIN+4
    >> GMTS2 MAINSEL+2, MAINSEL+3, MAIN+3, MAIN+4
    GMTS7002 MAINSEL+5~, MAINSEL+6*, MAINSEL+7, MAIN+6~, MAIN+7*, MAIN+8, GET+33
    GMTSC CMOD+1~, CMOD+5*, CMOD+6
    GMTSCM CMOD+1~, CMOD+6*, CMOD+7*, CMOD+8
    GMTSCN GET+30~, GET+52*, GET+76, CMOD+1~, CMOD+7*, CMOD+9
    GMTSCNT MAINSEL+1~*, MAINSEL+4, MAINSEL+8, MAINSEL+9*, MAIN+1~, MAIN+2*, MAIN+5, MAIN+9, MAIN+10*
    GMTSCPT GET+30~, GET+74*, GET+75*, GET+76
    GMTSDX GETDX+8~
    GMTSDX( GETDX+9, GETDX+10
    GMTSED GET+30~, GET+33*, GET+76
    GMTSI GET+31~, GET+77*, GET+78, GET+79*, GET+80, GET+81*, GET+82, GET+83, GETIMP+2~*, GETADD+2~*
    , GETREP+2*, PMOD+1~*, PMOD+2, CMOD+1~*, CMOD+2, CMOD+4*, CMOD+5, CMOD+8, CMOD+9, GETDX+8~*
    , GETDX+10*
    GMTSIDT MAINSEL+1~, MAINSEL+2*, MAINSEL+3*, MAINSEL+4*, MAINSEL+5, MAINSEL+6, MAINSEL+8, MAIN+1~, MAIN+3*, MAIN+4*
    , MAIN+5*, MAIN+6, MAIN+7, MAIN+9, GET+34, GET+49, GET+73, GET+76, GET+78, GET+80
    , GET+82, GET+83, GET+86, GET+89, GET+90, GET+92, GETIMP+3, GETADD+4, GETREP+3, TECH+1
    GMTSIDT2 MAINSEL+1~, MAINSEL+2*, MAINSEL+3*, MAINSEL+4, MAIN+3*, MAIN+4*, MAIN+5
    GMTSIEN GETDX~, GETDX+7, GETDX+8, GETDX+10
    GMTSII GETDX+8~, GETDX+9*, GETDX+10
    GMTSIMGO GET+32~, GET+58*
    GMTSLN GETIMP+1~, GETIMP+3*, GETADD+1~, GETADD+3*, GETADD+4, GETREP+1~, GETREP+3*
    GMTSMAX MAINSEL+1~*, MAINSEL+4, MAINSEL+8, MAIN+1~, MAIN+2*, MAIN+5, MAIN+9
    >> GMTSNDM MAINSEL+1, MAIN+2
    GMTSPN MAINSEL+1~, MAINSEL+8*, MAIN+1~, MAIN+9*, GET+49, GET+52, GET+53, GET+54, GET+55, GET+56
    , GET+58, GET+60, GET+61, GET+62, GET+69, GET+73, GET+76, GET+78, GET+80, GET+82
    , GET+83, GETIMP+3, GETADD+4, GETREP+3, TECH+1
    GMTSPSET MAINSEL+5~, MAIN+6~, GET+69*, GET+86, GET+89, GET+92
    GMTSPTR GET+30~, GET+62*, GET+70, GET+71, GET+72, GETIMP+1, GETADD+1, GETREP+1
    >> GMTSPXGO MAINSEL+3, MAIN+4
    GMTSRA27 GET+32~*, GETADD+1
    GMTSRAD GET+31~
    GMTSRAD( GET+52, GET+53, GET+54, GET+55, GET+56, GET+58, GET+59, GET+60, GET+61, GET+62
    , GET+69, GET+77, GET+78, GET+79, GET+80, GET+81, GET+82, GET+83, CMOD+4, CMOD+5
    , CMOD+8*, CMOD+9*, GETDX+7
    GMTSRAD(74 GET+71, GET+72
    GMTSRP GET+30~, GET+53*, GET+76
    GMTSRPI GET+30~, GET+54*, GET+74
    GMTSRRAD GET+31~, GET+60*, GET+76
    GMTSSRAD GET+31~, GET+61*, GET+76
    GMTSST GET+30~, GET+55*, GET+76
    GMTSSTO GET+31~, GET+56*, GET+57*, GET+76
    GMTST GETIMP+4!, GETADD+5!, GETREP+4!
    GMTST( GETIMP+2, GETADD+2, GETREP+2
    GMTSTA GET+31~, GET+71*, GET+76
    GMTSTAI GET+31~, GET+72*, GET+73, GET+85, GET+88
    GMTSTC GET+31~, GET+59, TECH+1*, TECH+2
    GMTSTC(0 GET+59*, GET+76
    GMTSXSET MAINSEL+5~, MAINSEL+7*, MAIN+6~, MAIN+8*, GET+34
    I GET+30~, GET+82~*, GET+83, GETREP+2~
    IOST GET+85
    J GET+30~
    MODE MAINSEL~, MAIN~, GET+91, FORMAT+1
    TEST MAINSEL~, MAINSEL+4, MAINSEL+8
    U GET+76, CMOD+2*
    X GETIMP+1~*, GETIMP+2~*, GETADD+1~*, GETADD+2~*, GETREP+1~*, GETREP+2~*
    Y GET+30~
    Z GET+30~
    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