Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ASUCOSTS

ASUCOSTS.m

Go to the documentation of this file. 
  1. ASUCOSTS ; IHS/ITSC/LMH -CLOSEOUT STATUS FUNCTIONS ;  [ 07/26/2000  9:00 AM ]
  1.  ;;4.2T2;Supply Accounting Mgmt. System;;JUN 30, 2000
  1.  ;This routine provides entry points to store and print information
  1.  ;concerning the status of an closeout.
  1.  ;IHS/ITSC/MRS - Added lines 2 & 3 to HELP text so HELP+value will be correct 7/26/2000
  1.  D:$G(IOF)']"" HOME^%ZIS,^XBKVAR W @IOF,?25,"R U N   S T A T U S   R E P O R T I N G",!!
  1.  D EN2 W @IOF Q
  1. EN2 ;EP ;
  1.  I $G(ASUP("CKP"))']"" D
  1.  .D SETCTRL
  1.  E  D
  1.  .S ASUP("LSTY")=$G(ASUP("TYP"))
  1.  S ASUP("LSTN")=$S(ASUP("LSTY")=1:"monthly closeout",ASUP("LSTY")=2:"yearly closeout",1:"daily closeout")
  1.  W !!,"The status of the last closeout which was a '",ASUP("LSTN"),"' was : "
  1.  I ASUP("CKP")=0,ASUP("CKY")=0 D  G PAUSE
  1.  .W !!?5,"Successfully completed."
  1.  E  D
  1.  .W !!?5,$P($T(HELP+ASUP("CKP")),";",4) ; update status switch in ^AUSITE
  1.  .S ASUP=$P($T(HELP+ASUP("CKP")),";",5)
  1.  .I ASUP']"" W $P($T(HELP),";",4) Q
  1.  .I $G(ASUP(ASUP))']"" W $P($T(HELP),";",4) Q
  1.  .I ASUP="CKM" D
  1.  ..W !?5,"Processing ended as "
  1.  ..S X=""""_$P($T(CKM+ASUP("CKM")+1),";",4)
  1.  ..I ASUP(ASUP)<9 D
  1.  ...S X=X_""","" was processing."""
  1.  ..E  D
  1.  ...S X=X_""","" was printing."""
  1.  .I ASUP="CKY" D
  1.  ..W !?5,"Processing ended as "
  1.  ..S X=""""_$P($T(CKM+ASUP("CKY")+1),";",4)_""","" being cleared."""
  1.  .I ASUP="CKX" D
  1.  ..W !?5,"Processing ended as Report "
  1.  ..S X=""""_$P($T(CKM+ASUP("CKX")+1),";",4)_""","" was sorting."""
  1.  .I ASUP="CKI" D
  1.  ..W !?5,"Processing ended as Report "
  1.  ..S X=""""_$P($T(CKM+ASUP("CKI")+1),";",4)_""","" was printing."""
  1.  .I ASUP="CKS" D
  1.  ..I ASUP("CKS")=2!(ASUP("CKS")=3)!(ASUP("CKS")=17) D
  1.  ...W !?5,"Processing ended as "
  1.  ...S X=""""_$P($T(CKM+ASUP("CKS")+1),";",4)_""","" was processing"""
  1.  ..E  D
  1.  ...W !?5,"Processing ended as Report "
  1.  ...S X=""""_$P($T(CKM+ASUP("CKS")+1),";",4)_""","" was printing."""
  1.  .S X="W "_X X X
  1.  D RPTS
  1.  W !!,"If the problem causing processing to end has been addressed,"
  1.  W !,"the UPDATE RESTART option will start at that point and continue."
  1. PAUSE ;
  1.  W !! N DIR S DIR(0)="E" D ^DIR Q
  1. RPTS ;
  1.  W !
  1.  I ASUP("IVR")="Y" D
  1.  . W !?5,"Invoice Reports Printed"
  1.  E  D
  1.  . W !?5,"Invoice Reports Did NOT Print"
  1.  I ASUP("STR")="Y" D
  1.  . W !?5,"Standard Reports Printed"
  1.  E  D
  1.  . W !?5,"Standard Reports Did NOT Print"
  1.  Q
  1. HELP ;;0;but NO FURTHUR HELP IS AVAILABLE.
  1.  ;;1;Yearly Update was processing.;CKY
  1.  ;;2;Report files cleared
  1.  ;;3;Beginning balances obtained
  1.  ;;4;Monthly Report Extracts were being created.;CKM
  1.  ;;5;Report Extracts were being Sorted.;CKX
  1.  ;;6;Invoices were printing.;CKI
  1.  ;;7;Standard Reports were printing.;
  1.  ;;8;Monthly Closeout was processing.;
  1.  ;;9;Yearly Closeout was processing.;
  1.  ;;10;Transacton count report was processing.;
  1.  ;;11;Standard Monthly Reports were printing.;CKM
  1.  ;;12;Standard Quarterly Reports were printing.;CKM
  1.  ;;13;Standard Daily Reports were printing.;CKS
  1. CKY ;;
  1.  ;;1;Year to Date Issue data file was
  1.  ;;2;Issue Book Master file was
  1.  ;;3;Transaction History files were
  1.  ;;4;Year to Date Counts in Report one were
  1. CKM ;;
  1.  ;;1;Extract for Data Center Processing
  1.  ;;2;Extracting for Report 10V
  1.  ;;3;Extracting for Report 12
  1.  ;;4;Extracting for Report 13
  1.  ;;5;Extracting for Report 15
  1.  ;;6;Extracting for Report 16
  1.  ;;7;Extracting for Report 17
  1.  ;;8;Extracting for Report 23
  1.  ;;9;Extracting for Report 24
  1.  ;;10;Extracting for Report 74
  1.  ;;11;Extracting for Report 77
  1.  ;;12;Extracting for Report 78
  1.  ;;13;Extracting for Report 79
  1.  ;;14;Station Master PAMIQ and RPQ recalculating
  1.  ;;15;Clear/Update YTD ISSUE DATA fields
  1.  ;;16;Clear/Update ISSUE BOOK fields
  1.  ;;17;Report 10V
  1.  ;;18;Report 12
  1.  ;;19;Report 13
  1.  ;;20;Report 15
  1.  ;;21;Report 16
  1.  ;;22;Report 17
  1.  ;;23;Report 23
  1.  ;;24;Report 24
  1.  ;;25;Report 74
  1.  ;;26;Report 75
  1.  ;;27;Report 77
  1.  ;;28;Report 78
  1.  ;;29;Report 79
  1.  ;;30;Report 83
  1.  ;;31;Report 25
  1.  ;;32;Report 49
  1.  ;;33;Report 81
  1.  ;;34;Report 82
  1. CKX ;;
  1.  ;;1;01
  1.  ;;2;03
  1.  ;;3;04
  1.  ;;4;05
  1.  ;;5;06
  1.  ;;6;07
  1.  ;;7;7A
  1.  ;;8;08
  1.  ;;9;09
  1.  ;;10;10A
  1.  ;;11;10
  1.  ;;12;11
  1.  ;;13;13
  1.  ;;14;70
  1.  ;;15;71
  1.  ;;16;72
  1.  ;;17;73
  1.  ;;18;74
  1.  ;;19;76
  1.  ;;20;79
  1.  ;;21;83
  1. CKI ;;
  1.  ;;1;70
  1.  ;;2;71
  1.  ;;3;72
  1. CKS ;;
  1.  ;;1;1
  1.  ;;2;as Monthly Closeout was processing.
  1.  ;;3;as Yearly Closeout was processing.
  1.  ;;4;3
  1.  ;;5;4
  1.  ;;6;5
  1.  ;;7;6
  1.  ;;8;7
  1.  ;;9;7A
  1.  ;;10;8
  1.  ;;11;9
  1.  ;;12;10A
  1.  ;;13;10
  1.  ;;14;11
  1.  ;;15;13
  1.  ;;16;73
  1.  ;;17;as Monthly Reports were printing.
  1. SETCTRL ;EP ;
  1.  S ASUP("HLT")=+$G(ASUP("HLT"))
  1.  F ASUP("LOOP")="7;MOE","8;MOW","9;MOL" D
  1.  .S ASUP($P(ASUP("LOOP"),";",2))=$P(^ASUSITE(1,2),U,$P(ASUP("LOOP"),";"))
  1.  F ASUP("LOOP")="2;LSTY","6;STD","7;IVD","10;AST","11;AIV","12;A13","13;LSDT","14;LSMO","15;LSYR" D
  1.  .S ASUP($P(ASUP("LOOP"),";",2))=$P(^ASUSITE(1,0),U,$P(ASUP("LOOP"),";"))
  1.  S X=$E(ASUP("LSMO"),1,2)*.01,X=X+.01,X=$P(X,".",2) S:X=1 X="10" S:X=13 X="01"
  1.  S ASUP("UPLD")=$P(^ASUSITE(1,1),U)
  1.  S ASUP("ARMS")=$P(^ASUSITE(1,3),U),ASUP("OLIB")=$P(^ASUSITE(1,3),U,5),ASUP("NXMO")=X,ASUP("MOW")=X_ASUP("MOW")
  1.  I ASUP("A13")=2 D
  1.  .S ASUD("R13","SEL")=$P(^ASUSITE(1,0),U,16)
  1.  .S ASUD("R13","RNG")=$P(^ASUSITE(1,0),U,17)
  1.  .I ASUD("R13","SEL")']"" K ASUD("R13","SEL") S ASUP("A13")=1
  1.  .I ASUD("R13","RNG")']"" K ASUD("R13","RNG") S ASUP("A13")=1
  1.  I ASUP("AST")<2,ASUP("STD")]"" D
  1.  .S ASUK("SRPT","IOP")=$P(ASUP("STD"),":")
  1.  .I ASUK("SRPT","IOP")="HFS" D
  1.  ..S ASUP("STD","FIL")=$S($P(ASUP("STD"),":",2)]"":$P(ASUP("STD"),":",2),$G(ASUP("TYP"))=1:"ASUMR"_$G(ASUL(2,"STA","CD")),$G(ASUP("TYP"))=2:"ASUYR"_$G(ASUL(2,"STA","CD")),1:"ASUSR"_$G(ASUL(2,"STA","CD")))
  1.  ..S ASUP("STD","EXT")=$S($P(ASUP("STD"),":",3)]"":$P(ASUP("STD"),":",3),1:$E(ASUK("DT","FM"),4,7))
  1.  ..S ASUP("STD","DIR")=$S($P(ASUP("STD"),":",4)]"":$P(ASUP("STD"),":",4),1:"/usr/spool/uucppublic/")
  1.  ..S X=""""_$G(ASUP("STD","DIR"))
  1.  ..S X=X_$G(ASUP("STD","FIL"))
  1.  ..S:$G(ASUP("STD","EXT"))]"" X=X_"."_ASUP("STD","EXT")
  1.  ..S ASUK("SRPT","IOPAR")="("_X_""":""W"")"
  1.  ..S ASUP("STD")=ASUK("SRPT","IOP")
  1.  I ASUP("AIV")<2,ASUP("IVD")]"" D
  1.  .S ASUK("IRPT","IOP")=$P(ASUP("IVD"),":")
  1.  .I ASUK("IRPT","IOP")="HFS" D
  1.  ..S ASUP("IVD","FIL")=$S($P(ASUP("IVD"),":",2)]"":$P(ASUP("IVD"),":",2),1:"ASUIR"_$G(ASUL(2,"STA","CD")))
  1.  ..S ASUP("IVD","EXT")=$S($P(ASUP("IVD"),":",3)]"":$P(ASUP("IVD"),":",3),1:$E(ASUK("DT","FM"),4,7))
  1.  ..S ASUP("IVD","DIR")=$S($P(ASUP("IVD"),":",4)]"":$P(ASUP("IVD"),":",4),1:"/usr/spool/uucppublic/")
  1.  ..S X=""""_$G(ASUP("IVD","DIR"))
  1.  ..S X=X_$G(ASUP("IVD","FIL"))
  1.  ..S:$G(ASUP("IVD","EXT"))]"" X=X_"."_ASUP("IVD","EXT")
  1.  ..S ASUK("IRPT","IOPAR")="("_X_""":""W"")"
  1.  ..S ASUP("IVD")=ASUK("IRPT","IOP")
  1. GETSTAT ;EP ;
  1.  F ASUP("LOOP")="1;CKP","2;CKT","3;CKS","4;CKI","5;CKM","6;CKY","10;CKX" D
  1.  .S ASUP($P(ASUP("LOOP"),";",2))=$P(^ASUSITE(1,2),U,$P(ASUP("LOOP"),";"))
  1.  F ASUP("LOOP")="3;STR","4;IVR","5;STS" D
  1.  .S ASUP($P(ASUP("LOOP"),";",2))=$P(^ASUSITE(1,0),U,$P(ASUP("LOOP"),";"))
  1.  Q
  1. SETSP ;EP ;UPDT
  1.  S $P(^ASUSITE(1,2),U)=ASUP("CKP") Q
  1. SETST ;EP ;TRNS
  1.  S $P(^ASUSITE(1,2),U,2)=ASUP("CKT") Q
  1. SETSS ;EP ;STNDRD
  1.  S $P(^ASUSITE(1,2),U,3)=ASUP("CKS"),$P(^ASUSITE(1,0),U,3)=ASUP("STR") Q
  1. SETSI ;EP ;INV
  1.  S $P(^ASUSITE(1,2),U,4)=ASUP("CKI"),$P(^ASUSITE(1,0),U,4)=ASUP("IVR") Q
  1. SETSM ;EP ;MTHLY
  1.  S $P(^ASUSITE(1,2),U,5)=ASUP("CKM") Q
  1. SETSX ;EP ;RPTXTR
  1.  S $P(^ASUSITE(1,2),U,10)=ASUP("CKX") Q
  1. SETSY ;EP ;YR
  1.  S $P(^ASUSITE(1,2),U,6)=ASUP("CKY") Q
  1. SETTY ;EP ;TYP
  1.  S $P(^ASUSITE(1,0),U,2)=ASUP("TYP")
  1.  S (ASUP("STR"),ASUP("STS"),ASUP("IVR"))="N"
  1. SETS ;EP ;
  1.  F ASUP("LOOP")="3;STR","4;IVR","5;STS" D
  1.  .S $P(^ASUSITE(1,0),U,$P(ASUP("LOOP"),";"))=ASUP($P(ASUP("LOOP"),";",2))
  1.  Q
  1. SETSTA ;EP ;STAT
  1.  S $P(^ASUSITE(1,0),U,5)=ASUP("STS") Q
  1. SETLD ;EP ;LAST UPDATE
  1.  S $P(^ASUSITE(1,0),U,13)=ASUP("LSDT") Q
  1. SETLM ;EP ;LAST MTH
  1.  S $P(^ASUSITE(1,0),U,14)=ASUP("LSMO") Q
  1. SETLY ;EP ; LAST YR
  1.  S $P(^ASUSITE(1,0),U,15)=ASUP("LSYR") Q
  1. SETSTAT ;EP ;
  1.  F ASUP("LOOP")="1;CKP","2;CKT","3;CKS","4;CKI","5;CKM","6;CKY","10;CKX" D
  1.  .S $P(^ASUSITE(1,2),U,$P(ASUP("LOOP"),";"))=ASUP($P(ASUP("LOOP"),";",2))
  1.  D SETS I $G(ASUP("HLT"))=1 Q
  1.  S ASUP("LSDT")=ASUK("DT","FM")
  1.  F ASUP("LOOP")="13;LSDT","14;LSMO","15;LSYR" D
  1.  .S $P(^ASUSITE(1,0),U,$P(ASUP("LOOP"),";"))=ASUP($P(ASUP("LOOP"),";",2))
  1.  Q