Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Pointer To FileMan Files |  Fields |  Found Entries |  All
Print Page as PDF
Global: ^AZCM(1440069

Package: Uncategorized

Global: ^AZCM(1440069


Information

FileMan FileNo FileMan Filename Package
1440069 SERVICE UNIT FY-92 COMMITMENT REGISTER Uncategorized

Description

Directly Accessed By Routines, Total: 4

Package Total Routines
Local Area Programs 4 AZCM92    AZCMDOC    AZCMMDOC    AZCMPR    

Pointer To FileMan Files, Total: 4

Package Total FileMan Files
Uncategorized 4 FINANCE BUDGET ACTIVITIES(#1400200)[.01]    FINANCE CR VENDOR(#1400204)[#1440069.03(.02)]    FINANCE CAN NUMBER(#1440094)[#1440069.01(.01)]    FINANCE OBJECT CLASS CODE(#1440104)[#1440069.02(.01)]    

Fields, Total: 22

Field # Name Loc Type Details
.01 BUDGET ACTIVITY 0;1 POINTER TO FINANCE BUDGET ACTIVITIES FILE (#1400200)
************************REQUIRED FIELD************************
FINANCE BUDGET ACTIVITIES(#1400200)

  • LAST EDITED:  OCT 23, 1991
    DELETE AUTHORITY: X
  • CROSS-REFERENCE:  1440069^B
    1)= S ^AZCM(1440069,"B",$E(X,1,30),DA)=""
    2)= K ^AZCM(1440069,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^1440069^8
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AZCM(1440069,D0,3)):^(3),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=2911001 X ^DD(1440069,.01,1,2,1.4)
    1.4)= S DIH=$S($D(^AZCM(1440069,DIV(0),3)):^(3),1:""),DIV=X S $P(^(3),U,3)=DIV,DIH=1440069,DIG=8 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= S X=2911001
    DELETE VALUE)= NO EFFECT
    FIELD)= FY-BEGINNING DATE
.2 ACTIVITY NUMBER COMPUTED

  • MUMPS CODE:  X ^DD(1440069,.2,9.2) S Y(1440069,.2,101)=$S($D(^AZCR(1400200,D0,0)):^(0),1:"") S X=$P(Y(1440069,.2,101),U,3) S D0=Y(1440069,.2,80)
    9.2 = S Y(1440069,.2,80)=$S($D(D0):D0,1:""),Y(1440069,.2,1)=$S($D(^AZCM(1440069,D0,0)):^(0),1:""),D0=$P(Y(1440069,.2,1),U,1) S:'$D(^AZCR(1400200,+D0,0)) D0=-1
  • ALGORITHM:  BUDGET ACTIVITY:NUMBER
.3 ACTIVITY NARRATIVE COMPUTED

  • MUMPS CODE:  X ^DD(1440069,.3,9.2) S Y(1440069,.3,101)=$S($D(^AZCR(1400200,D0,0)):^(0),1:"") S X=$P(Y(1440069,.3,101),U,2) S D0=Y(1440069,.3,80)
    9.2 = S Y(1440069,.3,80)=$S($D(D0):D0,1:""),Y(1440069,.3,1)=$S($D(^AZCM(1440069,D0,0)):^(0),1:""),D0=$P(Y(1440069,.3,1),U,1) S:'$D(^AZCR(1400200,+D0,0)) D0=-1
  • ALGORITHM:  BUDGET ACTIVITY:NARRATIVE
1 CAN NUMBER 1;0 POINTER Multiple #1440069.01 1440069.01
2 TOTAL BA COMPUTED

  • MUMPS CODE:  X ^DD(1440069,2,9.3) S X=Y(1440069,2,102) S D0=Y(1440069,2,80) S D1=Y(1440069,2,81) S X=$J(X,0,2)
    9.2 = S Y(1440069,2,80)=$S($D(D0):D0,1:""),Y(1440069,2,81)=$S($D(D1):D1,1:""),Y(1440069,2,102)=""
    9.3 = X ^DD(1440069,2,9.2) X "F D1=0:0 S D1=$N(^AZCM(1440069,D0,1,D1)) Q:D1'>0  X $P(^DD(1440069.01,2,0),U,5,99) S Y(1440069,2,102)=Y(1440069,2,102)+X" S D(1)=D1
  • ALGORITHM:  TOTAL(CAN NUMBER:SUBT OBJ) (ALWAYS 2 DECIMAL DIGITS)
2.1 ALLOWANCE SUM COMPUTED

  • MUMPS CODE:  X ^DD(1440069,2.1,9.3) S X=Y(1440069,2.1,102) S D0=Y(1440069,2.1,80) S D1=Y(1440069,2.1,81) S X=$J(X,0,2)
    9.2 = S Y(1440069,2.1,80)=$S($D(D0):D0,1:""),Y(1440069,2.1,81)=$S($D(D1):D1,1:""),Y(1440069,2.1,102)=""
    9.3 = X ^DD(1440069,2.1,9.2) X "F D1=0:0 S D1=$N(^AZCM(1440069,D0,2,D1)) Q:D1'>0  S Y(1440069,2.1,102)=Y(1440069,2.1,102)+$S($D(^(D1,0)):$P(^(0),U,2),1:"""")" S D(1)=D1
  • ALGORITHM:  TOTAL(ALLOWANCE:AMOUNT) (ALWAYS 2 DECIMAL DIGITS)
2.2 BALANCE COMPUTED

  • MUMPS CODE:  X $P(^DD(1440069,2,0),U,5,99) S Y(1440069,2.2,2)=X X $P(^DD(1440069,2.1,0),U,5,99) S Y(1440069,2.2,1)=X S X=Y(1440069,2.2,1)-Y(1440069,2.2,2) S X=$J(X,0,2)
  • ALGORITHM:  ALLOWANCE SUM-TOTAL BA (ALWAYS 2 DECIMAL DIGITS)
3 ALLOWANCE 2;0 DATE Multiple #1440069.04 1440069.04

  • IDENTIFIED BY:  AMOUNT(#1), DESCRIPTION(#2)[R]
4 TOTAL ALLOWANCE COMPUTED

  • MUMPS CODE:  X ^DD(1440069,4,9.3) S X=Y(1440069,4,102) S D0=Y(1440069,4,80) S D1=Y(1440069,4,81) S X=$J(X,0,2)
    9.2 = S Y(1440069,4,80)=$S($D(D0):D0,1:""),Y(1440069,4,81)=$S($D(D1):D1,1:""),Y(1440069,4,102)=""
    9.3 = X ^DD(1440069,4,9.2) X "F D1=0:0 S D1=$N(^AZCM(1440069,D0,2,D1)) Q:D1'>0  S Y(1440069,4,102)=Y(1440069,4,102)+$S($D(^(D1,0)):$P(^(0),U,2),1:"""")" S D(1)=D1
  • ALGORITHM:  TOTAL(ALLOWANCE:AMOUNT) (ALWAYS 2 DECIMAL DIGITS)
5 % EXPENDED COMPUTED

  • MUMPS CODE:  X ^DD(1440069,5,9.3) S X=X*100,X=$S(Y(1440069,5,2):Y(1440069,5,3),Y(1440069,5,4):X)
    9.2 = X $P(^DD(1440069,2,0),U,5,99) S Y(1440069,5,6)=X X $P(^DD(1440069,2.1,0),U,5,99) S Y(1440069,5,1)=X S X=Y(1440069,5,1)="0.00",Y(1440069,5,2)=X S X="0.00"
    9.3 = X ^DD(1440069,5,9.2) S Y(1440069,5,3)=X S X=Y(1440069,5,1)>"0.00",Y(1440069,5,4)=X,Y(1440069,5,5)=X S X=Y(1440069,5,6),X=$S(Y(1440069,5,1):X/Y(1440069,5,1),1:"*******")
    9.4 = X ^DD(1440069,5,9.3) S Y(1440069,5,4)=X,Y(1440069,5,5)=X S X=Y(1440069,5,1),X=$S( X ^DD(1440069,5,9.2):D0>0 S X="":X/ X ^DD(1440069,5,9.2):D0>0 S X="",1:"*******")
  • ALGORITHM:  $S(ALLOWANCE SUM="0.00":"0.00",ALLOWANCE SUM>"0.00":(TOTAL BA/ALLOWANCE SUM)*100)
  • LAST EDITED:  OCT 31, 1989
6 OBLIGATION MONTH 3;2 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:2910930X) X
  • LAST EDITED:  OCT 11, 1990
  • HELP-PROMPT:  TYPE A DATE BETWEEN 10/1/1990 AND 9/30/1991
7 OBLIGATION CALCULATION COMPUTED

  • MUMPS CODE:  S Y(1440069,7,1)=$S($D(^AZCM(1440069,D0,3)):^(3),1:"") S X=$P(Y(1440069,7,1),U,2),X1=X,X2=$P(Y(1440069,7,1),U,3),X="" D:X2 ^%DTC:X1 S X=X/30 S X=$J(X,0,1)
  • ALGORITHM:  OBLIGATION MONTH-FY-BEGINNING DATE/30 (ALWAYS 1 DECIMAL DIGITS)
8 FY-BEGINNING DATE 3;3 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • NOTES:  TRIGGERED by the BUDGET ACTIVITY field of the SERVICE UNIT FY-92 COMMITMENT REGISTER File
9 STRAIGHT LINE PROJ 1 COMPUTED

  • MUMPS CODE:  X ^DD(1440069,9,9.2) S X=X-Y(1440069,9,2),X=$S(Y(1440069,9,3):X\Y(1440069,9,3),1:"*******")*3+Y(1440069,9,2) S X=$J(X,0,2)
    9.2 = X $P(^DD(1440069,2,0),U,5,99) S Y(1440069,9,1)=X X $P(^DD(1440069,7,0),U,5,99) S Y(1440069,9,3)=X X $P(^DD(1440069,11,0),U,5,99) S Y(1440069,9,2)=X S X=Y(1440069,9,1)
  • ALGORITHM:  (TOTAL BA-TOTAL OTC COST)\OBLIGATION CALCULATION*3+TOTAL OTC COST (ALWAYS 2 DECIMAL DIGITS)
  • LAST EDITED:  NOV 16, 1989
9.2 STRAIGHT LINE PROJ 2 COMPUTED

  • MUMPS CODE:  X ^DD(1440069,9.2,9.2) S X=Y(1440069,9.2,1)-Y(1440069,9.2,2),X=$S(Y(1440069,9.2,3):X\Y(1440069,9.2,3),1:"*******")*6+Y(1440069,9.2,2) S X=$J(X,0,2)
    9.2 = X $P(^DD(1440069,2,0),U,5,99) S Y(1440069,9.2,1)=X X $P(^DD(1440069,7,0),U,5,99) S Y(1440069,9.2,3)=X X $P(^DD(1440069,11,0),U,5,99) S Y(1440069,9.2,2)=X
  • ALGORITHM:  (TOTAL BA-TOTAL OTC COST)\OBLIGATION CALCULATION*6+TOTAL OTC COST (ALWAYS 2 DECIMAL DIGITS)
9.3 STRAIGHT LINE PROJ 3 COMPUTED

  • MUMPS CODE:  X ^DD(1440069,9.3,9.2) S X=Y(1440069,9.3,1)-Y(1440069,9.3,2),X=$S(Y(1440069,9.3,3):X\Y(1440069,9.3,3),1:"*******")*9+Y(1440069,9.3,2) S X=$J(X,0,2)
    9.2 = X $P(^DD(1440069,2,0),U,5,99) S Y(1440069,9.3,1)=X X $P(^DD(1440069,7,0),U,5,99) S Y(1440069,9.3,3)=X X $P(^DD(1440069,11,0),U,5,99) S Y(1440069,9.3,2)=X
  • ALGORITHM:  (TOTAL BA-TOTAL OTC COST)\OBLIGATION CALCULATION*9+TOTAL OTC COST (ALWAYS 2 DECIMAL DIGITS)
9.4 STRAIGHT LINE PROJ 4 COMPUTED

  • MUMPS CODE:  X ^DD(1440069,9.4,9.2) S X=Y(1440069,9.4,1)-Y(1440069,9.4,2),X=$S(Y(1440069,9.4,3):X\Y(1440069,9.4,3),1:"*******")*12+Y(1440069,9.4,2) S X=$J(X,0,2)
    9.2 = X $P(^DD(1440069,2,0),U,5,99) S Y(1440069,9.4,1)=X X $P(^DD(1440069,7,0),U,5,99) S Y(1440069,9.4,3)=X X $P(^DD(1440069,11,0),U,5,99) S Y(1440069,9.4,2)=X
  • ALGORITHM:  (TOTAL BA-TOTAL OTC COST)\OBLIGATION CALCULATION*12+TOTAL OTC COST (ALWAYS 2 DECIMAL DIGITS)
10 PROJECTION 1 COMPUTED

  • MUMPS CODE:  X $P(^DD(1440069,2.1,0),U,5,99) S Y(1440069,10,1)=X X $P(^DD(1440069,9,0),U,5,99) S Y(1440069,10,2)=X S X=Y(1440069,10,1)-Y(1440069,10,2) S X=$J(X,0,2)
  • ALGORITHM:  ALLOWANCE SUM-STRAIGHT LINE PROJ 1 (ALWAYS 2 DECIMAL DIGITS)
  • LAST EDITED:  NOV 16, 1989
10.2 PROJECTION 2 COMPUTED

  • MUMPS CODE:  X $P(^DD(1440069,2.1,0),U,5,99) S Y(1440069,10.2,1)=X X $P(^DD(1440069,9.2,0),U,5,99) S Y(1440069,10.2,2)=X S X=Y(1440069,10.2,1)-Y(1440069,10.2,2) S X=$J(X,0,2)
  • ALGORITHM:  ALLOWANCE SUM-STRAIGHT LINE PROJ 2 (ALWAYS 2 DECIMAL DIGITS)
10.3 PROJECTION 3 COMPUTED

  • MUMPS CODE:  X $P(^DD(1440069,2.1,0),U,5,99) S Y(1440069,10.3,1)=X X $P(^DD(1440069,9.3,0),U,5,99) S Y(1440069,10.3,2)=X S X=Y(1440069,10.3,1)-Y(1440069,10.3,2) S X=$J(X,0,2)
  • ALGORITHM:  ALLOWANCE SUM-STRAIGHT LINE PROJ 3 (ALWAYS 2 DECIMAL DIGITS)
10.4 PROJECTION 4 COMPUTED

  • MUMPS CODE:  X $P(^DD(1440069,2.1,0),U,5,99) S Y(1440069,10.4,1)=X X $P(^DD(1440069,9.4,0),U,5,99) S Y(1440069,10.4,2)=X S X=Y(1440069,10.4,1)-Y(1440069,10.4,2) S X=$J(X,0,2)
  • ALGORITHM:  ALLOWANCE SUM-STRAIGHT LINE PROJ 4 (ALWAYS 2 DECIMAL DIGITS)
11 TOTAL OTC COST COMPUTED

  • MUMPS CODE:  X ^DD(1440069,11,9.3) S X=Y(1440069,11,102) S D0=Y(1440069,11,80) S D1=Y(1440069,11,81) S X=$J(X,0,2)
    9.2 = S Y(1440069,11,80)=$S($D(D0):D0,1:""),Y(1440069,11,81)=$S($D(D1):D1,1:""),Y(1440069,11,102)=""
    9.3 = X ^DD(1440069,11,9.2) X "F D1=0:0 S D1=$N(^AZCM(1440069,D0,1,D1)) Q:D1'>0  X $P(^DD(1440069.01,5,0),U,5,99) S Y(1440069,11,102)=Y(1440069,11,102)+X" S D(1)=D1
  • ALGORITHM:  TOTAL(CAN NUMBER:TOTAL OTC) (ALWAYS 2 DECIMAL DIGITS)
Info |  Desc |  Directly Accessed By Routines |  Pointer To FileMan Files |  Fields |  Found Entries |  All