Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details |  All
Print Page as PDF
Sub-Field: 1440069.02

Package: Uncategorized

SERVICE UNIT FY-92 COMMITMENT REGISTER(#1440069)-->1440069.01-->1440069.02

Sub-Field: 1440069.02


Information

Parent File Name Number Package
1440069.01 OBJECT CLASS 1440069.02 Uncategorized

Details

Field # Name Loc Type Details
.01 OBJECT CLASS 0;1 POINTER TO FINANCE OBJECT CLASS CODE FILE (#1440104) FINANCE OBJECT CLASS CODE(#1440104)

  • LAST EDITED:  OCT 16, 1990
    DELETE AUTHORITY: S
  • CROSS-REFERENCE:  1440069.02^B
    1)= S ^AZCM(1440069,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)=""
    2)= K ^AZCM(1440069,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)
1 DOCUMENT NUMBER 1;0 Multiple #1440069.03 1440069.03
2 SUBT DOC COMPUTED

  • MUMPS CODE:  X ^DD(1440069.02,2,9.4) S X=Y(1440069.02,2,104) S D0=Y(1440069.02,2,80) S D1=Y(1440069.02,2,81) S D2=Y(1440069.02,2,82) S D3=Y(1440069.02,2,83) S X=$J(X,0,2)
    9.2 = S Y(1440069.02,2,80)=$S($D(D0):D0,1:""),Y(1440069.02,2,81)=$S($D(D1):D1,1:""),Y(1440069.02,2,82)=$S($D(D2):D2,1:""),Y(1440069.02,2,83)=$S($D(D3):D3,1:"")
    9.3 = X ^DD(1440069.02,2,9.2) S Y(1440069.02,2,104)=""
    9.4 = X ^DD(1440069.02,2,9.3) X "F D3=0:0 S D3=$N(^AZCM(1440069,D0,1,D1,1,D2,1,D3)) Q:D3'>0  X $P(^DD(1440069.03,4,0),U,5,99) S Y(1440069.02,2,104)=Y(1440069.02,2,104)+X" S D(3)=D3
  • ALGORITHM:  TOTAL(DOCUMENT NUMBER:SELECT) (ALWAYS 2 DECIMAL DIGITS)
3 OBJ NARRATIVE COMPUTED

  • MUMPS CODE:  X ^DD(1440069.02,3,9.3) S Y(1440069.02,3,101)=$S($D(^AZCR(1440104,D0,0)):^(0),1:"") S X=$P(Y(1440069.02,3,101),U,2) S D0=Y(1440069.02,3,80) S D1=Y(1440069.02,3,81) S D2=Y(1440069.02,3,82)
    9.2 = S Y(1440069.02,3,82)=$S($D(D2):D2,1:""),Y(1440069.02,3,81)=$S($D(D1):D1,1:""),Y(1440069.02,3,80)=$S($D(D0):D0,1:"")
    9.3 = X ^DD(1440069.02,3,9.2) S Y(1440069.02,3,1)=$S($D(^AZCM(1440069,D0,1,D1,1,D2,0)):^(0),1:""),D0=$P(Y(1440069.02,3,1),U,1) S:'$D(^AZCR(1440104,+D0,0)) D0=-1
  • ALGORITHM:  OBJECT CLASS:NARRATIVE DESCRIPTION
4 OBJ GROUP COMPUTED

  • MUMPS CODE:  X ^DD(1440069.02,4,9.3) S Y(1440069.02,4,101)=$S($D(^AZCR(1440104,D0,0)):^(0),1:"") S X=$P(Y(1440069.02,4,101),U,3) S D0=Y(1440069.02,4,80) S D1=Y(1440069.02,4,81) S D2=Y(1440069.02,4,82) S X=$J(X,0,0)
    9.2 = S Y(1440069.02,4,82)=$S($D(D2):D2,1:""),Y(1440069.02,4,81)=$S($D(D1):D1,1:""),Y(1440069.02,4,80)=$S($D(D0):D0,1:"")
    9.3 = X ^DD(1440069.02,4,9.2) S Y(1440069.02,4,1)=$S($D(^AZCM(1440069,D0,1,D1,1,D2,0)):^(0),1:""),D0=$P(Y(1440069.02,4,1),U,1) S:'$D(^AZCR(1440104,+D0,0)) D0=-1
  • ALGORITHM:  OBJECT CLASS:GROUP (ALWAYS 0 DECIMAL DIGITS)
5 TOTAL OTC COMPUTED

  • MUMPS CODE:  X ^DD(1440069.02,5,9.4) S X=Y(1440069.02,5,104) S D0=Y(1440069.02,5,80) S D1=Y(1440069.02,5,81) S D2=Y(1440069.02,5,82) S D3=Y(1440069.02,5,83) S X=$J(X,0,2)
    9.2 = S Y(1440069.02,5,80)=$S($D(D0):D0,1:""),Y(1440069.02,5,81)=$S($D(D1):D1,1:""),Y(1440069.02,5,82)=$S($D(D2):D2,1:""),Y(1440069.02,5,83)=$S($D(D3):D3,1:"")
    9.3 = X ^DD(1440069.02,5,9.2) S Y(1440069.02,5,104)=""
    9.4 = X ^DD(1440069.02,5,9.3) X "F D3=0:0 S D3=$N(^AZCM(1440069,D0,1,D1,1,D2,1,D3)) Q:D3'>0  S Y(1440069.02,5,104)=Y(1440069.02,5,104)+$S($D(^(D3,2)):$P(^(2),U,4),1:"""")" S D(3)=D3
  • ALGORITHM:  TOTAL(DOCUMENT NUMBER:OTC TRIGGER AMOUNT) (ALWAYS 2 DECIMAL DIGITS)
Info |  Details |  All