- MAGGDEV ;WOIFO/LB,NST - Routine to enter Imaging device entries ; 18 Mar 2013 1:40 PM
- ;;3.0;IMAGING;**98,119**;Mar 19, 2002;Build 4396;Apr 19, 2013
- ;; Per VHA Directive 2004-038, this routine should not be modified.
- ;; +---------------------------------------------------------------+
- ;; | Property of the US Government. |
- ;; | No permission to copy or redistribute this software is given. |
- ;; | Use of unreleased versions of this software requires the user |
- ;; | to execute a written test agreement with the VistA Imaging |
- ;; | Development Office of the Department of Veterans Affairs, |
- ;; | telephone (301) 734-0100. |
- ;; | The Food and Drug Administration classifies this software as |
- ;; | a medical device. As such, it may not be changed in any way. |
- ;; | Modifications to this software may result in an adulterated |
- ;; | medical device under 21CFR820, the use of which is considered |
- ;; | to be a violation of US Federal Statutes. |
- ;; +---------------------------------------------------------------+
- ;;
- Q
- EN ;Create/Update an entry in the Device file for an Imaging workstation.
- ;
- TERM N A,DA,DD,DO,DIC,DIE,DR,ENTRY,X,Y
- W !,"I will check the 'P-IMAGING' entry in the Terminal Type file."
- S DA=$$FIND1^DIC(3.2,,,"P-IMAGING","B")
- I DA D G DEV ;update
- . S DIE="^%ZIS(2,",DR="7///D CLOSE^MAGGTU5 X "_$C(34)_"C IO:"_$C(34,34)_"D"_$C(34,34,34)_" K IO(1,IO)" D ^DIE
- . Q
- ;Set the entry
- S DIC="^%ZIS(2,"
- S X="P-IMAGING",DIC(0)="O" K DD,D0 D FILE^DICN
- S ENTRY=+Y G:'ENTRY ERRDEV
- S DR=".02///0;1///80;2///"_"#"_";4///"_"$C(8)"_";7///D CLOSE^MAGGTU5 X "_$C(34)_"C IO:"_$C(34,34)_"D"_$C(34,34,34)_" K IO(1,IO);3///64"
- S DA=ENTRY,DIE="^%ZIS(2," D ^DIE
- ;.02/SELECTABLE AT SIGNON;1/RIGHT MARGIN;2/FORM FEED;4/BACK SPACE
- ;7/CLOSE EXECUTE*P98 - added X "...";3/PAGE LENGTH
- DEV N A,DA,DD,DO,DIC,DIE,ENTRY,X,Y,MAGOS
- W !,"I will check an 'Imaging Workstation' entry in the Device file."
- S DA=$$FIND1^DIC(3.5,,,"IMAGING WORKSTATION","B")
- I DA D Q ;update
- . S DIE="^%ZIS(1,",DR="19.7///S IO=$P(IO,""."")_$J_"".""_$P(IO,""."",2)" D ^DIE
- . Q
- S DIC="^%ZIS(1,"
- S X="IMAGING WORKSTATION",DIC(0)="O" K DD,D0 D FILE^DICN
- S ENTRY=+Y G:'ENTRY ERRDEV
- I ^%ZOSF("OS")["OpenM" D
- . S MAGOS="OPENM"
- . S DA=ENTRY,DR=".02///"_"BROKER"_";3///"_"P-IMAGING"_";1///"_"WS.DAT"
- . S DR=DR_";4///0;5///0;19///"_"""NWS"""_";2///"_"HFS;19.7///S IO=$P(IO,""."")_$J_"".""_$P(IO,""."",2)"
- . S DIE="^%ZIS(1,"
- I $D(MAGOS) D ^DIE
- ; The following lines describe the field number/name for the DR string.
- ;.02/LOCATION OF TERMINAL;3/SUBTYPE;1/$I;4=ASK DEVICE;5/ASK PARAMETERS
- ;19/OPEN PARAMETERS;2/TYPE
- Q
- ERRDEV ;
- W:$G(DIC)="^%ZIS(2," !,"Could not setup the IMAGING WORKSTATION entry in the Device file."
- W:$G(DIC)="^%ZIS(1," !,"Could not setup the P-IMAGING entry in the Terminal Type file."
- MSG W !,"Please review the Installation Manual to create this entry."
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMAGGDEV 3033 printed Feb 18, 2025@23:28:52 Page 2
- MAGGDEV ;WOIFO/LB,NST - Routine to enter Imaging device entries ; 18 Mar 2013 1:40 PM
- +1 ;;3.0;IMAGING;**98,119**;Mar 19, 2002;Build 4396;Apr 19, 2013
- +2 ;; Per VHA Directive 2004-038, this routine should not be modified.
- +3 ;; +---------------------------------------------------------------+
- +4 ;; | Property of the US Government. |
- +5 ;; | No permission to copy or redistribute this software is given. |
- +6 ;; | Use of unreleased versions of this software requires the user |
- +7 ;; | to execute a written test agreement with the VistA Imaging |
- +8 ;; | Development Office of the Department of Veterans Affairs, |
- +9 ;; | telephone (301) 734-0100. |
- +10 ;; | The Food and Drug Administration classifies this software as |
- +11 ;; | a medical device. As such, it may not be changed in any way. |
- +12 ;; | Modifications to this software may result in an adulterated |
- +13 ;; | medical device under 21CFR820, the use of which is considered |
- +14 ;; | to be a violation of US Federal Statutes. |
- +15 ;; +---------------------------------------------------------------+
- +16 ;;
- +17 QUIT
- EN ;Create/Update an entry in the Device file for an Imaging workstation.
- +1 ;
- TERM NEW A,DA,DD,DO,DIC,DIE,DR,ENTRY,X,Y
- +1 WRITE !,"I will check the 'P-IMAGING' entry in the Terminal Type file."
- +2 SET DA=$$FIND1^DIC(3.2,,,"P-IMAGING","B")
- +3 ;update
- IF DA
- Begin DoDot:1
- +4 SET DIE="^%ZIS(2,"
- SET DR="7///D CLOSE^MAGGTU5 X "_$CHAR(34)_"C IO:"_$CHAR(34,34)_"D"_$CHAR(34,34,34)_" K IO(1,IO)"
- DO ^DIE
- +5 QUIT
- End DoDot:1
- GOTO DEV
- +6 ;Set the entry
- +7 SET DIC="^%ZIS(2,"
- +8 SET X="P-IMAGING"
- SET DIC(0)="O"
- KILL DD,D0
- DO FILE^DICN
- +9 SET ENTRY=+Y
- if 'ENTRY
- GOTO ERRDEV
- +10 SET DR=".02///0;1///80;2///"_"#"_";4///"_"$C(8)"_";7///D CLOSE^MAGGTU5 X "_$CHAR(34)_"C IO:"_$CHAR(34,34)_"D"_$CHAR(34,34,34)_" K IO(1,IO);3///64"
- +11 SET DA=ENTRY
- SET DIE="^%ZIS(2,"
- DO ^DIE
- +12 ;.02/SELECTABLE AT SIGNON;1/RIGHT MARGIN;2/FORM FEED;4/BACK SPACE
- +13 ;7/CLOSE EXECUTE*P98 - added X "...";3/PAGE LENGTH
- DEV NEW A,DA,DD,DO,DIC,DIE,ENTRY,X,Y,MAGOS
- +1 WRITE !,"I will check an 'Imaging Workstation' entry in the Device file."
- +2 SET DA=$$FIND1^DIC(3.5,,,"IMAGING WORKSTATION","B")
- +3 ;update
- IF DA
- Begin DoDot:1
- +4 SET DIE="^%ZIS(1,"
- SET DR="19.7///S IO=$P(IO,""."")_$J_"".""_$P(IO,""."",2)"
- DO ^DIE
- +5 QUIT
- End DoDot:1
- QUIT
- +6 SET DIC="^%ZIS(1,"
- +7 SET X="IMAGING WORKSTATION"
- SET DIC(0)="O"
- KILL DD,D0
- DO FILE^DICN
- +8 SET ENTRY=+Y
- if 'ENTRY
- GOTO ERRDEV
- +9 IF ^%ZOSF("OS")["OpenM"
- Begin DoDot:1
- +10 SET MAGOS="OPENM"
- +11 SET DA=ENTRY
- SET DR=".02///"_"BROKER"_";3///"_"P-IMAGING"_";1///"_"WS.DAT"
- +12 SET DR=DR_";4///0;5///0;19///"_"""NWS"""_";2///"_"HFS;19.7///S IO=$P(IO,""."")_$J_"".""_$P(IO,""."",2)"
- +13 SET DIE="^%ZIS(1,"
- End DoDot:1
- +14 IF $DATA(MAGOS)
- DO ^DIE
- +15 ; The following lines describe the field number/name for the DR string.
- +16 ;.02/LOCATION OF TERMINAL;3/SUBTYPE;1/$I;4=ASK DEVICE;5/ASK PARAMETERS
- +17 ;19/OPEN PARAMETERS;2/TYPE
- +18 QUIT
- ERRDEV ;
- +1 if $GET(DIC)="^%ZIS(2,"
- WRITE !,"Could not setup the IMAGING WORKSTATION entry in the Device file."
- +2 if $GET(DIC)="^%ZIS(1,"
- WRITE !,"Could not setup the P-IMAGING entry in the Terminal Type file."
- MSG WRITE !,"Please review the Installation Manual to create this entry."
- +1 QUIT