MAGDFCNV ;WOIFO/PMK - Read HL7 and generate DICOM ; Mar 31, 2020@15:52:30
Source file <MAGDFCNV.m>
| 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
|
|
| GMRCACN(GMRCIEN) | ; return a site-specific accession number for clinical specialties
; GMRCIEN is the CPRS Consult Request Tracking GMRC IEN - REQUEST/CONSULTATION file(#123) |
|
| 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() | ;
|
| FileNo | Call Tags |
|---|---|
| ^GMR(123 - [#123] | GET1^DIQ |
| ^XPD(9.7 - [#9.7] | FIND1^DIC, GET1^DIQ |
| 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 |
| Name | Line Occurrences |
|---|---|
| $$STATNUMB | GMRCACN+16 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | ACQDEV+8* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ACNUMB | GMRCACN+2~, GMRCACN+11*, GMRCACN+16*, GMRCACN+18, 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 |
| EXAMDATE | GMRCACN+3~, GMRCACN+8*, GMRCACN+9 |
| G1 | EQUIVGRP+1~, EQUIVGRP+4*, EQUIVGRP+6 |
| G2 | EQUIVGRP+1~, EQUIVGRP+5*, EQUIVGRP+6 |
| GMRCIEN | GMRCACN~, GMRCACN+8, GMRCACN+11, GMRCACN+16, GMRCIEN+5~, GMRCIEN+6*, GMRCIEN+7*, GMRCIEN+8*, GMRCIEN+9 |
| INSTALLIEN | GMRCACN+5~, GMRCACN+6*, GMRCACN+7 |
| MFGR | ACQDEV~, ACQDEV+4 |
| MODEL | ACQDEV~, ACQDEV+4 |
| P1 | EQUIVGRP~, EQUIVGRP+2, EQUIVGRP+4 |
| P162DATE | GMRCACN+4~, GMRCACN+7*, GMRCACN+9 |
| P2 | EQUIVGRP~, EQUIVGRP+3, EQUIVGRP+5 |
| SITE | ACQDEV~, ACQDEV+10 |
| STATNUMB | STATNUMB+1~, STATNUMB+2*, STATNUMB+4 |
| X | UP~, UP+1*, UP+2*, UP+3*, UP+4 |
