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

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

    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

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