- 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