PXRMHOST ; SLC/PKR - Host file routines. ;07/20/2000
;;2.0;CLINICAL REMINDERS;;Feb 04, 2005
;
;=======================================================================
MKWSDEV ;Make the PXRM WORKSTATION device.
N FDA,FDAIEN,MSG
;Make sure that the device does not get created more than once.
I +$$FIND1^DIC(3.5,"","MX","PXRM WORKSTATION")>0 Q
S FDA(3.5,"+1,",.01)="PXRM WORKSTATION" ;NAME
S FDA(3.5,"+1,",.02)="PXRM Workstation HFS Device" ;LOCATION OF TERMINAL
S FDA(3.5,"+1,",1)="PXRMWSD.DAT" ;$I
S FDA(3.5,"+1,",1.95)=0 ;SIGN-ON/SYSTEM DEVICE
S FDA(3.5,"+1,",2)="HFS" ;TYPE
S FDA(3.5,"+1,",3)=$$FIND1^DIC(3.2,"","MX","P-OTHER") ;SUBTYPE
S FDA(3.5,"+1,",4)=0 ;ASK DEVICE
S FDA(3.5,"+1,",5)=0 ;ASK PARAMETERS
S FDA(3.5,"+1,",5.1)=0 ;ASK HOST FILE
S FDA(3.5,"+1,",5.2)=0 ;ASK HFS I/O OPERATION
D UPDATE^DIE("","FDA","FDAIEN","MSG")
I $D(MSG) D
. W !,"PXRM Workstation device creation failed, UPDATE^DIE returned the following error message:"
. D AWRITE^PXRMUTIL("MSG")
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPXRMHOST 1018 printed Dec 13, 2024@01:46:04 Page 2
PXRMHOST ; SLC/PKR - Host file routines. ;07/20/2000
+1 ;;2.0;CLINICAL REMINDERS;;Feb 04, 2005
+2 ;
+3 ;=======================================================================
MKWSDEV ;Make the PXRM WORKSTATION device.
+1 NEW FDA,FDAIEN,MSG
+2 ;Make sure that the device does not get created more than once.
+3 IF +$$FIND1^DIC(3.5,"","MX","PXRM WORKSTATION")>0
QUIT
+4 ;NAME
SET FDA(3.5,"+1,",.01)="PXRM WORKSTATION"
+5 ;LOCATION OF TERMINAL
SET FDA(3.5,"+1,",.02)="PXRM Workstation HFS Device"
+6 ;$I
SET FDA(3.5,"+1,",1)="PXRMWSD.DAT"
+7 ;SIGN-ON/SYSTEM DEVICE
SET FDA(3.5,"+1,",1.95)=0
+8 ;TYPE
SET FDA(3.5,"+1,",2)="HFS"
+9 ;SUBTYPE
SET FDA(3.5,"+1,",3)=$$FIND1^DIC(3.2,"","MX","P-OTHER")
+10 ;ASK DEVICE
SET FDA(3.5,"+1,",4)=0
+11 ;ASK PARAMETERS
SET FDA(3.5,"+1,",5)=0
+12 ;ASK HOST FILE
SET FDA(3.5,"+1,",5.1)=0
+13 ;ASK HFS I/O OPERATION
SET FDA(3.5,"+1,",5.2)=0
+14 DO UPDATE^DIE("","FDA","FDAIEN","MSG")
+15 IF $DATA(MSG)
Begin DoDot:1
+16 WRITE !,"PXRM Workstation device creation failed, UPDATE^DIE returned the following error message:"
+17 DO AWRITE^PXRMUTIL("MSG")
End DoDot:1
+18 QUIT
+19 ;
