| [613] | 1 | PSXCSLG1 ;BIR/JMB-Adds & Updates Cost Task Log-CONTINUED ;[ 04/08/97 2:06 PM ]
|
|---|
| 2 | ;;2.0;CMOP;;11 Apr 97
|
|---|
| 3 | QUE ;Adds task to log
|
|---|
| 4 | Q:'$D(PSXBDT)!('$D(PSXEDT))!('$D(DUZ))!('$D(PSXJOB))!('$D(ZTSK))
|
|---|
| 5 | S:'$D(^PSX(554,1,2,0)) ^PSX(554,1,2,0)="^554.02DA^^"
|
|---|
| 6 | S X=$E($$HTFM^XLFDT($H),1,14),DINUM=PSXSTART
|
|---|
| 7 | S DIC("DR")="1///0;2///^S X=PSXBDT;3///^S X=PSXEDT;4///^S X=DUZ;5///^S X=PSXJOB"_$S($D(ZTSK):";7///^S X=ZTSK",1:"")
|
|---|
| 8 | S DLAYGO=554.02,DIC(0)="LMZ",DA(1)=1,DIC="^PSX(554,1,2,"
|
|---|
| 9 | K DD,DO D ^DIC K DA,DIC,DINUM,DLAYGO,X
|
|---|
| 10 | Q
|
|---|
| 11 | RUN S DIE="^PSX(554,1,2,",DA(1)=1,DA=PSXSTART,DR="1///1" D ^DIE K DA,DIE,DR
|
|---|
| 12 | Q
|
|---|
| 13 | END S PSXJOBE=$E($$HTFM^XLFDT($H),1,14)
|
|---|
| 14 | S DIE="^PSX(554,1,2,",DA(1)=1,DA=PSXSTART,DR="1///2;6///^S X=PSXJOBE" D ^DIE K DA,DIE,DR,PSXJOBE
|
|---|
| 15 | Q
|
|---|
