Changeset 636 for FOIAVistA/tag/r/IMAGING-MAG-ZMAG/MAGQBUT2.m
- Timestamp:
- Dec 4, 2009, 8:26:01 PM (14 years ago)
- Location:
- FOIAVistA/tag/r
- Files:
-
- 1 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
FOIAVistA/tag/r/IMAGING-MAG-ZMAG/MAGQBUT2.m
r628 r636 1 1 MAGQBUT2 ;WOIFO/SRR/RMP -IMAGE SITE PARAMETERS COMPANION [ 11/08/2001 17:18 ] 2 ;;3.0;IMAGING;**7,8,20,81**;May 17, 2007 3 ;; Per VHA Directive 2004-038, this routine should not be modified. 2 ;;3.0;IMAGING;**7,8,20**;Apr 12, 2006 4 3 ;; +---------------------------------------------------------------+ 5 4 ;; | Property of the US Government. | … … 9 8 ;; | Development Office of the Department of Veterans Affairs, | 10 9 ;; | telephone (301) 734-0100. | 10 ;; | | 11 11 ;; | The Food and Drug Administration classifies this software as | 12 12 ;; | a medical device. As such, it may not be changed in any way. | … … 16 16 ;; +---------------------------------------------------------------+ 17 17 ;; 18 VSTAV() ; 19 N VER,IEN,ARRAY,VALUE,LATEST 20 S VER=$$VERSION^XPDUTL("IMAGING") 21 S:$T(LAST^XPDUTL)]"" VER=VER_"^"_$$LAST^XPDUTL("IMAGING",VER) 22 Q VER 23 IWSV(WSD,WSC,WSV,PLACE) ;IMAGE WORKSTATION VERSIONS 24 N IEN,NODE,RD,OS 25 S RD=$$FMADD^XLFDT($$NOW^XLFDT,-180,"","","") 26 S IEN=0 27 F S IEN=$O(^MAG(2006.81,"C",PLACE,IEN)) Q:IEN'?1N.N D 28 . S NODE=^MAG(2006.81,IEN,0) 29 . Q:($P(NODE,U,3)<RD) 30 . S OS=$P($G(^MAG(2006.81,IEN,1)),U,2) 31 . I $P(NODE,"^",9)'="" D 32 . . S INDEX=$P(NODE,"^",9),INDEX=$S(OS="":INDEX,1:INDEX_U_OS) 33 . . S WSD(INDEX)=$G(WSD(INDEX))+1 34 . I $P(NODE,"^",13)'="" D 35 . . S INDEX=$P(NODE,"^",13),INDEX=$S(OS="":INDEX,1:INDEX_U_OS) 36 . . S WSC(INDEX)=$G(WSC(INDEX))+1 37 . I $P(NODE,"^",15)'="" D 38 . . S INDEX=$P(NODE,"^",15),INDEX=$S(OS="":INDEX,1:INDEX_U_OS) 39 . . S WSV(INDEX)=$G(WSV(INDEX))+1 40 Q 41 DICOMV(DCMG) ;Version of DICOM 42 N X,ARRAY,IEN,NAME 43 S X="" 44 F S X=$O(^MAG(2006.83,"B",X)) Q:X="" D 45 . S IEN=$O(^MAG(2006.83,"B",X,"")) Q:IEN'?1N.N 46 . S DCMG($P(^MAG(2006.83,IEN,0),U,3))=$G(DCMG($P(^MAG(2006.83,IEN,0),U,3)))+1 47 Q $S($D(DCMG):1,1:0) 48 VISTARV() ; 49 Q $$VERSION^XPDUTL("MAGJ RADIOLOGY") 18 50 MAGSYS(LIST) ; 19 ; RPC[MAGQ SYSTEM]20 51 N VAIEN,NODE,MGIEN,UNAME,TDATE 21 52 S MGIEN=$$FIND1^DIC(3.8,"","MX","MAG SERVER","","","ERR") … … 31 62 . S LIST(VAIEN)=VAIEN_"^"_UNAME 32 63 Q 33 IMPAR(RESULT,QIEN) ; Import Array64 IMPAR(RESULT,QIEN) ; 34 65 N INDX,CNT 35 66 S (INDX,CNT)=0 … … 40 71 E S RESULT(0)="1" 41 72 Q 73 SNS(PLACE) ; 74 N RESULT,INDEX 75 S INDEX=0 76 S RESULT=$P(^MAG(2006.1,PLACE,0),U,2) 77 F S INDEX=$O(^MAG(2006.1,PLACE,4,INDEX)) Q:INDEX'?1N.N D 78 . S RESULT=RESULT_U_$P($G(^MAG(2006.1,PLACE,4,INDEX,0)),U) 79 Q RESULT 42 80 CHKIMG(IEN) ; 43 81 ; Given an Image IEN, return: … … 84 122 S IDFN=$P(X0,"^",7),$P(R,"^",4)=IDFN 85 123 S PT(3.9)="^XMB(3.9,PD0,|Mail message||2|^XMB(3.9,PD0,2005,|MAIL" 86 ; The following 5 Lab subsections must be in-synch with FILE+42^MAGGTLB187 124 S PT(63)="^LR(PD0,GF,PD1,|Autopsy (microscopic)|AY|1|^LR(PD0,GF,PD1,2005,|AUM" 88 125 S PT(63.02)="^LR(PD0,GF,PD1,|Electron microscopy|EM|1|^LR(PD0,GF,PD1,2005,|EM" 89 126 S PT(63.08)="^LR(PD0,GF,PD1,|Surgical pathology|SP|1|^LR(PD0,GF,PD1,2005,|SP" 90 127 S PT(63.09)="^LR(PD0,GF,PD1,|Cytology|CY|1|^LR(PD0,GF,PD1,2005,|CY|" 91 S PT(63.2)="^LR(PD0,GF,PD1,|Autopsy (gross)|A Y|1|^LR(PD0,GF,PD1,2005,|AUG"128 S PT(63.2)="^LR(PD0,GF,PD1,|Autopsy (gross)|AU|1|^LR(PD0,GF,PD1,2005,|AUG" 92 129 S PT(70)="^RADPT(PDFN,|Radiology Patient||1|" 93 130 S PT(74)="^RARPT(PD0,|Radiology||2|^RARPT(PD0,2005,|RAD"
Note:
See TracChangeset
for help on using the changeset viewer.