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 |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: MAGDFCNV

Package: Imaging

Routine: MAGDFCNV


Information

MAGDFCNV ;WOIFO/PMK - Read HL7 and generate DICOM ; Jan 13, 2026@11:26:58

Source Information

Source file <MAGDFCNV.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Imaging 2 $$UP^MAGDFCNV  $$ISIHS^MAGSPID  
Kernel 2 $$STA^XUAF4  $$KSP^XUPARAM  
VA FileMan 2 ($$FIND1,FIND)^DIC  ($$GET1,GETS)^DIQ  

Caller Graph

Caller Graph Total: 50

Package Total Caller Graph
Imaging 49 MAG DISPLAY ROUTINE CHECKSUMS  MAGD350J  MAGDCCS2  MAGDFCNV  MAGDGMRC  MAGDHLS  MAGDHOW3  MAGDHOW4  
MAGDHOW5  MAGDIR82  MAGDIR8A  MAGDIR9A  MAGDIR9E  MAGDIR9F  MAGDLBAA  MAGDQR03  
MAGDQR05  MAGDQR06  MAGDQR08  MAGDQR73  MAGDRAHL  MAGDRPC1  MAGDRPC2  MAGDRPC4  
MAGDRPC9  MAGDRPCA  MAGDRPCC  MAGDRPCE  MAGDSTA  MAGDSTA1  MAGDSTA7  MAGDSTAG  
MAGDSTAS  MAGDSTD1  MAGDSTD3  MAGDSTQ  MAGDSTQ9  MAGDTR05  MAGNU003  MAGNVQ02  
MAGT7SI  MAGT7SO  MAGVD001  MAGVD003  MAGVGUID  MAGVIM02  MAGVIM06  MAGVORDR  
MAGVRS43  
Clinical Procedures 1 MDRPCOT1  

Entry Points

Name Comments DBIA/ICR reference
CONSOLID() ; check if this is a consolidated site or not
; return 0 = non-consolidated (normal) site
; return 1 = consolidated site
ACQDEV(MFGR,MODEL,SITE) ; get pointer to the Acquisition Device file
EQUIVGRP(P1,P2) ; see if two SOP Class pointers are in equivalent groups
UP(X) ; special UPPER CASE function -- removes redundant blanks as well
STATNUMB() ; return numeric 3-digit station number for the VA
DIVISION() ; return the user's hospital division - P333 PMK 01/13/2026
GMRCACN(GMRCIEN) ; return a site-specific accession number for clinical specialties
; GMRCIEN is the CPRS Consult Request Tracking GMRC IEN - REQUEST/CONSULTATION file(#123)
  • ICR #6911
    • Status: Pending
    • Usage: Private
  • ICR #6931
    • Status: Active
    • Usage: Private
    GMRCIEN(ACNUMB) ; return the GMRC IEN, given a consult/procedure accession number
    ; ACNUMB is the accession number for a consult/procedure request
    ; OLD Format: GMRC-<gmrcien>, where <gmrcien>is the internal entry number of the request
    ; New Format: <sss>-GMR-<gmrcien>, where <sss> is station number, and <gmrcien>
    ; is the internal entry number of the request, up to 8 digits (100 million)
    HOSTNAME() ;
    CHECKSUM ; interactive routine checksums - P333 PMK 06/06/2022
    ROUTINE ; get a list of routines
    SAVERTN(R,SELECT) ; save the routine info
    PATCH ; get a patch number
    CHECKSUMS ; output the checksums
    NOQUOTES(X) ; "Copy as path" has leading and trailing quotes - remove them
    RP(PROMPT,DEFAULT,CHOICE,HELP) ; generic question driver
    CHK2(R) ; checksum algorithm for a routine
    C2(X,K) ; checksum algorithm for a line

    External References

    Name Field # of Occurrence
    $$FIND1^DIC PATCH+16
    FIND^DIC GMRCACN+7
    $$GET1^DIQ GMRCACN+9
    GETS^DIQ PATCH+18
    $$UP^MAGDFCNV ACQDEV+4
    $$ISIHS^MAGSPID STATNUMB+4
    $$STA^XUAF4 STATNUMB+2
    $$KSP^XUPARAM STATNUMB+2

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !
    • Line Location: CHECKSUM+23
    Function Call: WRITE
    • Prompt: !,"Routine(s): "
    • Line Location: ROUTINE+5
    Function Call: WRITE
    • Prompt: " -- not on file"
    • Line Location: ROUTINE+20
    Function Call: WRITE
    • Prompt: !!,"Patch number: "
    • Line Location: PATCH+4
    Function Call: WRITE
    • Prompt: " ???"
    • Line Location: PATCH+7
    Function Call: WRITE
    • Prompt: !!,"Enter the full patch number or just the last digits for MAG*3.0*nnn"
    • Line Location: PATCH+9
    Function Call: WRITE
    • Prompt: " ??? No ",PATCH," patch"
    • Line Location: PATCH+17
    Function Call: WRITE
    • Prompt: !,R,?10,$J($$CHK2(R),10)
    • Line Location: CHECKSUMS+3
    Function Call: WRITE
    • Prompt: ?23,$P($G(^TMP("MAG",$J,"ROUTINES",R)),"^",1)
    • Line Location: CHECKSUMS+4
    Function Call: WRITE
    • Prompt: ?46,$P($G(^TMP("MAG",$J,"ROUTINES",R)),"^",2)
    • Line Location: CHECKSUMS+5
    Function Call: WRITE
    • Prompt: !!,PROMPT," "
    • Line Location: RP+3
    Function Call: WRITE
    • Prompt: DEFAULT,"// "
    • Line Location: RP+3
    Function Call: READ
    • Variable: X
    • Timeout: DTIME
    • Line Location: RP+4
    Function Call: WRITE
    • Prompt: X
    • Line Location: RP+5
    Function Call: WRITE
    • Prompt: !
    • Line Location: RP+11
    Function Call: WRITE
    • Prompt: !,HELP(I)
    • Line Location: RP+12
    Function Call: WRITE
    • Prompt: " ???",!,"Please enter ""R"" for routines or ""P"" for a patch"
    • Line Location: RP+14
    Routine Call
    • DIC
    • Line Location:
      • PATCH+16
    Routine Call
    • DIC
    • Line Location:
      • GMRCACN+7

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^GMR(123 - [#123] GET1^DIQ
    ^XPD(9.6 - [#9.6] FIND1^DIC
    9.67 GETS^DIQ
    ^XPD(9.7 - [#9.7] FIND^DIC

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^MAG(2006.04 - [#2006.04] ACQDEV+5, ACQDEV+7, ACQDEV+8, ACQDEV+9, ACQDEV+10*, ACQDEV+11*, ACQDEV+12*, ACQDEV+13*, ACQDEV+14
    ^MAG(2006.1 - [#2006.1] CONSOLID+5
    ^MAG(2006.532 - [#2006.532] EQUIVGRP+4, EQUIVGRP+5
    ^ROUTINE( ROUTINE+15, SAVERTN+2, SAVERTN+4, PATCH+21
    ^TMP("MAG" CHECKSUM+12!, CHECKSUM+24!, ROUTINE+2!, SAVERTN+5*, SAVERTN+8!, PATCH+23*, CHECKSUMS+2, CHECKSUMS+4, CHECKSUMS+5

    Label References

    Name Line Occurrences
    $$C2 CHK2+3
    $$CHK2 CHECKSUMS+3
    $$RP CHECKSUM+13
    $$SAVERTN ROUTINE+14, ROUTINE+16, ROUTINE+19
    $$STATNUMB GMRCACN+17
    $$UP PATCH+13
    CHECKSUMS CHECKSUM+23
    PATCH CHECKSUM+15
    ROUTINE CHECKSUM+19

    Naked Globals

    Name Field # of Occurrence
    ^(0 ACQDEV+8*
    ^(2 SAVERTN+4, PATCH+21

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    A GMRCACN+2~, PATCH+1~
    A( PATCH+19, PATCH+20
    A("DILIST" GMRCACN+8
    ACNUMB GMRCACN+3~, GMRCACN+12*, GMRCACN+17*, GMRCACN+19, GMRCIEN~, GMRCIEN+6, GMRCIEN+7
    ACQDEV ACQDEV+1~, ACQDEV+4*, ACQDEV+5, ACQDEV+10, ACQDEV+11
    ACQDEVP ACQDEV+2~, ACQDEV+5*, ACQDEV+6, ACQDEV+9*, ACQDEV+10, ACQDEV+11, ACQDEV+12, ACQDEV+13, ACQDEV+15
    B PATCH+1~
    CHOICE RP~, RP+7*, RP+8*, RP+9*
    DEFAULT CHECKSUM+1~, CHECKSUM+4*, CHECKSUM+13, CHECKSUM+16*, CHECKSUM+20*, RP~, RP+3, RP+5, RP+6
    DIVISION DIVISION+1~, DIVISION+2*, DIVISION+3, DIVISION+4*, DIVISION+6
    DONE CHECKSUM+1~, CHECKSUM+11*, CHECKSUM+13*, ROUTINE+1~, ROUTINE+3*, ROUTINE+4, ROUTINE+7*, ROUTINE+8*, PATCH+1~, PATCH+2*
    , PATCH+3, PATCH+6*, PATCH+25*
    DTIME ROUTINE+6, PATCH+5, RP+4
    DUZ(2 DIVISION+2
    EXAMDATE GMRCACN+4~, GMRCACN+9*, GMRCACN+10
    EXISTS SAVERTN+1~, SAVERTN+10*, SAVERTN+12*, SAVERTN+13
    F C2+1~, C2+3*, C2+4
    G1 EQUIVGRP+1~, EQUIVGRP+4*, EQUIVGRP+6
    G2 EQUIVGRP+1~, EQUIVGRP+5*, EQUIVGRP+6
    GMRCIEN GMRCACN~, GMRCACN+9, GMRCACN+12, GMRCACN+17, GMRCIEN+5~, GMRCIEN+6*, GMRCIEN+7*, GMRCIEN+8*, GMRCIEN+9
    HELP CHECKSUM+1~, CHECKSUM+13, RP~, RP+10
    HELP( RP+12
    HELP(1 CHECKSUM+6*
    HELP(2 CHECKSUM+7*
    HELP(3 CHECKSUM+8*
    HELP(4 CHECKSUM+9*
    I RP+1~, RP+12*, C2+1~, C2+4*
    IEN PATCH+1~, PATCH+16*, PATCH+17, PATCH+18
    IOM CHECKSUM+26
    K CHK2+1~, CHK2+3*, C2~, C2+4
    LINE1 ROUTINE+1~, SAVERTN+1~, SAVERTN+4*, SAVERTN+5, PATCH+1~, PATCH+21*, PATCH+23
    LINE2 ROUTINE+1~, SAVERTN+1~, SAVERTN+4*, SAVERTN+5, PATCH+1~, PATCH+21*, PATCH+22
    MFGR ACQDEV~, ACQDEV+4
    MODEL ACQDEV~, ACQDEV+4
    OK RP+1~, RP+2*, RP+7*, RP+8*, RP+9*, RP+16
    P1 EQUIVGRP~, EQUIVGRP+2, EQUIVGRP+4
    P162DATE GMRCACN+5~, GMRCACN+8*, GMRCACN+10
    P2 EQUIVGRP~, EQUIVGRP+3, EQUIVGRP+5
    PATCH PATCH+1~, PATCH+11*, PATCH+13*, PATCH+14*, PATCH+16, PATCH+17
    PLIST PATCH+1~, PATCH+22*, PATCH+23
    PROMPT CHECKSUM+1~, CHECKSUM+5*, CHECKSUM+13, RP~, RP+3
    R ROUTINE+1~, ROUTINE+13*, ROUTINE+14, ROUTINE+15*, ROUTINE+16, SAVERTN~, SAVERTN+2, SAVERTN+4, SAVERTN+5, SAVERTN+8
    , PATCH+1~, PATCH+20*, PATCH+21, PATCH+23, CHECKSUMS+1~, CHECKSUMS+2*, CHECKSUMS+3, CHECKSUMS+4, CHECKSUMS+5, CHK2~
    ROUTINE CHECKSUM+1~
    S PATCH+1~, PATCH+19*, PATCH+20
    SELECT ROUTINE+1~, ROUTINE+9*, ROUTINE+10*, ROUTINE+14, ROUTINE+16, ROUTINE+19, SAVERTN~, SAVERTN+3
    SITE ACQDEV~, ACQDEV+10
    STATNUMB STATNUMB+1~, STATNUMB+2*, STATNUMB+4
    STATUS ROUTINE+1~, ROUTINE+14*, ROUTINE+16*
    STOP ROUTINE+1~, ROUTINE+15*
    X UP~, UP+1*, UP+2*, UP+3*, UP+4, CHECKSUM+1~, CHECKSUM+13, CHECKSUM+14, ROUTINE+1~, ROUTINE+6*
    , ROUTINE+7, ROUTINE+8, ROUTINE+9*, ROUTINE+11*, ROUTINE+12, ROUTINE+13*, ROUTINE+15, ROUTINE+19, PATCH+1~, PATCH+5*
    , PATCH+6, PATCH+7*, PATCH+8, PATCH+11, PATCH+13, NOQUOTES~, NOQUOTES+1*, NOQUOTES+2, RP+1~, RP+4*
    , RP+5*, RP+6*, RP+7, RP+8, RP+9, RP+10, CHK2+1~, CHK2+3*, C2~, C2+3
    , C2+4
    Y CHK2+1~, CHK2+2*, CHK2+3*, CHK2+4, C2+1~, C2+2*, C2+4*, C2+5

    Marked Items

    Name Field # of Occurrence
    $T( CHK2+3
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All