LA7DEDT ;DALOI/PWC/RLM-LA7D EDIT FOREIGN COMPUTER INTERFACE FILE ;02/14/2000
;;5.2;AUTOMATED LAB INSTRUMENTS;**53,58**;Sep 27, 1994
; Reference to $$FIND1^DIC supported by IA #2051
; Reference to LIST^DIC supported by IA #2051
; Reference to UPDATE^DIE supported by IA #2053
; Reference to ^DIK supported by IA #10013
; Reference to ^DIR supported by IA #10026
;
; This routine will allow the user to enter a foreign computer
; system name and the supported ward(s) for each name
; (ie. CareVue, Marquette)
;
K ^TMP("DIERR",$J)
K CNT,DA,DEL,DIERR,DIK,DIR,DIROUT,DIRUT,DONE,DTOUT,DUOUT,FROM
K I,IEN,IRESULT,J,LA7D,LA7DERR,LA7DERR1,LA7DIEN,LA7DTMP,LAIEN
K LAIENW,OK,WIEN,WWIEN,X,Y
ADDNEW ;
K DIR
S DIR("A")="Do you wish to Add or Edit a Bedside Monitor"
;S DIR("?")=""
S DIR(0)="S^a:ADD;e:EDIT"
S DIR("B")="E"
D ^DIR Q:X=""!($D(DIRUT))!($D(DIROUT))
G:Y="a" ADD
NAME ; input the name of the bedside monitor interface
D HELPM
K DIR S DIR("A")="Enter BEDSIDE MONITOR INTERFACE NAME"
S DIR("?")="Enter Bedside Monitor Name (ie. CareVue, Marquette)"
S DIR(0)="PO^62.487:LEM"
K DIR("B") S DLAYGO="62.487"
D ^DIR K DLAYGO Q:X=""!($D(DIRUT))!($D(DIROUT))
S IRESULT=$P(Y,"^",2)
S LA7DIEN=$S($D(IEN(1)):IEN(1),1:+Y)
S DONE=0
;
WARD ; input the ward # associated with the bedside monitor interface
;
D HELPW
K DIR S DIR("A")="Enter "_IRESULT_" WARD"
S DIR("?")="Enter wards associated with this bedside monitor"
S DIR(0)="P^44:EMZ"
F J=1:1 D Q:DONE
. K DIR("B")
. D ^DIR I X=""!($D(DIRUT))!($D(DIROUT)) S DONE=1 Q
. S WIEN=+Y
. I WIEN=0!(WIEN="") W " Invalid" Q ; does not exist in file 44
. K LA7DERR
. S WWIEN=$$FIND1^DIC(62.4871,","_LA7DIEN_",","AX",$P(Y,"^",2),,,"LA7DERR")
. ;I $D(LA7DERR) K LA7DERR S WWIEN=$$FIND1^DIC(62.4871,","_LA7DIEN_",","AX",$P(Y,"^",2),,,"LA7DERR")
. ;I $D(LA7DERR) W !,"There is an error with this entry." Q
. I WWIEN'=0 W " already on file" D DELETE Q ; exists in file 62.487
. K LA7D,LA7DERR,LAIENW ; does not exist, add to database
. F CNT=1:1 Q:'$D(^LAB(62.487,LA7DIEN,1,CNT))
. I CNT=LA7DIEN S CNT=CNT+1
. S LA7D(62.487,LA7DIEN_",",.01)=IRESULT
. S LA7D(62.4871,"?+"_CNT_","_LA7DIEN_",",.01)=WIEN
. D UPDATE^DIE("S","LA7D","LAIENW","LA7DERR")
. I $D(LA7DERR) W !,$G(LA7DERR("DIERR",1,"TEXT",1))
EXIT ;
K CNT,DA,DEL,DIERR,DIK,DIR,DIROUT,DIRUT,DONE,DTOUT,DUOUT,FROM
K I,IEN,IRESULT,J,LA7D,LA7DERR,LA7DERR1,LA7DIEN,LA7DTMP,LAIEN
K LAIENW,OK,WIEN,WWIEN,X,Y
K ^TMP("DIERR",$J)
Q
;
HELPW ; A list of available wards will display before the WARD prompt is issued.
;
W !," Current Wards for ",$P(^LAB(62.487,LA7DIEN,0),"^")
K LA7DTMP,LA7DERR1 S FROM=""
D LIST^DIC(62.4871,","_LA7DIEN_",",.01,,,FROM,,,,,"LA7DTMP","LA7DERR1")
F J=1:1 Q:'$D(LA7DTMP("DILIST",1,J)) W !," ",LA7DTMP("DILIST",1,J) I '(J#5) K DIR S DIR(0)="E" D ^DIR Q:'Y
Q
;
HELPM ; A list of available Bedside Monitors will display before the BEDSIDE MONITOR prompt is issued.
;
W !," Current Bedside Monitors"
K LA7DTMP,LA7DERR1 S FROM=""
D LIST^DIC(62.487,,.01,,,FROM,,,,,"LA7DTMP","LA7DERR1")
F J=1:1 Q:'$D(LA7DTMP("DILIST",1,J)) W !," ",LA7DTMP("DILIST",1,J) I '(J#5) K DIR S DIR(0)="E" D ^DIR Q:'Y
Q
;
ADD ;Add an entry to 62.487
D HELPM
K DIR S DIR("A")="Enter the name of the NEW Bedside Monitor"
S DIR(0)="F^3:30"
D ^DIR Q:X=""!($D(DIRUT))!($D(DIROUT))
S Y=$$FIND1^DIC(62.487,,,X,,,"LA7DERRA")
S IRESULT=X
I Y!(Y="") W !,X_" exists, please select a new name."
I Y=0 S DIR("A")=X_" does not exist. Do you wish to add it?" S DIR(0)="Y",DIR("B")="N" D ^DIR G:'Y ADD D
. K LA7D ;does not exist, add to database
. S LA7D(62.487,"?+1,",.01)=IRESULT
. D UPDATE^DIE("ES","LA7D","LAIEN","LA7DERR")
. ;do the FIND1^DIC again since we don't know the IEN
. S Y=$$FIND1^DIC(62.487,,,X)
. S LA7DIEN=LAIEN(1),DONE=0
G WARD Q
DELETE ; delete entry from ^LAB(62.487
;
W !,"Ward already on File, DELETE (Y/N) [N] " R DEL:DTIME
S:DEL="" DEL="N" Q:DEL="N"!(DEL="^")
I DEL'="Y" W $C(7)," Must enter Y or N" G DELETE
K DIK,DA S DA(1)=LA7DIEN,DA=WWIEN
S DIK="^LAB(62.487,"_DA(1)_",1,"
D ^DIK K DIK,DA
Q
ZEOR ;LA7DEDT
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLA7DEDT 4215 printed Dec 13, 2024@01:39:02 Page 2
LA7DEDT ;DALOI/PWC/RLM-LA7D EDIT FOREIGN COMPUTER INTERFACE FILE ;02/14/2000
+1 ;;5.2;AUTOMATED LAB INSTRUMENTS;**53,58**;Sep 27, 1994
+2 ; Reference to $$FIND1^DIC supported by IA #2051
+3 ; Reference to LIST^DIC supported by IA #2051
+4 ; Reference to UPDATE^DIE supported by IA #2053
+5 ; Reference to ^DIK supported by IA #10013
+6 ; Reference to ^DIR supported by IA #10026
+7 ;
+8 ; This routine will allow the user to enter a foreign computer
+9 ; system name and the supported ward(s) for each name
+10 ; (ie. CareVue, Marquette)
+11 ;
+12 KILL ^TMP("DIERR",$JOB)
+13 KILL CNT,DA,DEL,DIERR,DIK,DIR,DIROUT,DIRUT,DONE,DTOUT,DUOUT,FROM
+14 KILL I,IEN,IRESULT,J,LA7D,LA7DERR,LA7DERR1,LA7DIEN,LA7DTMP,LAIEN
+15 KILL LAIENW,OK,WIEN,WWIEN,X,Y
ADDNEW ;
+1 KILL DIR
+2 SET DIR("A")="Do you wish to Add or Edit a Bedside Monitor"
+3 ;S DIR("?")=""
+4 SET DIR(0)="S^a:ADD;e:EDIT"
+5 SET DIR("B")="E"
+6 DO ^DIR
if X=""!($DATA(DIRUT))!($DATA(DIROUT))
QUIT
+7 if Y="a"
GOTO ADD
NAME ; input the name of the bedside monitor interface
+1 DO HELPM
+2 KILL DIR
SET DIR("A")="Enter BEDSIDE MONITOR INTERFACE NAME"
+3 SET DIR("?")="Enter Bedside Monitor Name (ie. CareVue, Marquette)"
+4 SET DIR(0)="PO^62.487:LEM"
+5 KILL DIR("B")
SET DLAYGO="62.487"
+6 DO ^DIR
KILL DLAYGO
if X=""!($DATA(DIRUT))!($DATA(DIROUT))
QUIT
+7 SET IRESULT=$PIECE(Y,"^",2)
+8 SET LA7DIEN=$SELECT($DATA(IEN(1)):IEN(1),1:+Y)
+9 SET DONE=0
+10 ;
WARD ; input the ward # associated with the bedside monitor interface
+1 ;
+2 DO HELPW
+3 KILL DIR
SET DIR("A")="Enter "_IRESULT_" WARD"
+4 SET DIR("?")="Enter wards associated with this bedside monitor"
+5 SET DIR(0)="P^44:EMZ"
+6 FOR J=1:1
Begin DoDot:1
+7 KILL DIR("B")
+8 DO ^DIR
IF X=""!($DATA(DIRUT))!($DATA(DIROUT))
SET DONE=1
QUIT
+9 SET WIEN=+Y
+10 ; does not exist in file 44
IF WIEN=0!(WIEN="")
WRITE " Invalid"
QUIT
+11 KILL LA7DERR
+12 SET WWIEN=$$FIND1^DIC(62.4871,","_LA7DIEN_",","AX",$PIECE(Y,"^",2),,,"LA7DERR")
+13 ;I $D(LA7DERR) K LA7DERR S WWIEN=$$FIND1^DIC(62.4871,","_LA7DIEN_",","AX",$P(Y,"^",2),,,"LA7DERR")
+14 ;I $D(LA7DERR) W !,"There is an error with this entry." Q
+15 ; exists in file 62.487
IF WWIEN'=0
WRITE " already on file"
DO DELETE
QUIT
+16 ; does not exist, add to database
KILL LA7D,LA7DERR,LAIENW
+17 FOR CNT=1:1
if '$DATA(^LAB(62.487,LA7DIEN,1,CNT))
QUIT
+18 IF CNT=LA7DIEN
SET CNT=CNT+1
+19 SET LA7D(62.487,LA7DIEN_",",.01)=IRESULT
+20 SET LA7D(62.4871,"?+"_CNT_","_LA7DIEN_",",.01)=WIEN
+21 DO UPDATE^DIE("S","LA7D","LAIENW","LA7DERR")
+22 IF $DATA(LA7DERR)
WRITE !,$GET(LA7DERR("DIERR",1,"TEXT",1))
End DoDot:1
if DONE
QUIT
EXIT ;
+1 KILL CNT,DA,DEL,DIERR,DIK,DIR,DIROUT,DIRUT,DONE,DTOUT,DUOUT,FROM
+2 KILL I,IEN,IRESULT,J,LA7D,LA7DERR,LA7DERR1,LA7DIEN,LA7DTMP,LAIEN
+3 KILL LAIENW,OK,WIEN,WWIEN,X,Y
+4 KILL ^TMP("DIERR",$JOB)
+5 QUIT
+6 ;
HELPW ; A list of available wards will display before the WARD prompt is issued.
+1 ;
+2 WRITE !," Current Wards for ",$PIECE(^LAB(62.487,LA7DIEN,0),"^")
+3 KILL LA7DTMP,LA7DERR1
SET FROM=""
+4 DO LIST^DIC(62.4871,","_LA7DIEN_",",.01,,,FROM,,,,,"LA7DTMP","LA7DERR1")
+5 FOR J=1:1
if '$DATA(LA7DTMP("DILIST",1,J))
QUIT
WRITE !," ",LA7DTMP("DILIST",1,J)
IF '(J#5)
KILL DIR
SET DIR(0)="E"
DO ^DIR
if 'Y
QUIT
+6 QUIT
+7 ;
HELPM ; A list of available Bedside Monitors will display before the BEDSIDE MONITOR prompt is issued.
+1 ;
+2 WRITE !," Current Bedside Monitors"
+3 KILL LA7DTMP,LA7DERR1
SET FROM=""
+4 DO LIST^DIC(62.487,,.01,,,FROM,,,,,"LA7DTMP","LA7DERR1")
+5 FOR J=1:1
if '$DATA(LA7DTMP("DILIST",1,J))
QUIT
WRITE !," ",LA7DTMP("DILIST",1,J)
IF '(J#5)
KILL DIR
SET DIR(0)="E"
DO ^DIR
if 'Y
QUIT
+6 QUIT
+7 ;
ADD ;Add an entry to 62.487
+1 DO HELPM
+2 KILL DIR
SET DIR("A")="Enter the name of the NEW Bedside Monitor"
+3 SET DIR(0)="F^3:30"
+4 DO ^DIR
if X=""!($DATA(DIRUT))!($DATA(DIROUT))
QUIT
+5 SET Y=$$FIND1^DIC(62.487,,,X,,,"LA7DERRA")
+6 SET IRESULT=X
+7 IF Y!(Y="")
WRITE !,X_" exists, please select a new name."
+8 IF Y=0
SET DIR("A")=X_" does not exist. Do you wish to add it?"
SET DIR(0)="Y"
SET DIR("B")="N"
DO ^DIR
if 'Y
GOTO ADD
Begin DoDot:1
+9 ;does not exist, add to database
KILL LA7D
+10 SET LA7D(62.487,"?+1,",.01)=IRESULT
+11 DO UPDATE^DIE("ES","LA7D","LAIEN","LA7DERR")
+12 ;do the FIND1^DIC again since we don't know the IEN
+13 SET Y=$$FIND1^DIC(62.487,,,X)
+14 SET LA7DIEN=LAIEN(1)
SET DONE=0
End DoDot:1
+15 GOTO WARD
QUIT
DELETE ; delete entry from ^LAB(62.487
+1 ;
+2 WRITE !,"Ward already on File, DELETE (Y/N) [N] "
READ DEL:DTIME
+3 if DEL=""
SET DEL="N"
if DEL="N"!(DEL="^")
QUIT
+4 IF DEL'="Y"
WRITE $CHAR(7)," Must enter Y or N"
GOTO DELETE
+5 KILL DIK,DA
SET DA(1)=LA7DIEN
SET DA=WWIEN
+6 SET DIK="^LAB(62.487,"_DA(1)_",1,"
+7 DO ^DIK
KILL DIK,DA
+8 QUIT
ZEOR ;LA7DEDT
