BARUFUT2.m

BARUFUT2 ; IHS/SD/TPF - UTILITIES FOR UFMS ;

 ;;1.8;IHS ACCOUNTS RECEIVABLE;**3**;OCT 26, 2005

 Q

 ;

SENDFILE(XBGL,XBFN) ; EP - CREATE FLAT FILE FOR UFMS USING XBGSAVE

 S:$G(XBFN)="" XBFN="UFMS.TST"

 S:$G(XBGL)="" XBGL="BARUFEX("

 S XBQSHO=""

 S XBF=$J                       ; Beginning 1st level numeric subscript

 S XBE=$J                       ; Ending 1st level numeric subscript

 S XBFLT=1                      ; indicates flat file

 S XBMED="F"                    ; Flag indicates file as media

 S XBCON=1                      ; Q if non-cononic

 S XBS1="BAR UFMS F"             ; ZISH SEND PARAMETERS entry

 I $D(ZTQUEUED) S XBS1="BAR UFMS B"

 S XBQ="N"

 S XBUF=$P($G(^BAR(90052.06,DUZ(2),DUZ(2),15)),U)  ;A/R SITE PARAMETER FILE, UFMS DIRECTORY

 I XBUF="" D  Q

 .W !!,"Before UFMS files can be created a non-public directory must be created"

 .W !,"on the Host File System. This directory must be entered in to A/R Site Parameter"

 .W !,"field UFMS DIRECTORY using the 'SPE    Site Parameter Edit' option"

 .D ASKFORRT^BARUFUT

 S XBFLG=0

 ;

 ;S XBS1=""  ;SO IT WON'T FTP ACROSS

 ;

 I XBUF="" D  Q

 . S XBFLG=-1

 . S XBFLG(1)="Missing UFMS storage directory. Please check A/R UFMS Parameters"

 I IO=IO(0) W !!

 ;

 I $$GET1^DIQ(90052.06,DUZ(2)_",",1502,"I") D  Q

 .W !!,"CREATING/SENDING UFMS FILES HAS BEEN TURNED OFF FOR THIS SITE"

 .D ASKFORRT^BARUFUT

 D ^XBGSAVE

 Q

BARUFUT2  ; IHS/SD/TPF - UTILITIES FOR UFMS ;

 +1       ;;1.8;IHS ACCOUNTS RECEIVABLE;**3**;OCT 26, 2005

 +2        QUIT 

 +3       ;

SENDFILE(XBGL,XBFN) ; EP - CREATE FLAT FILE FOR UFMS USING XBGSAVE

 +1        IF $GET(XBFN)=""

               SET XBFN="UFMS.TST"

 +2        IF $GET(XBGL)=""

               SET XBGL="BARUFEX("

 +3        SET XBQSHO=""

 +4       ; Beginning 1st level numeric subscript

           SET XBF=$JOB

 +5       ; Ending 1st level numeric subscript

           SET XBE=$JOB

 +6       ; indicates flat file

           SET XBFLT=1

 +7       ; Flag indicates file as media

           SET XBMED="F"

 +8       ; Q if non-cononic

           SET XBCON=1

 +9       ; ZISH SEND PARAMETERS entry

           SET XBS1="BAR UFMS F"

 +10       IF $DATA(ZTQUEUED)

               SET XBS1="BAR UFMS B"

 +11       SET XBQ="N"

 +12      ;A/R SITE PARAMETER FILE, UFMS DIRECTORY

           SET XBUF=$PIECE($GET(^BAR(90052.06,DUZ(2),DUZ(2),15)),U)

 +13       IF XBUF=""

               Begin DoDot:1

 +14               WRITE !!,"Before UFMS files can be created a non-public directory must be created"

 +15               WRITE !,"on the Host File System. This directory must be entered in to A/R Site Parameter"

 +16               WRITE !,"field UFMS DIRECTORY using the 'SPE    Site Parameter Edit' option"

 +17               DO ASKFORRT^BARUFUT

               End DoDot:1

               QUIT 

 +18       SET XBFLG=0

 +19      ;

 +20      ;S XBS1=""  ;SO IT WON'T FTP ACROSS

 +21      ;

 +22       IF XBUF=""

               Begin DoDot:1

 +23               SET XBFLG=-1

 +24               SET XBFLG(1)="Missing UFMS storage directory. Please check A/R UFMS Parameters"

               End DoDot:1

               QUIT 

 +25       IF IO=IO(0)

               WRITE !!

 +26      ;

 +27       IF $$GET1^DIQ(90052.06,DUZ(2)_",",1502,"I")

               Begin DoDot:1

 +28               WRITE !!,"CREATING/SENDING UFMS FILES HAS BEEN TURNED OFF FOR THIS SITE"

 +29               DO ASKFORRT^BARUFUT

               End DoDot:1

               QUIT 

 +30       DO ^XBGSAVE

 +31       QUIT