AZCR101.m

AZDTLD ;LOADS DATE IN FILEMAN FORMAT TO ^AZCR(1400101), NODE 3  RRD 10/24/89 [ 11/02/89  12:59 PM ] ; 10/4/90  11:19 AM

 K X,Y,%DT

HDR D ^AUCLS W !,"ENTER PROJECTION DATE - IN DATE FORMAT:"

START R !!,"PROJECTION DATE: ",X:DTIME  G:X="" START S %DT="E" D ^%DT G:X["?" START S X=Y K:2910930<X!(2871001>X) X Q:'$D(X)

 S ACT=0 F I=1:1 S ACT=$O(^AZCR(1400101,ACT)) G:+ACT<1 END  S NODE=0 F I=1:1 S NODE=$O(^AZCR(1400101,ACT,NODE))   S $P(^AZCR(1400101,ACT,3),"^",2)=Y W !,ACT Q

END W !!,"FINISHED" F I=1:1:60 W "*"

 Q

AZDTLD    ;LOADS DATE IN FILEMAN FORMAT TO ^AZCR(1400101), NODE 3  RRD 10/24/89 [ 11/02/89  12:59 PM ] ; 10/4/90  11:19 AM

 +1        KILL X,Y,%DT

HDR        DO ^AUCLS

           WRITE !,"ENTER PROJECTION DATE - IN DATE FORMAT:"

START      READ !!,"PROJECTION DATE: ",X:DTIME

           IF X=""

               GOTO START

           SET %DT="E"

           DO ^%DT

           IF X["?"

               GOTO START

           SET X=Y

           IF 2910930<X!(2871001>X)

               KILL X

           IF '$DATA(X)

               QUIT 

 +1        SET ACT=0

           FOR I=1:1

               SET ACT=$ORDER(^AZCR(1400101,ACT))

               IF +ACT<1

                   GOTO END

               SET NODE=0

               FOR I=1:1

                   SET NODE=$ORDER(^AZCR(1400101,ACT,NODE))

                   SET $PIECE(^AZCR(1400101,ACT,3),"^",2)=Y

                   WRITE !,ACT

                   QUIT 

END        WRITE !!,"FINISHED"

           FOR I=1:1:60

               WRITE "*"

 +1        QUIT