ASUCOPSP ; IHS/ITSC/LMH -CLOSEOUT PRINTER SPOOLING ;
;;4.2T2;Supply Accounting Mgmt. System;;JUN 30, 2000
PRTSPLI ;EP ; print invoice to spool
I $P($G(^ASUSITE(1,0)),U,7)'["HFS" W !,"Invoice reports not being spooled to UNIX - this option not useable" Q ;DFM P1 8/28/98
S ASUU("PDST")=$P($G(^ASUSITE(1,3)),U,7),ASUU("LST")="I"
S ASUU("FILE")=$G(ASUU("FILE"))
I $G(ASUK("DT","DA")) D
.S DIR(0)="Y",DIR("A")="Do you want today's report" D ^DIR
.I 'Y D ASKDATE^ASUUDATE
E D
.D ASKDATE^ASUUDATE
I '$D(ASUK("DT","DA")) W !,"Report date not selected" Q
I ASUU("FILE")']"" S ASUU("FILE")="ASU"_ASUK("DT","MO")_ASUK("DT","DA")_".I"_$S($G(ASUL(2,"STA","CD")):ASUL(2,"STA","CD"),1:"RP")
G PRNTIT
PRTSPLS ;EP ; print standard to spool
I $P($G(^ASUSITE(1,0)),U,6)'["HFS" W !,"Standard reports not being spooled to UNIX - this option not useable" Q
S ASUU("PDST")=$P($G(^ASUSITE(1,3)),U,6),ASUU("LST")="S"
S ASUU("FILE")=$G(ASUU("FILE"))
I $G(ASUK("DT","DA")) D
.S DIR(0)="Y",DIR("A")="Do you want today's report" D ^DIR
.I 'Y D ASKDATE^ASUUDATE
E D
.D ASKDATE^ASUUDATE
I '$D(ASUK("DT","DA")) W !,"Report date not selected" Q
I ASUU("FILE")']"" S ASUU("FILE")="ASU"_ASUK("DT","MO")_ASUK("DT","DA")_".S"_$S($G(ASUL(2,"STA","CD")):ASUL(2,"STA","CD"),1:"RP")
PRNTIT ;
S ASUU("HOSTCMD")="lp"_$S($G(ASUU("PDST"))]"":" -d"_ASUU("PDST"),1:"")_" /usr/spool/uucppublic/"_ASUU("FILE") K ASUU("FILE")
W !,"Requesting report file be printed:"
HOSTCMD ;
U IO(0)
I ^%ZOSF("OS")'["MSM-UNIX" W !,"This option only available with MSM mumps running under UNIX" G KILL
W !,"Unix response to request is: ",!
S X=$$TERMINAL^%HOSTCMD(ASUU("HOSTCMD")) ;SAC exception granted 1/30/97
D PAZ^ASUURHDR
KILL ;
K ASUU,X,Y
Q
GDIR ;EP ;Get archive directory DFM P1 8/28/98
S ASUP("INV","DIR")=$P($P($G(^ASUSITE(1,0)),U,7),":",4) ;DFM P1 8/28/98
S ASUP("STD","DIR")=$P($P($G(^ASUSITE(1,0)),U,6),":",4) ;DFM P1 8/28/98
S XBDIR=$S(ASUP("STD","DIR")]"":ASUP("STD","DIR"),ASUP("INV","DIR")]"":ASUP("INV","DIR"),1:"") ;DFM P1 8/28/98
I XBDIR="" D ;WAR 7/27/99
.W !,"No reports archived to disk"
.D PAZ^ASUURHDR
Q ;DFM P1 8/28/98
BZLIST ;EP ; list archive files
D GDIR Q:XBDIR']"" S ASUU("HOSTCMD")="l -l "_XBDIR_"ASU*" D HOSTCMD ;DFM P1 8/28/98
Q
GFILE ;EP ;Get file to browse ;COMPLETE SUB ROUTINE DFM P1 8/28/98
S XBFIL="ASU" S DIR("A")="Select report type",DIR(0)="SOB^S:Standard;I:Invoice;M:Monthly",DIR("B")="S" D ^DIR S:$G(X)]"" XBFIL=XBFIL_X_"R"_$G(ASUL(2,"STA","CD"))
S DIR("A")="Enter date of report",DIR(0)="DO",DIR("B")=$G(ASUK("DT","FM")) D ^DIR S:Y XBFIL=XBFIL_"."_$E(Y,4,7)
Q
BROWSE ;EP ; brouse listings
D GDIR Q:XBDIR']"" D GFILE Q:XBFIL']"" ;DFM P1 8/28/98
D FILE^XBLM(XBDIR,XBFIL)
Q
ASUCOPSP ; IHS/ITSC/LMH -CLOSEOUT PRINTER SPOOLING ;
+1 ;;4.2T2;Supply Accounting Mgmt. System;;JUN 30, 2000
PRTSPLI ;EP ; print invoice to spool
+1 ;DFM P1 8/28/98
IF $PIECE($GET(^ASUSITE(1,0)),U,7)'["HFS"
WRITE !,"Invoice reports not being spooled to UNIX - this option not useable"
QUIT
+2 SET ASUU("PDST")=$PIECE($GET(^ASUSITE(1,3)),U,7)
SET ASUU("LST")="I"
+3 SET ASUU("FILE")=$GET(ASUU("FILE"))
+4 IF $GET(ASUK("DT","DA"))
Begin DoDot:1
+5 SET DIR(0)="Y"
SET DIR("A")="Do you want today's report"
DO ^DIR
+6 IF 'Y
DO ASKDATE^ASUUDATE
End DoDot:1
+7 IF '$TEST
Begin DoDot:1
+8 DO ASKDATE^ASUUDATE
End DoDot:1
+9 IF '$DATA(ASUK("DT","DA"))
WRITE !,"Report date not selected"
QUIT
+10 IF ASUU("FILE")']""
SET ASUU("FILE")="ASU"_ASUK("DT","MO")_ASUK("DT","DA")_".I"_$SELECT($GET(ASUL(2,"STA","CD")):ASUL(2,"STA","CD"),1:"RP")
+11 GOTO PRNTIT
PRTSPLS ;EP ; print standard to spool
+1 IF $PIECE($GET(^ASUSITE(1,0)),U,6)'["HFS"
WRITE !,"Standard reports not being spooled to UNIX - this option not useable"
QUIT
+2 SET ASUU("PDST")=$PIECE($GET(^ASUSITE(1,3)),U,6)
SET ASUU("LST")="S"
+3 SET ASUU("FILE")=$GET(ASUU("FILE"))
+4 IF $GET(ASUK("DT","DA"))
Begin DoDot:1
+5 SET DIR(0)="Y"
SET DIR("A")="Do you want today's report"
DO ^DIR
+6 IF 'Y
DO ASKDATE^ASUUDATE
End DoDot:1
+7 IF '$TEST
Begin DoDot:1
+8 DO ASKDATE^ASUUDATE
End DoDot:1
+9 IF '$DATA(ASUK("DT","DA"))
WRITE !,"Report date not selected"
QUIT
+10 IF ASUU("FILE")']""
SET ASUU("FILE")="ASU"_ASUK("DT","MO")_ASUK("DT","DA")_".S"_$SELECT($GET(ASUL(2,"STA","CD")):ASUL(2,"STA","CD"),1:"RP")
PRNTIT ;
+1 SET ASUU("HOSTCMD")="lp"_$SELECT($GET(ASUU("PDST"))]"":" -d"_ASUU("PDST"),1:"")_" /usr/spool/uucppublic/"_ASUU("FILE")
KILL ASUU("FILE")
+2 WRITE !,"Requesting report file be printed:"
HOSTCMD ;
+1 USE IO(0)
+2 IF ^%ZOSF("OS")'["MSM-UNIX"
WRITE !,"This option only available with MSM mumps running under UNIX"
GOTO KILL
+3 WRITE !,"Unix response to request is: ",!
+4 ;SAC exception granted 1/30/97
SET X=$$TERMINAL^%HOSTCMD(ASUU("HOSTCMD"))
+5 DO PAZ^ASUURHDR
KILL ;
+1 KILL ASUU,X,Y
+2 QUIT
GDIR ;EP ;Get archive directory DFM P1 8/28/98
+1 ;DFM P1 8/28/98
SET ASUP("INV","DIR")=$PIECE($PIECE($GET(^ASUSITE(1,0)),U,7),":",4)
+2 ;DFM P1 8/28/98
SET ASUP("STD","DIR")=$PIECE($PIECE($GET(^ASUSITE(1,0)),U,6),":",4)
+3 ;DFM P1 8/28/98
SET XBDIR=$SELECT(ASUP("STD","DIR")]"":ASUP("STD","DIR"),ASUP("INV","DIR")]"":ASUP("INV","DIR"),1:"")
+4 ;WAR 7/27/99
IF XBDIR=""
Begin DoDot:1
+5 WRITE !,"No reports archived to disk"
+6 DO PAZ^ASUURHDR
End DoDot:1
+7 ;DFM P1 8/28/98
QUIT
BZLIST ;EP ; list archive files
+1 ;DFM P1 8/28/98
DO GDIR
IF XBDIR']""
QUIT
SET ASUU("HOSTCMD")="l -l "_XBDIR_"ASU*"
DO HOSTCMD
+2 QUIT
GFILE ;EP ;Get file to browse ;COMPLETE SUB ROUTINE DFM P1 8/28/98
+1 SET XBFIL="ASU"
SET DIR("A")="Select report type"
SET DIR(0)="SOB^S:Standard;I:Invoice;M:Monthly"
SET DIR("B")="S"
DO ^DIR
IF $GET(X)]""
SET XBFIL=XBFIL_X_"R"_$GET(ASUL(2,"STA","CD"))
+2 SET DIR("A")="Enter date of report"
SET DIR(0)="DO"
SET DIR("B")=$GET(ASUK("DT","FM"))
DO ^DIR
IF Y
SET XBFIL=XBFIL_"."_$EXTRACT(Y,4,7)
+3 QUIT
BROWSE ;EP ; brouse listings
+1 ;DFM P1 8/28/98
DO GDIR
IF XBDIR']""
QUIT
DO GFILE
IF XBFIL']""
QUIT
+2 DO FILE^XBLM(XBDIR,XBFIL)
+3 QUIT
