PSXCSLG1.m

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 ---PSXCSLG1   745     printed  Apr 09, 2024@20:49:01                                                                                                                                                                                                     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