ADEQUE.m

ADEQUE ; IHS/HQT/MJL  - QUE FILE WRITES TO ADEPOST ;  [ 03/24/1999   9:04 AM ]

 ;;6.0;ADE;;APRIL 1999

 N ADEDQ1

 I '$D(^ADEUTL("ADEDQUE")) S ^ADEPOST(0)=0

 ;^ADEPOST and ^ADEUTL are transient non-Fileman working globals.

 S (^ADEPOST(0),ADEDQ1)=^ADEPOST(0)+1

 K ^ADEPOST(ADEDQ1)

 S ^ADEPOST(ADEDQ1)=1

 S ^ADEPOST(ADEDQ1)=1_U_ADENEWVS_U_ADEPAT_U_$S($D(ADEDFN):ADEDFN,1:"")_U_ADELOED_U_ADEPVNMD_U_ADENOTE_U_ADERDNMD_U_ADEVDATE_U_ADECON_U_ADEDIR_U_ADETCH

 S ADEJ=0 F J=0:0 S ADEJ=$O(ADEV(ADEJ)) Q:ADEJ=""  S ^ADEPOST(ADEDQ1,ADEJ)=ADEV(ADEJ)

 S $P(^ADEPOST(ADEDQ1),U)=0

 K ADEDQ1

 Q

ADEQUE    ; IHS/HQT/MJL  - QUE FILE WRITES TO ADEPOST ;  [ 03/24/1999   9:04 AM ]

 +1       ;;6.0;ADE;;APRIL 1999

 +2        NEW ADEDQ1

 +3        IF '$DATA(^ADEUTL("ADEDQUE"))

               SET ^ADEPOST(0)=0

 +4       ;^ADEPOST and ^ADEUTL are transient non-Fileman working globals.

 +5        SET (^ADEPOST(0),ADEDQ1)=^ADEPOST(0)+1

 +6        KILL ^ADEPOST(ADEDQ1)

 +7        SET ^ADEPOST(ADEDQ1)=1

 +8        SET ^ADEPOST(ADEDQ1)=1_U_ADENEWVS_U_ADEPAT_U_$SELECT($DATA(ADEDFN):ADEDFN,1:"")_U_ADELOED_U_ADEPVNMD_U_ADENOTE_U_ADERDNMD_U_ADEVDATE_U_ADECON_U_ADEDIR_U_ADETCH

 +9        SET ADEJ=0

           FOR J=0:0

               SET ADEJ=$ORDER(ADEV(ADEJ))

               IF ADEJ=""

                   QUIT 

               SET ^ADEPOST(ADEDQ1,ADEJ)=ADEV(ADEJ)

 +10       SET $PIECE(^ADEPOST(ADEDQ1),U)=0

 +11       KILL ADEDQ1

 +12       QUIT