PSXCSLG1 ;BIR/JMB-Adds & Updates Cost Task Log-CONTINUED ;[ 04/08/97 2:06 PM ]
;;2.0;CMOP;;11 Apr 97
QUE ;Adds task to log
Q:'$D(PSXBDT)!('$D(PSXEDT))!('$D(DUZ))!('$D(PSXJOB))!('$D(ZTSK))
S:'$D(^PSX(554,1,2,0)) ^PSX(554,1,2,0)="^554.02DA^^"
S X=$E($$HTFM^XLFDT($H),1,14),DINUM=PSXSTART
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:"")
S DLAYGO=554.02,DIC(0)="LMZ",DA(1)=1,DIC="^PSX(554,1,2,"
K DD,DO D ^DIC K DA,DIC,DINUM,DLAYGO,X
Q
RUN S DIE="^PSX(554,1,2,",DA(1)=1,DA=PSXSTART,DR="1///1" D ^DIE K DA,DIE,DR
Q
END S PSXJOBE=$E($$HTFM^XLFDT($H),1,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
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSXCSLG1 745 printed Oct 16, 2024@17:44:40 Page 2
PSXCSLG1 ;BIR/JMB-Adds & Updates Cost Task Log-CONTINUED ;[ 04/08/97 2:06 PM ]
+1 ;;2.0;CMOP;;11 Apr 97
QUE ;Adds task to log
+1 if '$DATA(PSXBDT)!('$DATA(PSXEDT))!('$DATA(DUZ))!('$DATA(PSXJOB))!('$DATA(ZTSK))
QUIT
+2 if '$DATA(^PSX(554,1,2,0))
SET ^PSX(554,1,2,0)="^554.02DA^^"
+3 SET X=$EXTRACT($$HTFM^XLFDT($HOROLOG),1,14)
SET DINUM=PSXSTART
+4 SET DIC("DR")="1///0;2///^S X=PSXBDT;3///^S X=PSXEDT;4///^S X=DUZ;5///^S X=PSXJOB"_$SELECT($DATA(ZTSK):";7///^S X=ZTSK",1:"")
+5 SET DLAYGO=554.02
SET DIC(0)="LMZ"
SET DA(1)=1
SET DIC="^PSX(554,1,2,"
+6 KILL DD,DO
DO ^DIC
KILL DA,DIC,DINUM,DLAYGO,X
+7 QUIT
RUN SET DIE="^PSX(554,1,2,"
SET DA(1)=1
SET DA=PSXSTART
SET DR="1///1"
DO ^DIE
KILL DA,DIE,DR
+1 QUIT
END SET PSXJOBE=$EXTRACT($$HTFM^XLFDT($HOROLOG),1,14)
+1 SET DIE="^PSX(554,1,2,"
SET DA(1)=1
SET DA=PSXSTART
SET DR="1///2;6///^S X=PSXJOBE"
DO ^DIE
KILL DA,DIE,DR,PSXJOBE
+2 QUIT
