Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

    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
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call