Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ADEQUE

ADEQUE.m

Go to the documentation of this file.
  1. ADEQUE ; IHS/HQT/MJL - QUE FILE WRITES TO ADEPOST ; [ 03/24/1999 9:04 AM ]
  1. ;;6.0;ADE;;APRIL 1999
  1. N ADEDQ1
  1. I '$D(^ADEUTL("ADEDQUE")) S ^ADEPOST(0)=0
  1. ;^ADEPOST and ^ADEUTL are transient non-Fileman working globals.
  1. S (^ADEPOST(0),ADEDQ1)=^ADEPOST(0)+1
  1. K ^ADEPOST(ADEDQ1)
  1. S ^ADEPOST(ADEDQ1)=1
  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
  1. S ADEJ=0 F J=0:0 S ADEJ=$O(ADEV(ADEJ)) Q:ADEJ="" S ^ADEPOST(ADEDQ1,ADEJ)=ADEV(ADEJ)
  1. S $P(^ADEPOST(ADEDQ1),U)=0
  1. K ADEDQ1
  1. Q