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 |  Marked Items  | All
Print Page as PDF
Routine: MAGDHOWP

Package: Imaging

Routine: MAGDHOWP


Information

MAGDHOWP ;WOIFO/PMK - Generate VistA Imaging HL7 message for Clinical Procedures Check-in ;04 Sep 2018 10:41 AM

Source Information

Source file <MAGDHOWP.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Imaging 2 MSGSETUP^MAGDHOW1  ^MAGDTR01  
VA FileMan 2 NOW^%DTC  $$GET1^DIQ  

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

Package Total Caller Graph
Imaging 4 MAGDHOW2  MAGDHOW4  MAGDHOWC  MAGDHOWS  
Clinical Procedures 1 MDHL7BH  

Entry Points

Name Comments DBIA/ICR reference
CLINPROC(FILE702P,ORDERFLAG) ; entry point from MDHL7BH
; FILE702P ---- pointer to the clinical procedure in ^MDD(702,FILE702P,...)
; ORDERFLAG --- 0=cancel, 1=new order
  • ICR #6910
    • Status: Pending
    • Usage: Private
  • ICR #6932
    • Status: Active
    • Usage: Private
    TELEREAD(ORC1) ; add the CP order to the TeleReader Read/Unread list
    OUTPUT(N) ; called by OUTPUT^MAGDHOW2 if CPINVOCATION=1
    CPORDER(GMRCIEN,HL7USID) ; entry point from OBR^MAGDHOW4, ENTRY^MAGDHOWC, MAGDHOWS
    ; Return Code
    ; -1,ERROR -------- error return
    ; 0,NOT A CP ----- not a clinical procedure
    ; 1,UNIDIRECT ---- clinical procedure with no bidirectional instruments
    ; 2,UNFINISHED --- unfinished clinical procedure with bidirectional instruments
    ; 3,FINISHED ----- finished clinical procedure with bidirectional instruments
    ;
    ; MAGHOWC and MAGDHOWS ignore consult & appointment transactions for
    ; unfinished CP's ("2,UNFINISHED") and process them for cancelled, completed,
    ; and discontinued CP's, CP's with no bidirectional instruments, and non-CP
    ; CPRS Consult Request Tracking consults & procedures.
    ;
    ; MAGDHOW4 needs to get CP's HL7 Universal Service Identifier (HL7USID) and
    ; store it in OBR-4 for clinical procedures.
    IEN01 ;;F;DISCONTINUED
    IEN02 ;;F;COMPLETE
    IEN03 ;;U;HOLD
    IEN04 ;;U;FLAGGED
    IEN05 ;;U;PENDING
    IEN06 ;;U;ACTIVE
    IEN07 ;;F;EXPIRED
    IEN08 ;;U;SCHEDULED
    IEN09 ;;U;PARTIAL RESULTS
    IEN10 ;;U;DELAYED
    IEN11 ;;U;UNRELEASED
    IEN12 ;;F;DISCONTINUED/EDIT
    IEN13 ;;F;CANCELLED
    IEN14 ;;U;LAPSED
    IEN15 ;;U;RENEWED
    IEN99 ;;F;NO STATUS

    External References

    Name Field # of Occurrence
    NOW^%DTC CLINPROC+9, CLINPROC+10
    $$GET1^DIQ CLINPROC+4, CLINPROC+5, CLINPROC+6, CLINPROC+7, CLINPROC+12, CLINPROC+13, CLINPROC+14, OUTPUT+2, OUTPUT+3, CPORDER+21
    , CPORDER+28, CPORDER+29, CPORDER+30, CPORDER+39, CPORDER+40, CPORDER+43
    MSGSETUP^MAGDHOW1 CLINPROC+26
    ^MAGDTR01 TELEREAD+4

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^GMR(123 - [#123] GET1^DIQ
    ^MDD(702 - [#702] GET1^DIQ
    ^MDS(702.01 - [#702.01] GET1^DIQ
    702.011 GET1^DIQ
    ^MDS(702.09 - [#702.09] GET1^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^MDD(702 - [#702] CPORDER+37
    ^MDS(702.01 - [#702.01] CPORDER+27

    Label References

    Name Line Occurrences
    TELEREAD CLINPROC+23

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> % CLINPROC+9, CLINPROC+10
    APTSCHED CLINPROC+3~, CLINPROC+26
    APTSCHED("CLI NIC IEN" , CLINPROC+13*, NIC NAME" , CLINPROC+14*
    APTSCHED("FM DATETIME" , CLINPROC+11*
    BIDIRECT CPORDER+16~, CPORDER+26*, CPORDER+27, CPORDER+30*, CPORDER+33
    CPDICOM OUTPUT+1~, OUTPUT+3*, OUTPUT+4
    CPINVOCATION CLINPROC+3~, CLINPROC+25*
    DEL TELEREAD+1~, TELEREAD+2*, TELEREAD+3
    DEL2 TELEREAD+1~, TELEREAD+2*
    DFN CLINPROC+3~, CLINPROC+4*
    DT CLINPROC+10
    E CPORDER+16~
    FILE70201P CLINPROC+3~, CLINPROC+12*, CLINPROC+13, CLINPROC+14, CPORDER+16~, CPORDER+21*, CPORDER+23, CPORDER+27, CPORDER+28
    FILE70209P OUTPUT+1~, OUTPUT+2*, OUTPUT+3, CPORDER+16~, CPORDER+28*, CPORDER+29, CPORDER+30, CPORDER+39*, CPORDER+40
    FILE702P CLINPROC~, CLINPROC+4, CLINPROC+5, CLINPROC+7, CLINPROC+12, OUTPUT+2, CPORDER+16~, CPORDER+37*, CPORDER+38, CPORDER+39
    FILLER2 CLINPROC+3~, CLINPROC+15*
    GMRCIEN CLINPROC+3~, CLINPROC+5*, CLINPROC+6, CLINPROC+26, CPORDER~, CPORDER+21, CPORDER+37, CPORDER+43
    >> HL7( OUTPUT+7
    HL7ORC TELEREAD+1~, TELEREAD+3*
    HL7USID CPORDER~, CPORDER+18*, CPORDER+29*, CPORDER+40*
    HLA OUTPUT+6!
    HLA("HLS" OUTPUT+7*
    I OUTPUT+7*, CPORDER+16~, CPORDER+27*, CPORDER+28
    MCODE CPORDER+16~, CPORDER+45*, CPORDER+46
    N OUTPUT~, OUTPUT+7
    ORC1 CLINPROC+3~, CLINPROC+17*, CLINPROC+20*, CLINPROC+23, CLINPROC+26, TELEREAD~, TELEREAD+3
    ORC5 CLINPROC+3~, CLINPROC+17*, CLINPROC+20*, CLINPROC+26
    ORDERFLAG CLINPROC~, CLINPROC+16
    SDATE CLINPROC+3~, CLINPROC+7*, CLINPROC+8*, CLINPROC+9*, CLINPROC+10*, CLINPROC+11
    SERVICE CLINPROC+3~, CLINPROC+6*, CLINPROC+26
    STATUS CPORDER+16~, CPORDER+43*, CPORDER+44
    TAG CPORDER+16~, CPORDER+44*

    Marked Items

    Name Field # of Occurrence
    $T(@TAG CPORDER+45
    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 |  Marked Items  | All