ECX325CV.m

ECX325CV ;ALB/JAP  Patch ECX*3*25 Post Install Conversion ;May 21, 1999

 ;;3.0;DSS EXTRACTS;**25**;Dec 22, 1997

 ;

 N ECX,NODE,DATE,CASE,NON,TYPE,OPTIME,TIME,ECNO,A1,A2

 ;find every record in file #727.811 for fy1999

 S ECX=0

 F  S ECX=$O(^ECX(727.811,ECX)) Q:'ECX  S NODE=^ECX(727.811,ECX,0) I +$P(NODE,U,2)>199809 D

 .S CASE=+$P(NODE,U,10),TYPE=$P(NODE,U,17),NON=$P(NODE,U,32)

 .I NON]"" D

 ..S ECNO=$G(^SRF(CASE,"NON"))

 ..S A1=$P(ECNO,U,5),A2=$P(ECNO,U,4),TIME="##" D:(A1&A2) TIME S OPTIME=TIME

 ..I TYPE="P" S $P(^ECX(727.811,ECX,0),U,21)=OPTIME

 ..I TYPE'="P" S $P(^ECX(727.811,ECX,0),U,21)=""

 Q

 ;

TIME ; given date/time get increment

 ;A1=later, A2=earlier, TIME=difference

 S TIME=$TR($J($$FMDIFF^XLFDT(A1,A2,2)/900,6,0)," ") I TIME<0 S TIME="###"

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ECX325CV   780     printed  Apr 09, 2024@20:56:55                                                                                                                                                                                                     Page 2

ECX325CV  ;ALB/JAP  Patch ECX*3*25 Post Install Conversion ;May 21, 1999

 +1       ;;3.0;DSS EXTRACTS;**25**;Dec 22, 1997

 +2       ;

 +3        NEW ECX,NODE,DATE,CASE,NON,TYPE,OPTIME,TIME,ECNO,A1,A2

 +4       ;find every record in file #727.811 for fy1999

 +5        SET ECX=0

 +6        FOR 

               SET ECX=$ORDER(^ECX(727.811,ECX))

               if 'ECX

                   QUIT 

               SET NODE=^ECX(727.811,ECX,0)

               IF +$PIECE(NODE,U,2)>199809

                   Begin DoDot:1

 +7                    SET CASE=+$PIECE(NODE,U,10)

                       SET TYPE=$PIECE(NODE,U,17)

                       SET NON=$PIECE(NODE,U,32)

 +8                    IF NON]""

                           Begin DoDot:2

 +9                            SET ECNO=$GET(^SRF(CASE,"NON"))

 +10                           SET A1=$PIECE(ECNO,U,5)

                               SET A2=$PIECE(ECNO,U,4)

                               SET TIME="##"

                               if (A1&A2)

                                   DO TIME

                               SET OPTIME=TIME

 +11                           IF TYPE="P"

                                   SET $PIECE(^ECX(727.811,ECX,0),U,21)=OPTIME

 +12                           IF TYPE'="P"

                                   SET $PIECE(^ECX(727.811,ECX,0),U,21)=""

                           End DoDot:2

                   End DoDot:1

 +13       QUIT 

 +14      ;

TIME      ; given date/time get increment

 +1       ;A1=later, A2=earlier, TIME=difference

 +2        SET TIME=$TRANSLATE($JUSTIFY($$FMDIFF^XLFDT(A1,A2,2)/900,6,0)," ")

           IF TIME<0

               SET TIME="###"

 +3        QUIT