MAGUXRF ;WOIFO/SRR/SG/NST - Imaging MUMPS cross-references ; 29 Oct 2010 2:23 PM
Source file <MAGUXRF.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SETACT | ||
| KILLACT | ||
| AC(SETKIL) | ||
| SETPX | ; Set PACS switch on; check fields first
; Write checks |
|
| KILPX | ; Stop PACS system
|
|
| SETPDPX | ; Set P(atient) D(ate) PX(procedure)
|
|
| SET | ||
| 4 | ||
| KILPDPX | ; Kill
|
|
| SETPPXD | ; #5:Set (patient=X=DFN); #6:PX(procedure); #15:DT(procedure date/time)
; Xref for patient field#5=Patient name (in form of DFN) ; ^MAG(2005,"APPXDT",X,PX,reverseDT)="" |
|
| SETUP | ; Set up for patient Xref's-for field #5l
|
|
| KILPPXD | ;#5:KILL (PATIENT=X=DFN); #6:PX(PROCEDURE); #15:DT(PROCEDURE DATE/TIME)
|
|
| SETPPXD6 | ;#5:SET (PATIENT=X=DFN); #6:PX(PROCEDURE); #15:DT(PROCEDURE DATE/TIME)
|
|
| SETUP6 | ; Set up for procedure xref-field#6
|
|
| KILPPXD6 | ;#5:KILL (PATIENT=X=DFN); #6:PX(PROCEDURE); #15:DT(PROCEDURE DATE/TIME)
|
|
| SETPPXD5 | ;#5:SET (PATIENT=X=DFN); #6:PX(PROCEDURE); #15:DT(PROCEDURE DATE/TIME)
|
|
| SETUP5 | ; Set up for date/time procedure field #15
|
|
| KILPPXD5 | ;#5:SET (PATIENT=X=DFN); #6:PX(PROCEDURE); #15:DT(PROCEDURE DATE/TIME)
|
|
| SETDCM | ; Set the cross reference for DICOM SERIES NUM
; and DICOM IMAGE NUM fields of the OBJECT GROUP Multiple |
|
| KILLDSN | ; Kill the cross reference for DICOM SERIES NUM
|
|
| KILLDIN | ; Kill the DICOM IMAGE NUM cross reference
; of the OBJECT GROUP Multiple |
|
| BOTHNUM(MAGDSN,MAGDIN) | ;
|
|
| AUDIT(FILE,IENS,FLDLST,SUBFILE,X1,X2) | ;
|
