- BARDYSV2 ; IHS/SD/MAS,TPF - OMB - DAYS TO COLLECTION REPORT FOR SQL ; 02/09/2009
- ;;1.8;IHS ACCOUNTS RECEIVABLE;**12,13**;JULY 2,2009
- ;
- ;
- ; IHS/SD/TMM 07/02/09
- ; Routine ^BARDYSV2 created as a continuation of ^BARDYSVZ due to
- ; large routine size for SAC checker.
- ;
- Q
- ;
- SENDFILE(XBGL,XBFN) ; EP - CREATE FLAT FILE FOR UFMS USING XBGSAVE
- S:$G(XBFN)="" XBFN="OMB.TST"
- S:$G(XBGL)="" XBGL="BAROMB(" ;TEMP FILE KILLED AFTER FTP SEND. CAN'T USE ^XTMP($J
- 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 OMB F" ; ZISH SEND PARAMETERS entry
- I $D(ZTQUEUED) S XBS1="BAR OMB B"
- S XBQ="N"
- S XBUF=$P($G(^BAR(90052.06,DUZ(2),DUZ(2),16)),U) ;A/R SITE PARAMETER FILE, OMB DIRECTORY
- I XBUF="" D Q
- .W !!,"Before OMB 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 OMB DIRECTORY using the 'SPE Site Parameter Edit' option"
- .D ASKFORRT^BARUFUT
- S XBFLG=0
- ;
- ;S XBS1="" ;IF SET TO "" IT WON'T FTP ACROSS
- ;
- I XBUF="" D Q
- . S XBFLG=-1
- . S XBFLG(1)="Missing OMB REPORT storage directory. Please check A/R OMB Parameters"
- I IO=IO(0) W !!
- ;
- D ^XBGSAVE
- Q
- ;
- WRITE ;TEMP WRITE WHILE TESTING
- N BARVLOC,BARVDA,BARBIL,VISITREC,BILLREC,TRANDT,TRANREC
- S BARVLOC=0
- F S BARVLOC=$O(^BAROMB($J,BARVLOC)) Q:'BARVLOC D
- .S BARVDA=0
- .F S BARVDA=$O(^BAROMB($J,BARVLOC,BARVDA)) Q:'BARVDA D
- ..S VISITREC=^BAROMB($J,BARVLOC,BARVDA,"A VISITREC")
- ..;W !,BARVLOC,U,BARVDA,U,"A",U,VISITREC
- ..W !,BARVLOC,U,BARVDA,U,VISITREC
- ..S BARBIL=0
- ..F S BARBIL=$O(^BAROMB($J,BARVLOC,BARVDA,"BILLREC",BARBIL)) Q:BARBIL="" D
- ...S BILLREC=^BAROMB($J,BARVLOC,BARVDA,"BILLREC",BARBIL)
- ...;W !,BARVLOC,U,BARVDA,U,"B",U,BILLREC
- ...W !,BARVLOC,U,BARVDA,U,BILLREC
- ...S TRANDT=0
- ...F S BARBIL=$O(^BAROMB($J,BARVLOC,BARVDA,"TRANS REC",TRANDT)) Q:TRANDT="" D
- ....S TRANREC=^BAROMB($J,BARVLOC,BARVDA,"TRANS REC",TRANDT)
- ....W !,BARVLOC,U,BARVDA,U,TRANREC
- Q
- BARDYSV2 ; IHS/SD/MAS,TPF - OMB - DAYS TO COLLECTION REPORT FOR SQL ; 02/09/2009
- +1 ;;1.8;IHS ACCOUNTS RECEIVABLE;**12,13**;JULY 2,2009
- +2 ;
- +3 ;
- +4 ; IHS/SD/TMM 07/02/09
- +5 ; Routine ^BARDYSV2 created as a continuation of ^BARDYSVZ due to
- +6 ; large routine size for SAC checker.
- +7 ;
- +8 QUIT
- +9 ;
- SENDFILE(XBGL,XBFN) ; EP - CREATE FLAT FILE FOR UFMS USING XBGSAVE
- +1 IF $GET(XBFN)=""
- SET XBFN="OMB.TST"
- +2 ;TEMP FILE KILLED AFTER FTP SEND. CAN'T USE ^XTMP($J
- IF $GET(XBGL)=""
- SET XBGL="BAROMB("
- +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 OMB F"
- +10 IF $DATA(ZTQUEUED)
- SET XBS1="BAR OMB B"
- +11 SET XBQ="N"
- +12 ;A/R SITE PARAMETER FILE, OMB DIRECTORY
- SET XBUF=$PIECE($GET(^BAR(90052.06,DUZ(2),DUZ(2),16)),U)
- +13 IF XBUF=""
- Begin DoDot:1
- +14 WRITE !!,"Before OMB 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 OMB DIRECTORY using the 'SPE Site Parameter Edit' option"
- +17 DO ASKFORRT^BARUFUT
- End DoDot:1
- QUIT
- +18 SET XBFLG=0
- +19 ;
- +20 ;S XBS1="" ;IF SET TO "" IT WON'T FTP ACROSS
- +21 ;
- +22 IF XBUF=""
- Begin DoDot:1
- +23 SET XBFLG=-1
- +24 SET XBFLG(1)="Missing OMB REPORT storage directory. Please check A/R OMB Parameters"
- End DoDot:1
- QUIT
- +25 IF IO=IO(0)
- WRITE !!
- +26 ;
- +27 DO ^XBGSAVE
- +28 QUIT
- +29 ;
- WRITE ;TEMP WRITE WHILE TESTING
- +1 NEW BARVLOC,BARVDA,BARBIL,VISITREC,BILLREC,TRANDT,TRANREC
- +2 SET BARVLOC=0
- +3 FOR
- SET BARVLOC=$ORDER(^BAROMB($JOB,BARVLOC))
- IF 'BARVLOC
- QUIT
- Begin DoDot:1
- +4 SET BARVDA=0
- +5 FOR
- SET BARVDA=$ORDER(^BAROMB($JOB,BARVLOC,BARVDA))
- IF 'BARVDA
- QUIT
- Begin DoDot:2
- +6 SET VISITREC=^BAROMB($JOB,BARVLOC,BARVDA,"A VISITREC")
- +7 ;W !,BARVLOC,U,BARVDA,U,"A",U,VISITREC
- +8 WRITE !,BARVLOC,U,BARVDA,U,VISITREC
- +9 SET BARBIL=0
- +10 FOR
- SET BARBIL=$ORDER(^BAROMB($JOB,BARVLOC,BARVDA,"BILLREC",BARBIL))
- IF BARBIL=""
- QUIT
- Begin DoDot:3
- +11 SET BILLREC=^BAROMB($JOB,BARVLOC,BARVDA,"BILLREC",BARBIL)
- +12 ;W !,BARVLOC,U,BARVDA,U,"B",U,BILLREC
- +13 WRITE !,BARVLOC,U,BARVDA,U,BILLREC
- +14 SET TRANDT=0
- +15 FOR
- SET BARBIL=$ORDER(^BAROMB($JOB,BARVLOC,BARVDA,"TRANS REC",TRANDT))
- IF TRANDT=""
- QUIT
- Begin DoDot:4
- +16 SET TRANREC=^BAROMB($JOB,BARVLOC,BARVDA,"TRANS REC",TRANDT)
- +17 WRITE !,BARVLOC,U,BARVDA,U,TRANREC
- End DoDot:4
- End DoDot:3
- End DoDot:2
- End DoDot:1
- +18 QUIT
