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 |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: GMTSRAD

Package: Health Summary

Routine: GMTSRAD


Information

GMTSRAD ; SLC/JER,KER HIN/GJC - Radiology Request Status ; 08/27/2002

Source Information

Source file <GMTSRAD.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Health Summary 3 $$WRAP^GMTSORC  (REGDT4,REGDTM4)^GMTSU  CKP^GMTSUP  
VA FileMan 2 ($$GET1,GETS)^DIQ  EN^DIQ1  
Kernel 1 $$LOW^XLFSTR  

Entry Points

Name Comments DBIA/ICR reference
ENRAD ; Entry Point for HS only
GET ; Extract radiology orders
  • ICR #4333
    • Status: Active
    • Usage: Controlled Subscription
    HDR ; Write column header
    LOOP ; Loops through ^TMP("GMTSRAD",$J,
    WRT ; Write record
    REG(DA,GMP) ; Registered Order Parent/Differs
    ;
    ; If the order has been registered, check to see if the
    ; procedure ordered is a parent or if the ordered procedure
    ; differs from the registered procedure.
    ;
    ; Input: DA -> ien of the order in file 75.1
    ; : GMP -> ien of the ordered procedure
    REG1(DA,GMDFN,GMDTI,GMCNI,GMP) ; Registered Order Differs
    ;
    ; Check if the ordered procedure differs from
    ; the registered procedure.
    ;
    ; Input: DA -> Order (75.1) ien
    ; GMDFN -> ien of the patient
    ; GMDTI -> inv. date/time of exam
    ; GMCNI -> ien of each case
    ; GMP -> ien of the procedure for the order
    ;
    ; Sets: ^TMP("GMTSRAD",$J,inv Req Entered Date/Time,
    ; order ien,proc ien,
    ;
    ; 0)=1 if one of the following conditions exist:
    ; 1) the procedure ordered is not the procedure
    ; registered (exam not cancelled)
    ; 2) the ordered procedure is a parent and the
    ; descendent procedure(s) have been registered
    ; (exam not cancelled)
    ;
    ; Sets: ^TMP("GMTSRAD",$J,inv Req Entered Date/Time,
    ; order ien,proc ien,seq #)=Registered Procedure

    External References

    Name Field # of Occurrence
    $$GET1^DIQ REG1+29
    GETS^DIQ REG1+25
    EN^DIQ1 GET+6
    $$WRAP^GMTSORC GET+11, REG1+32
    REGDT4^GMTSU WRT+2
    REGDTM4^GMTSU WRT+4
    CKP^GMTSUP HDR+1, HDR+2, WRT+5, WRT+10, WRT+12, WRT+16, WRT+18
    $$LOW^XLFSTR GET+12

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: "Req DT",?11,"Status",?22,"Procedure",?48,"Scheduled DT",?66,"Provider",!
    • Line Location: HDR+1
    Function Call: WRITE
    • Prompt: !
    • Line Location: HDR+2
    Function Call: WRITE
    • Prompt: GMRDT1,?13,GMSTAT
    • Line Location: WRT+7
    Function Call: WRITE
    • Prompt: ?17,"Ord: "
    • Condition for execution: +$G(GMREC(0))
    • Line Location: WRT+7
    Function Call: WRITE
    • Prompt: ?22,$P(GMPRC,"|"),?48,GMSDT,?66,GMDOC,!
    • Line Location: WRT+8
    Function Call: WRITE
    • Prompt: ?22,$P(GMPRC,"|",GMII),!
    • Line Location: WRT+10
    Function Call: WRITE
    • Prompt: ?13,"Actual: "
    • Line Location: WRT+13
    Function Call: WRITE
    • Prompt: ?21,$P(GMPRO,"|"),!
    • Line Location: WRT+16
    Function Call: WRITE
    • Prompt: ?22,$P(GMPRO,"|",GMII),!
    • Line Location: WRT+18

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    70.03 GETS^DIQ
    ^RA(72 - [#72] GET1^DIQ
    ^RAO(75.1 - [#75.1] Classic Fileman Calls

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^RADPT - [#70] REG+12, REG+18
    ^RADPT("AO" REG+8, REG+10, REG+11, REG+14
    ^RAO(75.1 - [#75.1] ENRAD+3, GET+2, GET+3
    ^TMP("GMTSRAD" ENRAD+1!, ENRAD+4, ENRAD+5!, GET+13*, GET+14*, LOOP+3, LOOP+5, LOOP+7, LOOP+8, LOOP+9
    WRT+14, WRT+15, REG1+31*, REG1+33*

    Label References

    Name Line Occurrences
    GET ENRAD+3
    HDR LOOP+2, WRT+6, WRT+10, WRT+12, WRT+18
    LOOP ENRAD+4
    REG GET+15
    REG1 REG+15, REG+19
    WRT LOOP+9

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    DA GET+1~, GET+3*, GET+7, GET+9, GET+10, GET+13, GET+14, GET+15, REG~, REG+8
    , REG+10, REG+11, REG+14, REG+15, REG+19, REG1~, REG1+31, REG1+33
    >> DFN ENRAD+3, GET+2, GET+3
    DIC GET+1~, GET+5*
    DIQ GET+1~, GET+5*
    DIQ(0 GET+5*
    DR GET+1~, GET+5*
    GMCNI REG+9~, REG+14*, REG+15, REG+17*, REG+18*, REG+19, REG1~, REG1+24
    GMCNT LOOP+1~*, LOOP+3, LOOP+5, LOOP+7, LOOP+9*
    GMDFN REG+9~, REG+10*, REG+11, REG+12, REG+14, REG+15, REG+18, REG+19, REG1~, REG1+24
    GMDOC GET+1~, GET+10*, GET+14, WRT+1~, WRT+4*, WRT+8
    GMDTI REG+9~, REG+11*, REG+12, REG+14, REG+15, REG+18, REG+19, REG1~, REG1+24
    GMI GET+1~*, GET+2*, GET+3, LOOP+1~, LOOP+6*, LOOP+7*, LOOP+8, LOOP+9, WRT+14, WRT+15
    GMIEN REG1+23~, REG1+24*, REG1+25, REG1+26, REG1+28, REG1+29, REG1+30
    GMII WRT+1~, WRT+9*, WRT+10, WRT+17*, WRT+18
    GMORD GET+4~, LOOP+1~, LOOP+4*, LOOP+5*, LOOP+7, LOOP+8, LOOP+9, WRT+14, WRT+15
    GMORD( GET+7, GET+9, GET+10
    GMOUT GET+1~, GET+2, GET+3
    GMP GET+1~, GET+9*, GET+13, GET+14, GET+15, REG~, REG+15, REG+19, REG1~, REG1+30
    , REG1+31, REG1+33
    GMPRC GET+1~, GET+9*, GET+11*, GET+14, WRT+1~, WRT+3*, WRT+8, WRT+9, WRT+10
    GMPRO WRT+1~, WRT+15*, WRT+16, WRT+17, WRT+18, REG1+23~, REG1+26*, REG1+27, REG1+32*, REG1+33
    GMRCNT WRT+13*, WRT+14*, WRT+15, REG+9~*, REG1+23*, REG1+33
    GMRDT GET+1~, GET+7*, GET+8, GET+13, GET+14, LOOP+1~*, LOOP+3*, LOOP+5, LOOP+7, LOOP+8
    LOOP+9, WRT+14, WRT+15, REG1+31, REG1+33
    GMRDT1 WRT+1~, WRT+2*, WRT+7
    GMREC LOOP+1~, LOOP+9*, WRT+2, WRT+3, WRT+4
    GMREC(0 LOOP+8*, WRT+7, WRT+11
    GMREG REG+9~, REG1+23~
    GMREG( REG1+26, REG1+28, REG1+29, REG1+30
    GMSDT GET+1~, GET+10*, GET+14, WRT+1~, WRT+4*, WRT+8
    GMSTAT GET+1~, GET+7*, GET+12*, GET+14, WRT+1~, WRT+2*, WRT+7
    >> GMTSBEG GET+8
    >> GMTSEND GET+8
    >> GMTSNDM ENRAD+2
    >> GMTSNPG WRT+6, WRT+10, WRT+12, WRT+18
    >> GMTSQIT HDR+1, HDR+2, WRT+5, WRT+10, WRT+12, WRT+16, WRT+18
    GMY2 REG+9~, REG+12*, REG+13
    MAX ENRAD+1~, ENRAD+2*, LOOP+3, LOOP+5, LOOP+7
    U GET+14, WRT+2, WRT+3, WRT+4
    X WRT+1~, WRT+2*, WRT+4*
    Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All