source: WorldVistAEHR/trunk/r/CLINICAL_REMINDERS-PXRM/PXRMHOST.m@ 1800

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

initial load of WorldVistAEHR

File size: 994 bytes
RevLine 
[613]1PXRMHOST ; SLC/PKR - Host file routines. ;07/20/2000
2 ;;2.0;CLINICAL REMINDERS;;Feb 04, 2005
3 ;
4 ;=======================================================================
5MKWSDEV ;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 ;
Note: See TracBrowser for help on using the repository browser.