source: WorldVistAEHR/trunk/r/IMAGING-MAG-ZMAG/MAGDCRP.m@ 701

Last change on this file since 701 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 2.9 KB
Line 
1MAGDCRP ;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
20ERR N ERR S ERR=$$EC^%ZOSV S @MAGGRY@(0)="0^4~"_ERR
21 D @^%ZOSF("ERRTN")
22 Q:$Q 1 Q
23 ;
24RPCIN(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 ;
45RPCINZ S @MAGGRY@(0)=CT_U_REPLY
46 Q
47 ;
48EECR ;
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 ;
60INCR ;
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 ;
73END ;
Note: See TracBrowser for help on using the repository browser.