| 1 | PXRMHOST ; SLC/PKR - Host file routines. ;07/20/2000
|
|---|
| 2 | ;;2.0;CLINICAL REMINDERS;;Feb 04, 2005
|
|---|
| 3 | ;
|
|---|
| 4 | ;=======================================================================
|
|---|
| 5 | MKWSDEV ;Make the PXRM WORKSTATION device.
|
|---|
| 6 | N FDA,FDAIEN,MSG
|
|---|
| 7 | ;Make sure that the device does not get created more than once.
|
|---|
| 8 | I +$$FIND1^DIC(3.5,"","MX","PXRM WORKSTATION")>0 Q
|
|---|
| 9 | S FDA(3.5,"+1,",.01)="PXRM WORKSTATION" ;NAME
|
|---|
| 10 | S FDA(3.5,"+1,",.02)="PXRM Workstation HFS Device" ;LOCATION OF TERMINAL
|
|---|
| 11 | S FDA(3.5,"+1,",1)="PXRMWSD.DAT" ;$I
|
|---|
| 12 | S FDA(3.5,"+1,",1.95)=0 ;SIGN-ON/SYSTEM DEVICE
|
|---|
| 13 | S FDA(3.5,"+1,",2)="HFS" ;TYPE
|
|---|
| 14 | S FDA(3.5,"+1,",3)=$$FIND1^DIC(3.2,"","MX","P-OTHER") ;SUBTYPE
|
|---|
| 15 | S FDA(3.5,"+1,",4)=0 ;ASK DEVICE
|
|---|
| 16 | S FDA(3.5,"+1,",5)=0 ;ASK PARAMETERS
|
|---|
| 17 | S FDA(3.5,"+1,",5.1)=0 ;ASK HOST FILE
|
|---|
| 18 | S FDA(3.5,"+1,",5.2)=0 ;ASK HFS I/O OPERATION
|
|---|
| 19 | D UPDATE^DIE("","FDA","FDAIEN","MSG")
|
|---|
| 20 | I $D(MSG) D
|
|---|
| 21 | . W !,"PXRM Workstation device creation failed, UPDATE^DIE returned the following error message:"
|
|---|
| 22 | . D AWRITE^PXRMUTIL("MSG")
|
|---|
| 23 | Q
|
|---|
| 24 | ;
|
|---|
