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.01

Package: Uncategorized

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

Sub-Field: 1440069.01


Information

Parent File Name Number Package
SERVICE UNIT FY-92 COMMITMENT REGISTER(#1440069) CAN NUMBER 1440069.01 Uncategorized

Details

Field # Name Loc Type Details
.01 CAN NUMBER 0;1 POINTER TO FINANCE CAN NUMBER FILE (#1440094) FINANCE CAN NUMBER(#1440094)

  • LAST EDITED:  OCT 24, 1991
    DELETE AUTHORITY: S
  • CROSS-REFERENCE:  1440069.01^B
    1)= S ^AZCM(1440069,DA(1),1,"B",$E(X,1,30),DA)=""
    2)= K ^AZCM(1440069,DA(1),1,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  1440069^D
    1)= S ^AZCM(1440069,"D",$E(X,1,30),DA(1),DA)=""
    2)= K ^AZCM(1440069,"D",$E(X,1,30),DA(1),DA)
1 OBJECT CLASS 1;0 POINTER Multiple #1440069.02 1440069.02
2 SUBT OBJ COMPUTED

  • MUMPS CODE:  X ^DD(1440069.01,2,9.3) S X=Y(1440069.01,2,103) S D0=Y(1440069.01,2,80) S D1=Y(1440069.01,2,81) S D2=Y(1440069.01,2,82) S X=$J(X,0,2)
    9.2 = S Y(1440069.01,2,80)=$S($D(D0):D0,1:""),Y(1440069.01,2,81)=$S($D(D1):D1,1:""),Y(1440069.01,2,82)=$S($D(D2):D2,1:""),Y(1440069.01,2,103)=""
    9.3 = X ^DD(1440069.01,2,9.2) X "F D2=0:0 S D2=$N(^AZCM(1440069,D0,1,D1,1,D2)) Q:D2'>0  X $P(^DD(1440069.02,2,0),U,5,99) S Y(1440069.01,2,103)=Y(1440069.01,2,103)+X" S D(2)=D2
  • ALGORITHM:  TOTAL(OBJECT CLASS:SUBT DOC) (ALWAYS 2 DECIMAL DIGITS)
3 COST CENTER COMPUTED

  • MUMPS CODE:  X ^DD(1440069.01,3,9.3) S X=$P(Y(1440069.01,3,101),U,3) S D0=Y(1440069.01,3,80) S D1=Y(1440069.01,3,81)
    9.2 = S Y(1440069.01,3,81)=$S($D(D1):D1,1:""),Y(1440069.01,3,80)=$S($D(D0):D0,1:""),Y(1440069.01,3,1)=$S($D(^AZCM(1440069,D0,1,D1,0)):^(0),1:"")
    9.3 = X ^DD(1440069.01,3,9.2) S D0=$P(Y(1440069.01,3,1),U,1) S:'$D(^AZCR(1440094,+D0,0)) D0=-1 S Y(1440069.01,3,101)=$S($D(^AZCR(1440094,D0,0)):^(0),1:"")
  • ALGORITHM:  CAN NUMBER:COST CENTER NUMBER
4 COST NARRATIVE COMPUTED

  • MUMPS CODE:  X ^DD(1440069.01,4,9.3) S X=$S('$D(^AZCR(1400202,+$P(Y(1440069.01,4,101),U,5),0)):"",1:$P(^(0),U,1)) S D0=Y(1440069.01,4,80) S D1=Y(1440069.01,4,81)
    9.2 = S Y(1440069.01,4,81)=$S($D(D1):D1,1:""),Y(1440069.01,4,80)=$S($D(D0):D0,1:""),Y(1440069.01,4,1)=$S($D(^AZCM(1440069,D0,1,D1,0)):^(0),1:"")
    9.3 = X ^DD(1440069.01,4,9.2) S D0=$P(Y(1440069.01,4,1),U,1) S:'$D(^AZCR(1440094,+D0,0)) D0=-1 S Y(1440069.01,4,101)=$S($D(^AZCR(1440094,D0,0)):^(0),1:"")
  • ALGORITHM:  CAN NUMBER:COST CENTER NARRATIVE
5 TOTAL OTC COMPUTED

  • MUMPS CODE:  X ^DD(1440069.01,5,9.3) S X=Y(1440069.01,5,103) S D0=Y(1440069.01,5,80) S D1=Y(1440069.01,5,81) S D2=Y(1440069.01,5,82) S X=$J(X,0,2)
    9.2 = S Y(1440069.01,5,80)=$S($D(D0):D0,1:""),Y(1440069.01,5,81)=$S($D(D1):D1,1:""),Y(1440069.01,5,82)=$S($D(D2):D2,1:""),Y(1440069.01,5,103)=""
    9.3 = X ^DD(1440069.01,5,9.2) X "F D2=0:0 S D2=$N(^AZCM(1440069,D0,1,D1,1,D2)) Q:D2'>0  X $P(^DD(1440069.02,5,0),U,5,99) S Y(1440069.01,5,103)=Y(1440069.01,5,103)+X" S D(2)=D2
  • ALGORITHM:  TOTAL(OBJECT CLASS:TOTAL OTC) (ALWAYS 2 DECIMAL DIGITS)
Info |  Details |  All