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

Package: Uncategorized

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

Sub-Field: 1440069.03


Information

Parent File Name Number Package
1440069.02 DOCUMENT NUMBER 1440069.03 Uncategorized

Details

Field # Name Loc Type Details
.01 DOCUMENT NUMBER 0;1 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>12!($L(X)<3) X
  • LAST EDITED:  SEP 23, 1991
  • HELP-PROMPT:  ANSWER MUST BE 3-12 CHARACTERS IN LENGTH
    DELETE AUTHORITY: D
  • CROSS-REFERENCE:  ^^TRIGGER^1440069.03^1.5
    1)= K DIV S DIV=X,D0=DA(3),DIV(0)=D0,D1=DA(2),DIV(1)=D1,D2=DA(1),DIV(2)=D2,D3=DA,DIV(3)=D3 S Y(1)=$S($D(^AZCM(1440069,D0,1,D1,1,D2,1,D3,2)):^(2),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC X ^DD(144
    0069.03,.01,1,1,1.4)
    1.4)= S DIH=$S($D(^AZCM(1440069,DIV(0),1,DIV(1),1,DIV(2),1,DIV(3),2)):^(2),1:""),DIV=X S $P(^(2),U,2)=DIV,DIH=1440069.03,DIG=1.5 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= TODAY
    DELETE VALUE)= NO EFFECT
    FIELD)= DATE OF OBLIGATION
    THIS TRIGGER STUFFS TODAY'S DATE IN THE DATE OF OGLIBATION FIELD EACH TIME A NEW DOCUMENT IS ENTERED.  THIS VALUE MAY BE CHANGED IF THIS IS NOT THE CORRECT DATE.  NO DELETION OCCURS IF DOCUMENT IS DELETED, BECAUSE NO VALUE
    EXISTS IF NO DOCUMENT EXISTS.
  • CROSS-REFERENCE:  ^^TRIGGER^1440069.03^.03
    1)= K DIV S DIV=X,D0=DA(3),DIV(0)=D0,D1=DA(2),DIV(1)=D1,D2=DA(1),DIV(2)=D2,D3=DA,DIV(3)=D3 S Y(1)=$S($D(^AZCM(1440069,D0,1,D1,1,D2,1,D3,2)):^(2),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=DIV X ^DD(1440069.03,.01,1
    ,2,1.4)
    1.4)= S DIH=$S($D(^AZCM(1440069,DIV(0),1,DIV(1),1,DIV(2),1,DIV(3),2)):^(2),1:""),DIV=X S $P(^(2),U,1)=DIV,DIH=1440069.03,DIG=.03 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= DOCUMENT NUMBER
    DELETE VALUE)= NO EFFECT
    FIELD)= REQUISITION NUMBER
  • CROSS-REFERENCE:  1440069.03^B
    1)= S ^AZCM(1440069,DA(3),1,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)=""
    2)= K ^AZCM(1440069,DA(3),1,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)
.02 VENDOR NAME 0;5 POINTER TO FINANCE CR VENDOR FILE (#1400204)
************************REQUIRED FIELD************************
FINANCE CR VENDOR(#1400204)

  • LAST EDITED:  NOV 02, 1989
.025 INT REC NO COMPUTED

  • MUMPS CODE:  X ^DD(1440069.03,.025,9.4) S X=$P(Y(1440069.03,.025,101),U,2) S D0=Y(1440069.03,.025,80) S D1=Y(1440069.03,.025,81) S D2=Y(1440069.03,.025,82) S D3=Y(1440069.03,.025,83)
    9.2 = S Y(1440069.03,.025,83)=$S($D(D3):D3,1:""),Y(1440069.03,.025,82)=$S($D(D2):D2,1:""),Y(1440069.03,.025,81)=$S($D(D1):D1,1:""),Y(1440069.03,.025,80)=$S($D(D0):D0,1:"")
    9.3 = X ^DD(1440069.03,.025,9.2) S Y(1440069.03,.025,1)=$S($D(^AZCM(1440069,D0,1,D1,1,D2,1,D3,0)):^(0),1:"")
    9.4 = X ^DD(1440069.03,.025,9.3) S D0=$P(Y(1440069.03,.025,1),U,5) S:'$D(^AZCR(1400204,+D0,0)) D0=-1 S Y(1440069.03,.025,101)=$S($D(^AZCR(1400204,D0,0)):^(0),1:"")
  • ALGORITHM:  VENDOR NAME:INTERNAL RECORD NUMBER
.03 PURCHASE ORDER NUMBER 2;1 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>12!($L(X)<3) X
  • LAST EDITED:  NOV 14, 1991
  • HELP-PROMPT:  ENTER NUMBER 3-12 CHARACTERS IN LENGTH..THIS WILL CORRESPOND WITH THE ORIGINAL DOCUMENT/PO NUMBER
    DELETE AUTHORITY: D
  • NOTES:  TRIGGERED by the DOCUMENT NUMBER field of the DOCUMENT NUMBER sub-field of the OBJECT CLASS sub-field of the CAN NUMBER sub-field of the SERVICE UNIT FY-92 COMMITMENT REGISTER File
  • CROSS-REFERENCE:  1440069.03^C
    1)= S ^AZCM(1440069,DA(3),1,DA(2),1,DA(1),1,"C",$E(X,1,30),DA)=""
    2)= K ^AZCM(1440069,DA(3),1,DA(2),1,DA(1),1,"C",$E(X,1,30),DA)
1 AMOUNT OBLIGATED 0;2 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>9999999)!(X<-500000)!(X?."0"1"."."0")!(X=0) X
  • LAST EDITED:  NOV 13, 1991
  • HELP-PROMPT:  Type a Dollar Amount between -500000 and 9999999, 2 Decimal Digits
  • AUDIT:  EDITED OR DELETED
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1.3 OTC TAG 2;3 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  OCT 01, 1991
  • CROSS-REFERENCE:  ^^TRIGGER^1440069.03^9
    1)= X ^DD(1440069.03,1.3,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^AZCM(1440069,D0,1,D1,1,D2,1,D3,2)):^(2),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(1440069.03,1.3,1,1,1.1) X ^DD(1440069.03,1.3,1,1,1.4)
    1.1)= S X=DIV X $P(^DD(1440069.03,4,0),U,5,99) S Y(1)=X S X=Y(1)
    1.3)= K DIV S DIV=X,D0=DA(3),DIV(0)=D0,D1=DA(2),DIV(1)=D1,D2=DA(1),DIV(2)=D2,D3=DA,DIV(3)=D3 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(1440069.03,1.3,0)):$P(^(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="YES"
    1.4)= S DIH=$S($D(^AZCM(1440069,DIV(0),1,DIV(1),1,DIV(2),1,DIV(3),2)):^(2),1:""),DIV=X S $P(^(2),U,4)=DIV,DIH=1440069.03,DIG=9 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= X ^DD(1440069.03,1.3,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^AZCM(1440069,D0,1,D1,1,D2,1,D3,2)):^(2),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="" X ^DD(1440069.03,1.3,1,1,2.4)
    2.3)= K DIV S DIV=X,D0=DA(3),DIV(0)=D0,D1=DA(2),DIV(1)=D1,D2=DA(1),DIV(2)=D2,D3=DA,DIV(3)=D3 S Y(0)=X X ^DD(1440069.03,1.3,1,1,79.2) S X=$P($P(Y(2),$C(59)_$P(Y(1),U,3)_":",2),$C(59),1)'="YES"
    2.4)= S DIH=$S($D(^AZCM(1440069,DIV(0),1,DIV(1),1,DIV(2),1,DIV(3),2)):^(2),1:""),DIV=X S $P(^(2),U,4)=DIV,DIH=1440069.03,DIG=9 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    79.2)= S Y(2)=$C(59)_$S($D(^DD(1440069.03,1.3,0)):$P(^(0),U,3),1:""),Y(1)=$S($D(^AZCM(1440069,D0,1,D1,1,D2,1,D3,2)):^(2),1:"")
    CREATE CONDITION)= OTC TAG="YES"
    CREATE VALUE)= SELECT
    DELETE CONDITION)= OTC TAG'="YES"
    DELETE VALUE)= @
    FIELD)= OTC TRIGGER AMOUNT
1.5 DATE OF OBLIGATION 2;2 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 23, 1991
  • NOTES:  TRIGGERED by the DOCUMENT NUMBER field of the DOCUMENT NUMBER sub-field of the OBJECT CLASS sub-field of the CAN NUMBER sub-field of the SERVICE UNIT FY-92 COMMITMENT REGISTER File
2 DAYS LAPSED COMPUTED

  • MUMPS CODE:  S Y(1440069.03,2,1)=$S($D(^AZCM(1440069,D0,1,D1,1,D2,1,D3,2)):^(2),1:""),X=DT S X=X,X1=X,X2=$P(Y(1440069.03,2,1),U,2),X="" D:X2 ^%DTC:X1 S X=$J(X,0,0)
    9.2 = S Y(1440069.03,2,2)=$C(59)_$S($D(^DD(1440069.03,3,0)):$P(^(0),U,3),1:"") X $P(^DD(1440069.03,11,0),U,5,99) S Y(1440069.03,2,9)=
    9.3 = X ^DD(1440069.03,2,9.2) S Y(1440069.03,2,7)=$C(59)_$S($D(^DD(1440069.03,3,0)):$P(^(0),U,3),1:""),Y(1440069.03,2,1)=$S($D(^AZCM(1440069,D0,1,D1,1,D2,1,D3,0)):^(0),1:"")
    9.4 = X ^DD(1440069.03,2,9.3) S Y(1440069.03,2,5)=$S($D(^(2)):^(2),1:"") S X=$P($P(Y(1440069.03,2,2),$C(59)_$P(Y(1440069.03,2,1),U,4)_":",2),$C(59),1)'="FINAL"
    9.5 = X ^DD(1440069.03,2,9.4) S Y(1440069.03,2,3)=X,Y(1440069.03,2,4)=X,X=DT S X=X,X1=X,X2=$P(Y(1440069.03,2,5),U,2),X="" D:X2 ^%DTC:X1 S X=X,Y(1440069.03,2,6)=X
    9.6 = X ^DD(1440069.03,2,9.5) S X=$P($P(Y(1440069.03,2,7),$C(59)_$P(Y(1440069.03,2,1),U,4)_":",2),$C(59),1)="FINAL",Y(1440069.03,2,8)=X S X=Y(1440069.03,2,9),X1=X,X2=$P(Y(1440069.03,2,5),U,2),X="" D:X2 ^%DTC:X1 S X=X
    9.7 = X ^DD(1440069.03,2,9.6) S X=$P($P(Y(1440069.03,2,7),$C(59)_$P(Y(1440069.03,2,1),U,4)_":",2),$C(59),1)="FINAL",Y(1440069.03,2,8)=X X ^DD(1440069.03,2,9.2):D3>0 S X="",X1=X,X2=$P(Y(1440069.03,2,5),U,2),X="" D:X2 ^%DTC:
    X1 S X=X
  • ALGORITHM:  TODAY-DATE OF OBLIGATION (ALWAYS 0 DECIMAL DIGITS)
  • LAST EDITED:  SEP 30, 1991
2.2 LAPSE CATEGORY COMPUTED

  • MUMPS CODE:  X ^DD(1440069.03,2.2,9.4) S X=$S(Y(1440069.03,2.2,2):Y(1440069.03,2.2,3),Y(1440069.03,2.2,4):Y(1440069.03,2.2,5),Y(1440069.03,2.2,6):Y(1440069.03,2.2,7),Y(1440069.03,2.2,8):X)
    9.2 = X $P(^DD(1440069.03,2,0),U,5,99) S Y(1440069.03,2.2,1)=X S X=Y(1440069.03,2.2,1)>120,Y(1440069.03,2.2,2)=X S X="120",Y(1440069.03,2.2,3)=X S X=Y(1440069.03,2.2,1)
    9.3 = X ^DD(1440069.03,2.2,9.2) S X=X>89,Y(1440069.03,2.2,4)=X S X="90",Y(1440069.03,2.2,5)=X S X=Y(1440069.03,2.2,1)>59,Y(1440069.03,2.2,6)=X S X="60"
    9.4 = X ^DD(1440069.03,2.2,9.3) S Y(1440069.03,2.2,7)=X S X=1,Y(1440069.03,2.2,8)=X S X=""
  • ALGORITHM:  $S(DAYS LAPSED>120:"120",DAYS LAPSED>89:"90",DAYS LAPSED>59:"60",1:"")
2.5 PAYMENT DATE 1;0 DATE Multiple #1440069.05 1440069.05
3 PAYMENT STATUS 0;4 SET
************************REQUIRED FIELD************************
  • 'P' FOR PARTIAL;
  • 'F' FOR FINAL;

  • LAST EDITED:  OCT 01, 1991
    DELETE AUTHORITY: D
4 SELECT COMPUTED

  • MUMPS CODE:  X ^DD(1440069.03,4,10.1) S D4=Y(1440069.03,4,84) S X=$J(X,0,2)
    9.2 = S Y(1440069.03,4,2)=$C(59)_$S($D(^DD(1440069.03,3,0)):$P(^(0),U,3),1:""),Y(1440069.03,4,5)=$C(59)_$S($D(^DD(1440069.03,3,0)):$P(^(0),U,3),1:"")
    9.3 = X ^DD(1440069.03,4,9.2) S Y(1440069.03,4,8)=$C(59)_$S($D(^DD(1440069.03,3,0)):$P(^(0),U,3),1:""),Y(1440069.03,4,80)=$S($D(D0):D0,1:""),Y(1440069.03,4,81)=$S($D(D1):D1,1:"")
    9.4 = X ^DD(1440069.03,4,9.3) S Y(1440069.03,4,82)=$S($D(D2):D2,1:""),Y(1440069.03,4,83)=$S($D(D3):D3,1:""),Y(1440069.03,4,84)=$S($D(D4):D4,1:"")
    9.5 = X ^DD(1440069.03,4,9.4) S Y(1440069.03,4,1)=$S($D(^AZCM(1440069,D0,1,D1,1,D2,1,D3,0)):^(0),1:"")
    9.6 = X ^DD(1440069.03,4,9.5) S X=$P($P(Y(1440069.03,4,2),$C(59)_$P(Y(1440069.03,4,1),U,4)_":",2),$C(59),1)="PARTIAL",Y(1440069.03,4,3)=X S X=$P(Y(1440069.03,4,1),U,2)
    9.7 = X ^DD(1440069.03,4,9.6) S Y(1440069.03,4,4)=X S X=$P($P(Y(1440069.03,4,5),$C(59)_$P(Y(1440069.03,4,1),U,4)_":",2),$C(59),1)="",Y(1440069.03,4,6)=X
    9.8 = X ^DD(1440069.03,4,9.7) S X=$P(Y(1440069.03,4,1),U,2),Y(1440069.03,4,7)=X S X=$P($P(Y(1440069.03,4,8),$C(59)_$P(Y(1440069.03,4,1),U,4)_":",2),$C(59),1)
    9.9 = X ^DD(1440069.03,4,9.8) S X=X="FINAL",Y(1440069.03,4,9)=X,Y(1440069.03,4,10)=X,Y(1440069.03,4,105)=""
    10 = X ^DD(1440069.03,4,9.9) X "F D4=0:0 S D4=$N(^AZCM(1440069,D0,1,D1,1,D2,1,D3,1,D4)) Q:D4'>0  S Y(1440069.03,4,105)=Y(1440069.03,4,105)+$S($D(^(D4,0)):$P(^(0),U,2),1:"""")" S D(4)=D4
    10.1 = X ^DD(1440069.03,4,10) S X=Y(1440069.03,4,105),X=$S(Y(1440069.03,4,3):Y(1440069.03,4,4),Y(1440069.03,4,6):Y(1440069.03,4,7),Y(1440069.03,4,9):X) S D0=Y(1440069.03,4,80) S D1=Y(1440069.03,4,81) S D2=Y(1440069.03,4,82
    ) S D3=Y(1440069.03,4,83)
  • ALGORITHM:  $S(#3="PARTIAL":#1,#3="":#1,#3="FINAL":TOTAL(PAYMENT DATE:#1)) (ALWAYS 2 DECIMAL DIGITS)
  • LAST EDITED:  SEP 23, 1990
    SOURCE OF DATA:X ^DD(1440069.03,4,9.9) X "F D4=0:0 S D4=$N(^AZCM(1440069,D0,1,D1,1,D2,1,D3,1,D4)) Q:D4'>0  S Y(1440069.03,4,105)=Y(1440069.03,4,105)+$S($D(^(D4,0)):$P(^(0),U,2),1:"""")" S D(4)=D4
5 TOTAL PAYMENTS COMPUTED

  • MUMPS CODE:  X ^DD(1440069.03,5,9.4) S X=Y(1440069.03,5,105) S D0=Y(1440069.03,5,80) S D1=Y(1440069.03,5,81) S D2=Y(1440069.03,5,82) S D3=Y(1440069.03,5,83) S D4=Y(1440069.03,5,84) S X=$J(X,0,2)
    9.2 = S Y(1440069.03,5,80)=$S($D(D0):D0,1:""),Y(1440069.03,5,81)=$S($D(D1):D1,1:""),Y(1440069.03,5,82)=$S($D(D2):D2,1:""),Y(1440069.03,5,83)=$S($D(D3):D3,1:"")
    9.3 = X ^DD(1440069.03,5,9.2) S Y(1440069.03,5,84)=$S($D(D4):D4,1:""),Y(1440069.03,5,105)=""
    9.4 = X ^DD(1440069.03,5,9.3) X "F D4=0:0 S D4=$N(^AZCM(1440069,D0,1,D1,1,D2,1,D3,1,D4)) Q:D4'>0  S Y(1440069.03,5,105)=Y(1440069.03,5,105)+$S($D(^(D4,0)):$P(^(0),U,2),1:"""")" S D(4)=D4
  • ALGORITHM:  TOTAL(PAYMENT DATE:AMT PAID) (ALWAYS 2 DECIMAL DIGITS)
6 VARIANCE $ COMPUTED

  • MUMPS CODE:  X $P(^DD(1440069.03,5,0),U,5,99) S Y(1440069.03,6,1)=X S Y(1440069.03,6,2)=$S($D(^AZCM(1440069,D0,1,D1,1,D2,1,D3,0)):^(0),1:"") S X=Y(1440069.03,6,1)-$P(Y(1440069.03,6,2),U,2) S X=$J(X,0,2)
  • ALGORITHM:  TOTAL PAYMENTS-AMOUNT OBLIGATED (ALWAYS 2 DECIMAL DIGITS)
7 VARIANCE % COMPUTED

  • MUMPS CODE:  X ^DD(1440069.03,7,9.2) S X=X*100 S X=$J(X,0,2)
    9.2 = X $P(^DD(1440069.03,6,0),U,5,99) S Y(1440069.03,7,1)=X S Y(1440069.03,7,2)=$S($D(^AZCM(1440069,D0,1,D1,1,D2,1,D3,0)):^(0),1:"") S X=Y(1440069.03,7,1),X=$S($P(Y(1440069.03,7,2),U,2):X/$P(Y(1440069.03,7,2),U,2),1:"****
    ***")
  • ALGORITHM:  (VARIANCE $/AMOUNT OBLIGATED)*100 (ALWAYS 2 DECIMAL DIGITS)
  • LAST EDITED:  SEP 24, 1991
9 OTC TRIGGER AMOUNT 2;4 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999)!(X<0) X
  • LAST EDITED:  SEP 25, 1991
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999, 2 Decimal Digits
  • NOTES:  TRIGGERED by the OTC TAG field of the DOCUMENT NUMBER sub-field of the OBJECT CLASS sub-field of the CAN NUMBER sub-field of the SERVICE UNIT FY-92 COMMITMENT REGISTER File
10 ADDITIONAL INFORMATION 2;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>100!($L(X)<1) X
  • LAST EDITED:  SEP 26, 1991
  • HELP-PROMPT:  Answer must be 1-100 characters in length.
11 LAST PAYMENT DATE COMPUTED DATE

  • MUMPS CODE:  X ^DD(1440069.03,11,9.4) S X=Y(1440069.03,11,105) S D0=Y(1440069.03,11,80) S D1=Y(1440069.03,11,81) S D2=Y(1440069.03,11,82) S D3=Y(1440069.03,11,83) S D4=Y(1440069.03,11,84)
    9.2 = S Y(1440069.03,11,80)=$S($D(D0):D0,1:""),Y(1440069.03,11,81)=$S($D(D1):D1,1:""),Y(1440069.03,11,82)=$S($D(D2):D2,1:""),Y(1440069.03,11,83)=$S($D(D3):D3,1:"")
    9.3 = X ^DD(1440069.03,11,9.2) S Y(1440069.03,11,84)=$S($D(D4):D4,1:""),Y(1440069.03,11,105)=""
    9.4 = X ^DD(1440069.03,11,9.3) X "F D4=0:0 S D4=$N(^AZCM(1440069,D0,1,D1,1,D2,1,D3,1,D4)) Q:D4'>0  S Y=$S($D(^(D4,0)):$P(^(0),U,1),1:"""") S:Y'?."" "" Y(1440069.03,11,105)=Y" S D(4)=D4
  • ALGORITHM:  LAST(PAYMENT DATE)
12 PAYMENT DAYS LAPSED COMPUTED

  • MUMPS CODE:  X $P(^DD(1440069.03,11,0),U,5,99) S Y(1440069.03,12,1)=X S Y(1440069.03,12,2)=$S($D(^AZCM(1440069,D0,1,D1,1,D2,1,D3,2)):^(2),1:"") S X=Y(1440069.03,12,1),X1=X,X2=$P(Y(1440069.03,12,2),U,2),X="" D:X2 ^%DTC:X1 S X=$J(X,0,0
    )
  • ALGORITHM:  LAST PAYMENT DATE-DATE OF OBLIGATION (ALWAYS 0 DECIMAL DIGITS)
Info |  Details |  All