CIMSNCIL ;CMI/TUCSON/LAB - LOAD NCI STUDY PATIENTS [ 06/12/98 2:39 PM ]
;;1.0;NCI STUDY EXTRACT 1.0;;MAY 14, 1998
;
;
;
START ;start processing
I '$G(DUZ) W !,"Log into Kernel first" Q
W:$D(IOF) @IOF
W !!,"This option should be used to upload patient chart numbers into the","NCI STUDY FILE. You will be asked to enter the directory path and the ",!,"file name from which to upload the chart numbers.",!
W !!,"When entering the directory path, enter a full path name with the ending '/'",!,"for example, /usr/spool/uucppublic/ or /usr/mumps/. When entering the ",!,"filename enter the extension as well, for example, NCIDATA.TXTT.",!!
S CIMSQUIT=0 D FILE
I $G(CIMSQUIT) W !!,"Bye. File not accessed.",! D XIT Q
S CIMSCNT=0,CIMSLOAD=0
S CIMSR=0 F S CIMSR=$O(^TMP("CIMSNCIL",$J,CIMSR)) Q:CIMSR'=+CIMSR S CIMSX=^TMP("CIMSNCIL",$J,CIMSR,0) D LOAD
W !!,"All Done."
W !,"Read ",CIMSCNT," records. Loaded ",CIMSLOAD," patients.",!
D XIT
Q
XIT ;
K AUPNLK
K ^TMP("CIMSNCIL",$J)
D EN^XBVK("CIMS")
D ^XBFMK
Q
LOAD ;
S AUPNLK("ALL")="",AUPNLK("INAC")=""
Q:CIMSX=""
S CIMSCNT=CIMSCNT+1 ;total number of records read
S CIMSFACN=$E(CIMSX,1,6),CIMSHRN=$E(CIMSX,7,12),CIMSHRN=+CIMSHRN
S CIMSFAC=$O(^AUTTLOC("C",CIMSFACN,0))
S CIMSNCI=$E(CIMSX,13,19)
S X=$E(CIMSX,20,25),X=$E(X,3,4)_"/"_$E(X,5,6)_"/"_$E(X,1,2) K %DT S %DT="P" D ^%DT S CIMSDX=Y
S CIMSPAT="" D GETPAT ;find patient with available data
Q:'CIMSPAT
;add to file
I $D(^CIMSCPAT(CIMSPAT)) W !!,"already have that patient "_CIMSPAT_" HRN: "_CIMSHRN H 2 Q
K DIC,DLAYGO,DA,DD,D0,DO S X="`"_CIMSPAT,DIC(0)="L",DIC="^CIMSCPAT(",DLAYGO=19259.02,DIC("DR")=".02///^S X=DT;.03///"_CIMSNCI_";.04///"_$$FMTE^XLFDT(CIMSDX) K DD,DO,D0 D ^DIC K DIC,DLAYGO,DA,DD,D0
I Y=-1 W !,"Error adding patient ",CIMSHRN," to file." H 2 Q
S CIMSLOAD=CIMSLOAD+1
Q
GETPAT ;
S X=0 F S X=$O(^AUPNPAT("D",CIMSHRN,X)) Q:X'=+X I $D(^AUPNPAT("D",CIMSHRN,X,CIMSFAC)) S CIMSPAT=X
I 'CIMSPAT W !,"Couldn't find patient with chart number ",CIMSHRN," at facility ",CIMSFACN H 2
Q
FILE ;upload global
DIR ;
S CIMSDIR=""
S DIR(0)="F^3:30",DIR("A")="Enter directory path (i.e. /usr/spool/uucppublic/)" K DA D ^DIR K DIR
I $D(DIRUT) W !!,"Directory not entered!! Bye." S CIMSQUIT=1 Q
S CIMSDIR=Y
S CIMSFILE=""
S DIR(0)="F^2:30",DIR("A")="Enter filename w /ext (i.e. NCIDATA.TXT)" K DA D ^DIR K DIR
G:$D(DIRUT) DIR
S CIMSFILE=Y
W !,"Directory=",CIMSDIR," ","File=",CIMSFILE," reading file into ^TMP...",!
READF ;read file
NEW Y,X,I,CIMSC
S CIMSC=1
S Y=$$OPEN^%ZISH(CIMSDIR,CIMSFILE,"R")
I Y W !,*7,"CANNOT OPEN (OR ACCESS) FILE '",CIMSDIR,CIMSFILE,"'." S CIMSQUIT=1 Q
KILL ^TMP("CIMSNCIL",$J)
F I=1:1 U IO R X:DTIME S X=$$STRIP(X) S ^TMP("CIMSNCIL",$J,CIMSC,0)=X,CIMSC=CIMSC+1 Q:$$STATUS^%ZISH=-1
D ^%ZISC
W !!,"All done reading file",!
Q
STRIP(Z) ;REMOVE CONTROL CHARACTERS
NEW I
F I=1:1:$L(Z) I (32>$A($E(Z,I))) S Z=$E(Z,1,I-1)_" "_$E(Z,I+1,999)
Q Z
DELETE ;EP - delete all entries in study file
W !!,"I am about to delete all entries in the NCI Cancer Study Patient file!!",$C(7),$C(7),!!
S DIR(0)="Y",DIR("A")="Are you sure you want to continue",DIR("B")="N" KILL DA D ^DIR KILL DIR
I $D(DIRUT) Q
I 'Y Q
W !!,"Deleting entries..."
S CIMSX=0 F S CIMSX=$O(^CIMSCPAT(CIMSX)) Q:CIMSX'=+CIMSX S DA=CIMSX,DIK="^CIMSCPAT(" D ^DIK W "."
W !,"All Done",!
K CIMSX
S DIR(0)="E",DIR("A")="Press return" K DA D ^DIR K DIR,DA
Q
;
;
CIMSNCIL ;CMI/TUCSON/LAB - LOAD NCI STUDY PATIENTS [ 06/12/98 2:39 PM ]
+1 ;;1.0;NCI STUDY EXTRACT 1.0;;MAY 14, 1998
+2 ;
+3 ;
+4 ;
START ;start processing
+1 IF '$GET(DUZ)
WRITE !,"Log into Kernel first"
QUIT
+2 IF $DATA(IOF)
WRITE @IOF
+3 WRITE !!,"This option should be used to upload patient chart numbers into the","NCI STUDY FILE. You will be asked to enter the directory path and the ",!,"file name from which to upload the chart numbers.",!
+4 WRITE !!,"When entering the directory path, enter a full path name with the ending '/'",!,"for example, /usr/spool/uucppublic/ or /usr/mumps/. When entering the ",!,"filename enter the extension as well, for example, NCIDATA.TXTT.",!!
+5 SET CIMSQUIT=0
DO FILE
+6 IF $GET(CIMSQUIT)
WRITE !!,"Bye. File not accessed.",!
DO XIT
QUIT
+7 SET CIMSCNT=0
SET CIMSLOAD=0
+8 SET CIMSR=0
FOR
SET CIMSR=$ORDER(^TMP("CIMSNCIL",$JOB,CIMSR))
IF CIMSR'=+CIMSR
QUIT
SET CIMSX=^TMP("CIMSNCIL",$JOB,CIMSR,0)
DO LOAD
+9 WRITE !!,"All Done."
+10 WRITE !,"Read ",CIMSCNT," records. Loaded ",CIMSLOAD," patients.",!
+11 DO XIT
+12 QUIT
XIT ;
+1 KILL AUPNLK
+2 KILL ^TMP("CIMSNCIL",$JOB)
+3 DO EN^XBVK("CIMS")
+4 DO ^XBFMK
+5 QUIT
LOAD ;
+1 SET AUPNLK("ALL")=""
SET AUPNLK("INAC")=""
+2 IF CIMSX=""
QUIT
+3 ;total number of records read
SET CIMSCNT=CIMSCNT+1
+4 SET CIMSFACN=$EXTRACT(CIMSX,1,6)
SET CIMSHRN=$EXTRACT(CIMSX,7,12)
SET CIMSHRN=+CIMSHRN
+5 SET CIMSFAC=$ORDER(^AUTTLOC("C",CIMSFACN,0))
+6 SET CIMSNCI=$EXTRACT(CIMSX,13,19)
+7 SET X=$EXTRACT(CIMSX,20,25)
SET X=$EXTRACT(X,3,4)_"/"_$EXTRACT(X,5,6)_"/"_$EXTRACT(X,1,2)
KILL %DT
SET %DT="P"
DO ^%DT
SET CIMSDX=Y
+8 ;find patient with available data
SET CIMSPAT=""
DO GETPAT
+9 IF 'CIMSPAT
QUIT
+10 ;add to file
+11 IF $DATA(^CIMSCPAT(CIMSPAT))
WRITE !!,"already have that patient "_CIMSPAT_" HRN: "_CIMSHRN
HANG 2
QUIT
+12 KILL DIC,DLAYGO,DA,DD,D0,DO
SET X="`"_CIMSPAT
SET DIC(0)="L"
SET DIC="^CIMSCPAT("
SET DLAYGO=19259.02
SET DIC("DR")=".02///^S X=DT;.03///"_CIMSNCI_";.04///"_$$FMTE^XLFDT(CIMSDX)
KILL DD,DO,D0
DO ^DIC
KILL DIC,DLAYGO,DA,DD,D0
+13 IF Y=-1
WRITE !,"Error adding patient ",CIMSHRN," to file."
HANG 2
QUIT
+14 SET CIMSLOAD=CIMSLOAD+1
+15 QUIT
GETPAT ;
+1 SET X=0
FOR
SET X=$ORDER(^AUPNPAT("D",CIMSHRN,X))
IF X'=+X
QUIT
IF $DATA(^AUPNPAT("D",CIMSHRN,X,CIMSFAC))
SET CIMSPAT=X
+2 IF 'CIMSPAT
WRITE !,"Couldn't find patient with chart number ",CIMSHRN," at facility ",CIMSFACN
HANG 2
+3 QUIT
FILE ;upload global
DIR ;
+1 SET CIMSDIR=""
+2 SET DIR(0)="F^3:30"
SET DIR("A")="Enter directory path (i.e. /usr/spool/uucppublic/)"
KILL DA
DO ^DIR
KILL DIR
+3 IF $DATA(DIRUT)
WRITE !!,"Directory not entered!! Bye."
SET CIMSQUIT=1
QUIT
+4 SET CIMSDIR=Y
+5 SET CIMSFILE=""
+6 SET DIR(0)="F^2:30"
SET DIR("A")="Enter filename w /ext (i.e. NCIDATA.TXT)"
KILL DA
DO ^DIR
KILL DIR
+7 IF $DATA(DIRUT)
GOTO DIR
+8 SET CIMSFILE=Y
+9 WRITE !,"Directory=",CIMSDIR," ","File=",CIMSFILE," reading file into ^TMP...",!
READF ;read file
+1 NEW Y,X,I,CIMSC
+2 SET CIMSC=1
+3 SET Y=$$OPEN^%ZISH(CIMSDIR,CIMSFILE,"R")
+4 IF Y
WRITE !,*7,"CANNOT OPEN (OR ACCESS) FILE '",CIMSDIR,CIMSFILE,"'."
SET CIMSQUIT=1
QUIT
+5 KILL ^TMP("CIMSNCIL",$JOB)
+6 FOR I=1:1
USE IO
READ X:DTIME
SET X=$$STRIP(X)
SET ^TMP("CIMSNCIL",$JOB,CIMSC,0)=X
SET CIMSC=CIMSC+1
IF $$STATUS^%ZISH=-1
QUIT
+7 DO ^%ZISC
+8 WRITE !!,"All done reading file",!
+9 QUIT
STRIP(Z) ;REMOVE CONTROL CHARACTERS
+1 NEW I
+2 FOR I=1:1:$LENGTH(Z)
IF (32>$ASCII($EXTRACT(Z,I)))
SET Z=$EXTRACT(Z,1,I-1)_" "_$EXTRACT(Z,I+1,999)
+3 QUIT Z
DELETE ;EP - delete all entries in study file
+1 WRITE !!,"I am about to delete all entries in the NCI Cancer Study Patient file!!",$CHAR(7),$CHAR(7),!!
+2 SET DIR(0)="Y"
SET DIR("A")="Are you sure you want to continue"
SET DIR("B")="N"
KILL DA
DO ^DIR
KILL DIR
+3 IF $DATA(DIRUT)
QUIT
+4 IF 'Y
QUIT
+5 WRITE !!,"Deleting entries..."
+6 SET CIMSX=0
FOR
SET CIMSX=$ORDER(^CIMSCPAT(CIMSX))
IF CIMSX'=+CIMSX
QUIT
SET DA=CIMSX
SET DIK="^CIMSCPAT("
DO ^DIK
WRITE "."
+7 WRITE !,"All Done",!
+8 KILL CIMSX
+9 SET DIR(0)="E"
SET DIR("A")="Press return"
KILL DA
DO ^DIR
KILL DIR,DA
+10 QUIT
+11 ;
+12 ;
