| 1 | MAGDCRP ;WIRMFO/JHC CR-PARAMETERS RPC ; 27 July 2006 10:05 AM
|
|---|
| 2 | ;;3.0;IMAGING;**65**;Jul 27, 2006;Build 28
|
|---|
| 3 | ;;Per VHA Directive 2004-038, this routine should not be modified.
|
|---|
| 4 | ;; +---------------------------------------------------------------+
|
|---|
| 5 | ;; | Property of the US Government. |
|
|---|
| 6 | ;; | No permission to copy or redistribute this software is given. |
|
|---|
| 7 | ;; | Use of unreleased versions of this software requires the user |
|
|---|
| 8 | ;; | to execute a written test agreement with the VistA Imaging |
|
|---|
| 9 | ;; | Development Office of the Department of Veterans Affairs, |
|
|---|
| 10 | ;; | telephone (301) 734-0100. |
|
|---|
| 11 | ;; | |
|
|---|
| 12 | ;; | The Food and Drug Administration classifies this software as |
|
|---|
| 13 | ;; | a medical device. As such, it may not be changed in any way. |
|
|---|
| 14 | ;; | Modifications to this software may result in an adulterated |
|
|---|
| 15 | ;; | medical device under 21CFR820, the use of which is considered |
|
|---|
| 16 | ;; | to be a violation of US Federal Statutes. |
|
|---|
| 17 | ;; +---------------------------------------------------------------+
|
|---|
| 18 | ;;
|
|---|
| 19 | Q
|
|---|
| 20 | ERR N ERR S ERR=$$EC^%ZOSV S @MAGGRY@(0)="0^4~"_ERR
|
|---|
| 21 | D @^%ZOSF("ERRTN")
|
|---|
| 22 | Q:$Q 1 Q
|
|---|
| 23 | ;
|
|---|
| 24 | RPCIN(MAGGRY,PARAMS) ; RPC: MAGD CR PARAMS
|
|---|
| 25 | ;PARAMS: SLOC--Location code of interest
|
|---|
| 26 | ;
|
|---|
| 27 | N $ETRAP,$ESTACK S $ETRAP="D ERR^MAGDCRP"
|
|---|
| 28 | N DIQUIET,GLOC,LOCIEN,MAGLST,MANIEN,MANUF,MODEL,MODIEN,REC,REPLY,SLOC,VERSION,VERIEN
|
|---|
| 29 | S SLOC=$P(PARAMS,U)
|
|---|
| 30 | S MAGLST="MAGDRPC" K MAGGRY S MAGGRY=$NA(^TMP($J,MAGLST)) K @MAGGRY
|
|---|
| 31 | N CT S CT=0
|
|---|
| 32 | S DIQUIET=1 D DT^DICRW
|
|---|
| 33 | I 'SLOC S REPLY="Invalid parameter passed to MAGD CR PARAMS call ("_SLOC_")." G RPCINZ
|
|---|
| 34 | S LOCIEN=$O(^MAG(2006.623,"B",SLOC,""))
|
|---|
| 35 | I 'LOCIEN S REPLY="No Location data defined in CR Parameter file ("_SLOC_")." G RPCINZ
|
|---|
| 36 | S GLOC=$NA(^MAG(2006.623,LOCIEN)),MANIEN=0
|
|---|
| 37 | F S MANIEN=$O(@GLOC@(1,MANIEN)) Q:'MANIEN S MANUF=^(MANIEN,0),MODIEN=0 D
|
|---|
| 38 | . F S MODIEN=$O(@GLOC@(1,MANIEN,1,MODIEN)) Q:'MODIEN S MODEL=^(MODIEN,0),VERSION=0 D
|
|---|
| 39 | . . F S VERSION=$O(@GLOC@(1,MANIEN,1,MODIEN,1,"B",VERSION)) Q:VERSION="" S VERIEN=$O(^(VERSION,"")) D
|
|---|
| 40 | . . . S X=$G(@GLOC@(1,MANIEN,1,MODIEN,1,VERIEN,0)) Q:X=""
|
|---|
| 41 | . . . S REC=SLOC_"|"_MANUF_"|"_MODEL_"|"_VERSION_"|"_+$P(X,U,2)
|
|---|
| 42 | . . . S CT=CT+1,@MAGGRY@(CT)=REC
|
|---|
| 43 | S REPLY=CT_" records returned"
|
|---|
| 44 | ;
|
|---|
| 45 | RPCINZ S @MAGGRY@(0)=CT_U_REPLY
|
|---|
| 46 | Q
|
|---|
| 47 | ;
|
|---|
| 48 | EECR ;
|
|---|
| 49 | W @IOF,!!?10,"** Enter/Edit MAG CR PARAMETER data **",!!
|
|---|
| 50 | N MAGIEN
|
|---|
| 51 | K DIC S (DIC,DLAYGO)=2006.623,DIC(0)="ALMEQN"
|
|---|
| 52 | D ^DIC I Y=-1 K DIC,DIE,DR,DLAYGO Q
|
|---|
| 53 | S DIE=2006.623,DA=+Y
|
|---|
| 54 | S DR=".01;1;",DR(2,2006.6231)=".01;1;",DR(3,2006.62311)=".01;1;",DR(4,2006.623111)=".01;1;"
|
|---|
| 55 | S MAGIEN=DA
|
|---|
| 56 | D ^DIE I '$D(DA) G EECR
|
|---|
| 57 | G EECR
|
|---|
| 58 | Q
|
|---|
| 59 | ;
|
|---|
| 60 | INCR ;
|
|---|
| 61 | W @IOF,!!?10,"** Inquire MAG CR PARAMETER data **",!!
|
|---|
| 62 | N MAGIEN,BY,FR,TO
|
|---|
| 63 | S DIC=2006.623,DIC(0)="AMEQ"
|
|---|
| 64 | D ^DIC I Y=-1 K DIC Q
|
|---|
| 65 | S DA=+Y,(FR,TO)=$P(Y,U,2),MAGIEN=DA,L=0
|
|---|
| 66 | S BY="#.01",FLDS="[MAGD CR PARAM LIST]",DIS(0)="I D0=MAGIEN"
|
|---|
| 67 | D EN1^DIP
|
|---|
| 68 | R !,"Enter RETURN to continue: ",X:DTIME W !
|
|---|
| 69 | G INCR
|
|---|
| 70 | Q
|
|---|
| 71 | ;
|
|---|
| 72 | ;
|
|---|
| 73 | END ;
|
|---|
