ASUAUTL1.m

ASUAUTL1 ;DSD/DFM - DATE UTILITY FUNCTIONS;  [ 04/15/98  2:56 PM ]

 ;;3.0;SAMS;**1**;AUG 20, 1993

DAYTIM ;EP; - SET DATE AND TIME

 D DATE

 D TIME

 I $D(ASUTRNS) S ASUTRNS(ASUTRNS,"DATE ENTERED")=ASUK("DATE","FM")_"."_ASUK("TIME","F")_"."_$J

 Q

DATE ;EP; - SET ASUK("DATE")

 N X

 I ($D(ASUK("DATE"))#10)=0 D

 .D NOW^%DTC S Y=% X ^DD("DD")

 .D SETDT

 Q

SETDT ;

 S DT=X,DN=X

 S ASUK("DATE","FM")=X,ASUK("DATE")=$P(Y,"@",1),ASUK("DATE","TIME")=Y

 S ASUK("DATE","ENXYR")=$E(X,1,3)+1_"1231"

 S ASUK("DATE","YEAR")=$P(ASUK("DATE"),",",2),ASUK("DATE","YMD")=$E(X,2,7)

 S ASUK("DATE","YR")=$E(X,2,3),ASUK("DATE","MO")=$E(X,4,5),ASUK("DATE","DA")=$E(X,6,7)

 S ASUK("DATE","CFYEDT")=$E(X,1,3)

 S ASUK("DATE","MONTH")=$P(ASUK("DATE")," ")

 S ASUK("DATE","YRMO")=$E(X,2,5)

 S ASUK("DATE","FYMO")=ASUK("DATE","YRMO")

 S ASUK("DATE","CFY")=ASUK("DATE","YR")

 I +ASUK("DATE","MO")>9 D

 .S ASUK("DATE","CFYEDT")=ASUK("DATE","CFYEDT")+1

 .S ASUK("DATE","CFY")=$E(ASUK("DATE","CFYEDT"),2,3)

 .S ASUK("DATE","FYMO")=ASUK("DATE","CFY")_ASUK("DATE","MO")

 S ASUK("DATE","PFYBDT")=ASUK("DATE","CFYEDT")-1

 S ASUK("DATE","PFY")=$E(ASUK("DATE","PFYBDT"),2,3)

 S ASUK("DATE","CFYEDT")=ASUK("DATE","CFYEDT")_"1231"

 S ASUK("DATE","PFYBDT")=ASUK("DATE","PFYBDT")_"0131"

 Q:'$D(%H)

 S ASUK("DATE","H")=$P(%H,",",1),ASUK("TIME","H")=$P(%H,",",2)

 S ASUK("TIME")=$P(Y,"@",2)

 Q

ASKDATE ;EP - ASK FOR A DATE AND SET ASUK("DATE") ARRAY

 S %DT="AS" D ^%DT S X=Y

 X ^DD("DD")

 D SETDT,TIME

 Q

TIME ;EP; - SET ASUK("TIME")

 N X

 S %H=$H D YX^%DTC

 S ASUK("TIME")=$P(Y,"@",2),ASUK("TIME","H")=$P(%H,",",2)

 S ASUK("TIME","F")=$P(ASUK("TIME"),":")_$P(ASUK("TIME"),":",2)_$P(ASUK("TIME"),":",3)

 I ($D(ASUK("DATE"))#10) D

 .S ASUK("DATE","TIME")=ASUK("DATE")_"@"_ASUK("TIME")

 E  D

 .S ASUK("DATE","TIME")=Y

 Q

GETRUN ;EP ; - GET RUN FISCAL YEAR AND MONTH

 I ($D(ASUK("DATE"))#10)'=1 D DATE

 S DIR(0)="D" D ^DIR K DIR

 Q:$D(DTOUT)  Q:$D(DUOUT)

 S ASUK("DATE","RUNMY")=$E(Y,4,5)_$E(Y,2,3)

 W !

 S ASUK("DATE","RUNMO")=$E(ASUK("DATE","RUNMY"),1,2)

 S ASUK("DATE","RUNYR")=$E(ASUK("DATE","RUNMY"),3,4)

 I $E(ASUK("DATE","RUNMO"),1)=0&($E(ASUK("DATE","RUNMO"),2,2))>0 D

 .S ASUK("DATE","RUNMO")=$E(ASUK("DATE","RUNMO"),2,2)

 Q

SETQTR ;PEP ;SET QUARTER - INPUT DT AND ASUK("DATE","RUNMO") OUTPUT ASUK("DATE","RUNQTR") IN YEARQT FORMAT

 I ($D(ASUK("DATE"))#10)'=1 D DATE

 I '$D(ASUK("DATE","RUNMO")) S DIR("A")="Enter Month & Fiscal Year for Quarterly Reports (MMFY)" D GETRUN

 Q:$D(DTOUT)  Q:$D(DUOUT)

 S ASUVYR=$S(ASUK("DATE","RUNYR")<60:20,1:19)_ASUK("DATE","RUNYR")

 S ASUK("DATE","RUNQTR")=ASUVYR_$S(ASUK("DATE","RUNMO")<4:"02",ASUK("DATE","RUNMO")<7:"03",ASUK("DATE","RUNMO")>9:"01",1:"04")

 K ASUVYR

 Q

ASUAUTL1  ;DSD/DFM - DATE UTILITY FUNCTIONS;  [ 04/15/98  2:56 PM ]

 +1       ;;3.0;SAMS;**1**;AUG 20, 1993

DAYTIM    ;EP; - SET DATE AND TIME

 +1        DO DATE

 +2        DO TIME

 +3        IF $DATA(ASUTRNS)

               SET ASUTRNS(ASUTRNS,"DATE ENTERED")=ASUK("DATE","FM")_"."_ASUK("TIME","F")_"."_$JOB

 +4        QUIT 

DATE      ;EP; - SET ASUK("DATE")

 +1        NEW X

 +2        IF ($DATA(ASUK("DATE"))#10)=0

               Begin DoDot:1

 +3                DO NOW^%DTC

                   SET Y=%

                   XECUTE ^DD("DD")

 +4                DO SETDT

               End DoDot:1

 +5        QUIT 

SETDT     ;

 +1        SET DT=X

           SET DN=X

 +2        SET ASUK("DATE","FM")=X

           SET ASUK("DATE")=$PIECE(Y,"@",1)

           SET ASUK("DATE","TIME")=Y

 +3        SET ASUK("DATE","ENXYR")=$EXTRACT(X,1,3)+1_"1231"

 +4        SET ASUK("DATE","YEAR")=$PIECE(ASUK("DATE"),",",2)

           SET ASUK("DATE","YMD")=$EXTRACT(X,2,7)

 +5        SET ASUK("DATE","YR")=$EXTRACT(X,2,3)

           SET ASUK("DATE","MO")=$EXTRACT(X,4,5)

           SET ASUK("DATE","DA")=$EXTRACT(X,6,7)

 +6        SET ASUK("DATE","CFYEDT")=$EXTRACT(X,1,3)

 +7        SET ASUK("DATE","MONTH")=$PIECE(ASUK("DATE")," ")

 +8        SET ASUK("DATE","YRMO")=$EXTRACT(X,2,5)

 +9        SET ASUK("DATE","FYMO")=ASUK("DATE","YRMO")

 +10       SET ASUK("DATE","CFY")=ASUK("DATE","YR")

 +11       IF +ASUK("DATE","MO")>9

               Begin DoDot:1

 +12               SET ASUK("DATE","CFYEDT")=ASUK("DATE","CFYEDT")+1

 +13               SET ASUK("DATE","CFY")=$EXTRACT(ASUK("DATE","CFYEDT"),2,3)

 +14               SET ASUK("DATE","FYMO")=ASUK("DATE","CFY")_ASUK("DATE","MO")

               End DoDot:1

 +15       SET ASUK("DATE","PFYBDT")=ASUK("DATE","CFYEDT")-1

 +16       SET ASUK("DATE","PFY")=$EXTRACT(ASUK("DATE","PFYBDT"),2,3)

 +17       SET ASUK("DATE","CFYEDT")=ASUK("DATE","CFYEDT")_"1231"

 +18       SET ASUK("DATE","PFYBDT")=ASUK("DATE","PFYBDT")_"0131"

 +19       IF '$DATA(%H)

               QUIT 

 +20       SET ASUK("DATE","H")=$PIECE(%H,",",1)

           SET ASUK("TIME","H")=$PIECE(%H,",",2)

 +21       SET ASUK("TIME")=$PIECE(Y,"@",2)

 +22       QUIT 

ASKDATE   ;EP - ASK FOR A DATE AND SET ASUK("DATE") ARRAY

 +1        SET %DT="AS"

           DO ^%DT

           SET X=Y

 +2        XECUTE ^DD("DD")

 +3        DO SETDT

           DO TIME

 +4        QUIT 

TIME      ;EP; - SET ASUK("TIME")

 +1        NEW X

 +2        SET %H=$HOROLOG

           DO YX^%DTC

 +3        SET ASUK("TIME")=$PIECE(Y,"@",2)

           SET ASUK("TIME","H")=$PIECE(%H,",",2)

 +4        SET ASUK("TIME","F")=$PIECE(ASUK("TIME"),":")_$PIECE(ASUK("TIME"),":",2)_$PIECE(ASUK("TIME"),":",3)

 +5        IF ($DATA(ASUK("DATE"))#10)

               Begin DoDot:1

 +6                SET ASUK("DATE","TIME")=ASUK("DATE")_"@"_ASUK("TIME")

               End DoDot:1

 +7       IF '$TEST

               Begin DoDot:1

 +8                SET ASUK("DATE","TIME")=Y

               End DoDot:1

 +9        QUIT 

GETRUN    ;EP ; - GET RUN FISCAL YEAR AND MONTH

 +1        IF ($DATA(ASUK("DATE"))#10)'=1

               DO DATE

 +2        SET DIR(0)="D"

           DO ^DIR

           KILL DIR

 +3        IF $DATA(DTOUT)

               QUIT 

           IF $DATA(DUOUT)

               QUIT 

 +4        SET ASUK("DATE","RUNMY")=$EXTRACT(Y,4,5)_$EXTRACT(Y,2,3)

 +5        WRITE !

 +6        SET ASUK("DATE","RUNMO")=$EXTRACT(ASUK("DATE","RUNMY"),1,2)

 +7        SET ASUK("DATE","RUNYR")=$EXTRACT(ASUK("DATE","RUNMY"),3,4)

 +8        IF $EXTRACT(ASUK("DATE","RUNMO"),1)=0&($EXTRACT(ASUK("DATE","RUNMO"),2,2))>0

               Begin DoDot:1

 +9                SET ASUK("DATE","RUNMO")=$EXTRACT(ASUK("DATE","RUNMO"),2,2)

               End DoDot:1

 +10       QUIT 

SETQTR    ;PEP ;SET QUARTER - INPUT DT AND ASUK("DATE","RUNMO") OUTPUT ASUK("DATE","RUNQTR") IN YEARQT FORMAT

 +1        IF ($DATA(ASUK("DATE"))#10)'=1

               DO DATE

 +2        IF '$DATA(ASUK("DATE","RUNMO"))

               SET DIR("A")="Enter Month & Fiscal Year for Quarterly Reports (MMFY)"

               DO GETRUN

 +3        IF $DATA(DTOUT)

               QUIT 

           IF $DATA(DUOUT)

               QUIT 

 +4        SET ASUVYR=$SELECT(ASUK("DATE","RUNYR")<60:20,1:19)_ASUK("DATE","RUNYR")

 +5        SET ASUK("DATE","RUNQTR")=ASUVYR_$SELECT(ASUK("DATE","RUNMO")<4:"02",ASUK("DATE","RUNMO")<7:"03",ASUK("DATE","RUNMO")>9:"01",1:"04")

 +6        KILL ASUVYR

 +7        QUIT