- LABCX7E ; IHS/DIR/FJE - ; [ 05/30/2003 4:00 PM ]
- ;;5.2;LA;**1016**;MAY 27, 2003
- DOC ;Displays the error list for the CX7.
- INIT S A="",CT=0 F I=1:1 S A=$O(^LAZ("ZZZ",A)) Q:A="" S CT=CT+1
- I CT=0 W !!,"There are NO entries in the CX7 error list." G EXIT
- I CT=1 W !!,"There is 1 entry in the CX7 error list." D ONE S ID=A D DELETE G EXIT
- W !!,"There are ",CT," entries in the CX7 error list."
- R !!,"Do you want a list? Y// ",ANS:DTIME G:'$T EXIT W !
- I ANS["N"!(ANS["n") D LOOKUP G EXIT
- LIST ;List all entries of ^LAZ("ZZZ")
- S LC=0 K IOP D ^%ZIS Q:POP U IO I IO'=IO(0) W @IOF S Y=DT X ^DD("DD") W !!,?23,"CX7 ERROR LIST, PRINTED: ",Y,!!
- A S A=$O(^LAZ("ZZZ",A)) I A="" D ^%ZISC G LOOKUP
- I IO=IO(0) S LC=LC+1 I LC>21 S LC=0 R !!,"Press any key to continue",*AN
- W !,?4,A," ... ",^LAZ("ZZZ",A)
- G A
- LOOKUP ;Look up one particular Sample Id
- R !!,"Enter the 11 digit Sample Id: ",ID:DTIME I '$T!(ID="") G EXIT
- ;I ID["?" W !,"Enter Sample ID (eg. CHM04230162) or LOOP or ALL",! G INIT
- I ID["?" W !,"Enter Sample ID (eg. CX704230162) or LOOP or ALL",! G INIT ;IHS/ANMC/CLS 07/12/96
- I ID="LOOP" S A="" F I=1:1 S A=$O(^LAZ("ZZZ",A)) G:A=""!(ANS="^") INIT W !!,A," will be deleted" S ID=A D KILL
- I ID="ALL" W !!,"All entries in the Error List will be deleted.",!,"Are you sure? N//" R ANS:DTIME G:'$T EXIT I ANS["y"!(ANS["Y") K ^LAZ("ZZZ") W !,"All entries in Error List have been deleted!" G EXIT
- I $L(ID)<11 S ID=$E(ID_" ",1,11)
- I '$D(^LAZ("ZZZ",ID)) W !,?14,ID," is NOT in the error list." G LOOKUP
- D DELETE G LOOKUP
- DELETE ;Allow the user to delete the ^LAZ("ZZZ",ID) entry
- W !,?4,ID," ... ",^LAZ("ZZZ",ID)
- R !,?14,"Do you want to delete this entry? N// ",ANS:DTIME Q:'$T
- I ANS["Y"!(ANS["y") D KILL Q
- E W " NO CHANGE."
- Q
- KILL ;Kills ^LAZ("ZZZ",ID)
- W *7,!,?14,"ARE YOU SURE? N// " R ANS:DTIME Q:'$T
- I ANS["Y"!(ANS["y") K ^LAZ("ZZZ",ID) W " ",ID," HAS BEEN DELETED!!!"
- E W " NO CHANGE."
- Q
- ONE ;automatically list the 1 entry
- S A=$O(^LAZ("ZZZ",A)) ; W !!,?14,A," ... ",^LAZ("ZZZ",A)
- Q
- EXIT K A,AN,ANS,CT,I,ID,LC,Y Q ;Kills variables and final exit point.
- LABCX7E ; IHS/DIR/FJE - ; [ 05/30/2003 4:00 PM ]
- +1 ;;5.2;LA;**1016**;MAY 27, 2003
- DOC ;Displays the error list for the CX7.
- INIT SET A=""
- SET CT=0
- FOR I=1:1
- SET A=$ORDER(^LAZ("ZZZ",A))
- IF A=""
- QUIT
- SET CT=CT+1
- +1 IF CT=0
- WRITE !!,"There are NO entries in the CX7 error list."
- GOTO EXIT
- +2 IF CT=1
- WRITE !!,"There is 1 entry in the CX7 error list."
- DO ONE
- SET ID=A
- DO DELETE
- GOTO EXIT
- +3 WRITE !!,"There are ",CT," entries in the CX7 error list."
- +4 READ !!,"Do you want a list? Y// ",ANS:DTIME
- IF '$TEST
- GOTO EXIT
- WRITE !
- +5 IF ANS["N"!(ANS["n")
- DO LOOKUP
- GOTO EXIT
- LIST ;List all entries of ^LAZ("ZZZ")
- +1 SET LC=0
- KILL IOP
- DO ^%ZIS
- IF POP
- QUIT
- USE IO
- IF IO'=IO(0)
- WRITE @IOF
- SET Y=DT
- XECUTE ^DD("DD")
- WRITE !!,?23,"CX7 ERROR LIST, PRINTED: ",Y,!!
- A SET A=$ORDER(^LAZ("ZZZ",A))
- IF A=""
- DO ^%ZISC
- GOTO LOOKUP
- +1 IF IO=IO(0)
- SET LC=LC+1
- IF LC>21
- SET LC=0
- READ !!,"Press any key to continue",*AN
- +2 WRITE !,?4,A," ... ",^LAZ("ZZZ",A)
- +3 GOTO A
- LOOKUP ;Look up one particular Sample Id
- +1 READ !!,"Enter the 11 digit Sample Id: ",ID:DTIME
- IF '$TEST!(ID="")
- GOTO EXIT
- +2 ;I ID["?" W !,"Enter Sample ID (eg. CHM04230162) or LOOP or ALL",! G INIT
- +3 ;IHS/ANMC/CLS 07/12/96
- IF ID["?"
- WRITE !,"Enter Sample ID (eg. CX704230162) or LOOP or ALL",!
- GOTO INIT
- +4 IF ID="LOOP"
- SET A=""
- FOR I=1:1
- SET A=$ORDER(^LAZ("ZZZ",A))
- IF A=""!(ANS="^")
- GOTO INIT
- WRITE !!,A," will be deleted"
- SET ID=A
- DO KILL
- +5 IF ID="ALL"
- WRITE !!,"All entries in the Error List will be deleted.",!,"Are you sure? N//"
- READ ANS:DTIME
- IF '$TEST
- GOTO EXIT
- IF ANS["y"!(ANS["Y")
- KILL ^LAZ("ZZZ")
- WRITE !,"All entries in Error List have been deleted!"
- GOTO EXIT
- +6 IF $LENGTH(ID)<11
- SET ID=$EXTRACT(ID_" ",1,11)
- +7 IF '$DATA(^LAZ("ZZZ",ID))
- WRITE !,?14,ID," is NOT in the error list."
- GOTO LOOKUP
- +8 DO DELETE
- GOTO LOOKUP
- DELETE ;Allow the user to delete the ^LAZ("ZZZ",ID) entry
- +1 WRITE !,?4,ID," ... ",^LAZ("ZZZ",ID)
- +2 READ !,?14,"Do you want to delete this entry? N// ",ANS:DTIME
- IF '$TEST
- QUIT
- +3 IF ANS["Y"!(ANS["y")
- DO KILL
- QUIT
- +4 IF '$TEST
- WRITE " NO CHANGE."
- +5 QUIT
- KILL ;Kills ^LAZ("ZZZ",ID)
- +1 WRITE *7,!,?14,"ARE YOU SURE? N// "
- READ ANS:DTIME
- IF '$TEST
- QUIT
- +2 IF ANS["Y"!(ANS["y")
- KILL ^LAZ("ZZZ",ID)
- WRITE " ",ID," HAS BEEN DELETED!!!"
- +3 IF '$TEST
- WRITE " NO CHANGE."
- +4 QUIT
- ONE ;automatically list the 1 entry
- +1 ; W !!,?14,A," ... ",^LAZ("ZZZ",A)
- SET A=$ORDER(^LAZ("ZZZ",A))
- +2 QUIT
- EXIT ;Kills variables and final exit point.
- KILL A,AN,ANS,CT,I,ID,LC,Y
- QUIT
