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

ADEMNG6.m

Go to the documentation of this file.
  1. ADEMNG6 ; IHS/HQT/MJL - DENTAL FOLLOWUP MGT PT 4 ;06:52 PM [ 03/24/1999 9:04 AM ]
  1. ;;6.0;ADE;;APRIL 1999
  1. I 'Y G END
  1. ZTM ;------->CREATE ENTRY IN ADEFOL
  1. I ADENEWM D NEWVS
  1. ;------->STUFF FIELDS
  1. K %DT,DIE,DA,DR D STUFA
  1. END K DIC,ADEMDFN,ADEMDAT,ADEMPROD,ADEPRI,DIE,DA
  1. Q
  1. ;
  1. NEWVS S DIC="^ADEFOL(",DIC(0)="LZ",X=ADEPAT,DIC("DR")="1///`"_ADESUB
  1. K DD,DO D FILE^DICN S ADEMDFN=$P(Y,U)
  1. Q
  1. STUFA S DA=ADEMDFN,DR="2///"_ADEMDAT_";6///`"_ADEPROD_";4///"_ADEPRI_";3///"_ADEMACT,DIE="^ADEFOL("
  1. D ^DIE
  1. ;NOTE - HAD TO INSERT 'K %DT' IN THE INPUT XFORM OF FIELD 2 FOR THE
  1. ;ABOVE CALL TO DIE TO WORK!