ACDPIMP.m

ACDPIMP ;IHS/ADC/EDE/KML - UNIX or DOS IMPORT 10:08; 

 ;;4.1;CHEMICAL DEPENDENCY MIS;;MAY 11, 1998

 ;;

 ;***************************************************************

 ;Read files to reconstruct the ^ACDPTMP global onto

 ;the area/hq machines.

 ;This global hold/transmits cdmis program data from the file

 ;^ACDQAN

 ;*************************************************************

EN ;EP

 ;//[ACD SUPER8]

 ;

 ;Check for black box

 I '$L($T(OPEN^%ZISH)) W !,"But you need to first install patch 25 of Kernel 7" Q

 ;

DIR ;Ask user for directory

 S DIR("B")=$S($P($G(^AUTTSITE(1,0)),U,21)=1:"/usr/spool/uucppublic",1:"C:\EXPORT")

 S DIR(0)="F^1:100",DIR("A")="Directory to import from "

 W !

 D ^DIR K DIR

 I $D(DIRUT) D K Q

 S ACDIR=X

 ;

 ;

 ;Stop user if facility

 I $E(ACD6DIG)'=9,$E(ACD6DIG,3,4)'="00" W !!,*7,*7,"Facilities have no need to import data." D K Q

 ;

 ;Check for unfinished import

 I $D(^ACDP1TMP) W !!,*7,*7,"But an incomplete import exists due to a corrupt location table.",!,"I will try again to complete the import..." D EN^ACDPIMP1,K Q

 ;

 ;Initialize ^ACDPTMP to reconstruct on area/hq machine

 I $D(^ACDPTMP) W !!,*7,*7,"It appears an import is presently running." D K Q

 K ^ACDPTMP ;       kill of scratch global  SAC EXEMPTION (2.3.2.3 KILL of unsubscripted globals is prohibited)

 ;

 W @IOF

 W !!,"It is advisable to capture the upcomming terminal screens to a printer.",!,"Please open a log file or turn on 'PRINT SCREEN'."

 F  W !!,"Ok to Continue: " S %=2 D YN^DICN W:%=0 "  Answer Yes or No" G:%'=1&(%'=0) K Q:%=1

 ;

F ;File import from

 ;Gather all files into a list for display/selection

 K ACDF

 S Y=$$LIST^%ZISH(ACDIR,"ACDP*",.ACDF) D ERROR^ACDWUTL

 I '$O(ACDF(0)) W !!,*7,*7,"No CDMIS import files found in ",ACDIR

 I  W !,"Job terminated....." D K Q

 ;

 ;

 ;Display files available for the user to import

 S ACDN=0 F I=0:0 S I=$O(ACDF(I)) Q:'I  S ACDN=ACDN+1 W !,I," ",ACDF(I)

 S DIR(0)="L^1:"_ACDN,DIR("A")="Select the FILE to IMPORT"

 W !

 D ^DIR

 I $D(DIRUT) D K Q

 S ACDLIST=Y

 ;

 ;Process imported files one at a time

 S ACDIFC=0

 F ACDI=1:1 K ACDOWN S ACDFNA=$P(ACDLIST,",",ACDI) Q:ACDFNA=""  S ACDFNA=ACDF(ACDFNA) D L1

 I 'ACDIFC W !!,"No data for update",! Q

 W !!!!,"Now updating CDMIS files with imported data....." D EN^ACDPIMP1

 W !!!!?20,"Finished........."

 D K Q

 ;

 ;

L1 ;Open file to read from

 S Y=$$OPEN^%ZISH(ACDIR,ACDFNA,"R") I Y W !,"Error code: ",Y," detected." D K Q

 ;

IN ;Read in from the imported file to build ^ACDPTMP

 U IO(0) W !!!,"Now importing data from file: ",ACDFNA

 F I=1:1:4 U IO R ACDHEAD(I):DTIME

 I $P(ACDHEAD(4),U,20)'="IMPORT FILE" U IO(0) W !,"Not an Import file...I will skip it" D ^%ZISC Q

 U IO(0) W !,"FACILITY: ",ACDHEAD(2)

 S ACDNODE=ACDHEAD(2)_","_$P(ACDHEAD(4),U)_","_$P(ACDHEAD(4),U,2)

 S ACDIFC=ACDIFC+1

 F  U IO R ACD(1):DTIME,ACD(2):DTIME Q:ACD(1)="**"  D

 .S @ACD(1)=ACD(2)

 .U IO(0) W "."

 .Q

PASS ;Skip when user tries to import their own extract

 ;Skip when data to import is a duplicate

 D ^%ZISC

 W !,"Deleting ",ACDFNA," from your system now..."

 S Y=$$DEL^%ZISH(ACDIR,ACDFNA) D ERROR^ACDWUTL

 I $D(ACDOWN) U IO(0) W !,"No Updating has occurred for this file."

 ;

XMD ;Audit trail

 D EN^ACDPXMD(ACDFNA,.ACDHEAD)

 Q

 ;

K ;kill variables

 K ACDIFC

 K ACD,ACDF,ACDIOP,DIR,XMY,ACDLINE,ACDBWP,ACDCS,ACDDA,ACDDUZ,ACDFNA,ACDHEAD,ACDI,ACDIIF,ACDLIST,ACDN,ACDPG,ACDRNG,ACDRUG,ACDTDC,ACDUSER,ACDV,ACDNODE

 K ACDA,%X,%Y,ACDIR,DIK,DIC,ACDMSG,XMZ,XMDUZ

ACDPIMP   ;IHS/ADC/EDE/KML - UNIX or DOS IMPORT 10:08; 

 +1       ;;4.1;CHEMICAL DEPENDENCY MIS;;MAY 11, 1998

 +2       ;;

 +3       ;***************************************************************

 +4       ;Read files to reconstruct the ^ACDPTMP global onto

 +5       ;the area/hq machines.

 +6       ;This global hold/transmits cdmis program data from the file

 +7       ;^ACDQAN

 +8       ;*************************************************************

EN        ;EP

 +1       ;//[ACD SUPER8]

 +2       ;

 +3       ;Check for black box

 +4        IF '$LENGTH($TEXT(OPEN^%ZISH))

               WRITE !,"But you need to first install patch 25 of Kernel 7"

               QUIT 

 +5       ;

DIR       ;Ask user for directory

 +1        SET DIR("B")=$SELECT($PIECE($GET(^AUTTSITE(1,0)),U,21)=1:"/usr/spool/uucppublic",1:"C:\EXPORT")

 +2        SET DIR(0)="F^1:100"

           SET DIR("A")="Directory to import from "

 +3        WRITE !

 +4        DO ^DIR

           KILL DIR

 +5        IF $DATA(DIRUT)

               DO K

               QUIT 

 +6        SET ACDIR=X

 +7       ;

 +8       ;

 +9       ;Stop user if facility

 +10       IF $EXTRACT(ACD6DIG)'=9

               IF $EXTRACT(ACD6DIG,3,4)'="00"

                   WRITE !!,*7,*7,"Facilities have no need to import data."

                   DO K

                   QUIT 

 +11      ;

 +12      ;Check for unfinished import

 +13       IF $DATA(^ACDP1TMP)

               WRITE !!,*7,*7,"But an incomplete import exists due to a corrupt location table.",!,"I will try again to complete the import..."

               DO EN^ACDPIMP1

               DO K

               QUIT 

 +14      ;

 +15      ;Initialize ^ACDPTMP to reconstruct on area/hq machine

 +16       IF $DATA(^ACDPTMP)

               WRITE !!,*7,*7,"It appears an import is presently running."

               DO K

               QUIT 

 +17      ;       kill of scratch global  SAC EXEMPTION (2.3.2.3 KILL of unsubscripted globals is prohibited)

           KILL ^ACDPTMP

 +18      ;

 +19       WRITE @IOF

 +20       WRITE !!,"It is advisable to capture the upcomming terminal screens to a printer.",!,"Please open a log file or turn on 'PRINT SCREEN'."

 +21       FOR 

               WRITE !!,"Ok to Continue: "

               SET %=2

               DO YN^DICN

               IF %=0

                   WRITE "  Answer Yes or No"

               IF %'=1&(%'=0)

                   GOTO K

               IF %=1

                   QUIT 

 +22      ;

F         ;File import from

 +1       ;Gather all files into a list for display/selection

 +2        KILL ACDF

 +3        SET Y=$$LIST^%ZISH(ACDIR,"ACDP*",.ACDF)

           DO ERROR^ACDWUTL

 +4        IF '$ORDER(ACDF(0))

               WRITE !!,*7,*7,"No CDMIS import files found in ",ACDIR

 +5       IF $TEST

               WRITE !,"Job terminated....."

               DO K

               QUIT 

 +6       ;

 +7       ;

 +8       ;Display files available for the user to import

 +9        SET ACDN=0

           FOR I=0:0

               SET I=$ORDER(ACDF(I))

               IF 'I

                   QUIT 

               SET ACDN=ACDN+1

               WRITE !,I," ",ACDF(I)

 +10       SET DIR(0)="L^1:"_ACDN

           SET DIR("A")="Select the FILE to IMPORT"

 +11       WRITE !

 +12       DO ^DIR

 +13       IF $DATA(DIRUT)

               DO K

               QUIT 

 +14       SET ACDLIST=Y

 +15      ;

 +16      ;Process imported files one at a time

 +17       SET ACDIFC=0

 +18       FOR ACDI=1:1

               KILL ACDOWN

               SET ACDFNA=$PIECE(ACDLIST,",",ACDI)

               IF ACDFNA=""

                   QUIT 

               SET ACDFNA=ACDF(ACDFNA)

               DO L1

 +19       IF 'ACDIFC

               WRITE !!,"No data for update",!

               QUIT 

 +20       WRITE !!!!,"Now updating CDMIS files with imported data....."

           DO EN^ACDPIMP1

 +21       WRITE !!!!?20,"Finished........."

 +22       DO K

           QUIT 

 +23      ;

 +24      ;

L1        ;Open file to read from

 +1        SET Y=$$OPEN^%ZISH(ACDIR,ACDFNA,"R")

           IF Y

               WRITE !,"Error code: ",Y," detected."

               DO K

               QUIT 

 +2       ;

IN        ;Read in from the imported file to build ^ACDPTMP

 +1        USE IO(0)

           WRITE !!!,"Now importing data from file: ",ACDFNA

 +2        FOR I=1:1:4

               USE IO

               READ ACDHEAD(I):DTIME

 +3        IF $PIECE(ACDHEAD(4),U,20)'="IMPORT FILE"

               USE IO(0)

               WRITE !,"Not an Import file...I will skip it"

               DO ^%ZISC

               QUIT 

 +4        USE IO(0)

           WRITE !,"FACILITY: ",ACDHEAD(2)

 +5        SET ACDNODE=ACDHEAD(2)_","_$PIECE(ACDHEAD(4),U)_","_$PIECE(ACDHEAD(4),U,2)

 +6        SET ACDIFC=ACDIFC+1

 +7        FOR 

               USE IO

               READ ACD(1):DTIME,ACD(2):DTIME

               IF ACD(1)="**"

                   QUIT 

               Begin DoDot:1

 +8                SET @ACD(1)=ACD(2)

 +9                USE IO(0)

                   WRITE "."

 +10               QUIT 

               End DoDot:1

PASS      ;Skip when user tries to import their own extract

 +1       ;Skip when data to import is a duplicate

 +2        DO ^%ZISC

 +3        WRITE !,"Deleting ",ACDFNA," from your system now..."

 +4        SET Y=$$DEL^%ZISH(ACDIR,ACDFNA)

           DO ERROR^ACDWUTL

 +5        IF $DATA(ACDOWN)

               USE IO(0)

               WRITE !,"No Updating has occurred for this file."

 +6       ;

XMD       ;Audit trail

 +1        DO EN^ACDPXMD(ACDFNA,.ACDHEAD)

 +2        QUIT 

 +3       ;

K         ;kill variables

 +1        KILL ACDIFC

 +2        KILL ACD,ACDF,ACDIOP,DIR,XMY,ACDLINE,ACDBWP,ACDCS,ACDDA,ACDDUZ,ACDFNA,ACDHEAD,ACDI,ACDIIF,ACDLIST,ACDN,ACDPG,ACDRNG,ACDRUG,ACDTDC,ACDUSER,ACDV,ACDNODE

 +3        KILL ACDA,%X,%Y,ACDIR,DIK,DIC,ACDMSG,XMZ,XMDUZ