ADEMNG6.m

ADEMNG6 ; IHS/HQT/MJL  - DENTAL FOLLOWUP MGT PT 4 ;06:52 PM  [ 03/24/1999   9:04 AM ]

 ;;6.0;ADE;;APRIL 1999

 I 'Y G END

ZTM ;------->CREATE ENTRY IN ADEFOL

 I ADENEWM D NEWVS

 ;------->STUFF FIELDS

 K %DT,DIE,DA,DR D STUFA

END K DIC,ADEMDFN,ADEMDAT,ADEMPROD,ADEPRI,DIE,DA

 Q

 ;

NEWVS S DIC="^ADEFOL(",DIC(0)="LZ",X=ADEPAT,DIC("DR")="1///`"_ADESUB

 K DD,DO D FILE^DICN S ADEMDFN=$P(Y,U)

 Q

STUFA S DA=ADEMDFN,DR="2///"_ADEMDAT_";6///`"_ADEPROD_";4///"_ADEPRI_";3///"_ADEMACT,DIE="^ADEFOL("

 D ^DIE

 ;NOTE - HAD TO INSERT 'K %DT' IN THE INPUT XFORM OF FIELD 2 FOR THE

 ;ABOVE CALL TO DIE TO WORK!

ADEMNG6   ; IHS/HQT/MJL  - DENTAL FOLLOWUP MGT PT 4 ;06:52 PM  [ 03/24/1999   9:04 AM ]

 +1       ;;6.0;ADE;;APRIL 1999

 +2        IF 'Y

               GOTO END

ZTM       ;------->CREATE ENTRY IN ADEFOL

 +1        IF ADENEWM

               DO NEWVS

 +2       ;------->STUFF FIELDS

 +3        KILL %DT,DIE,DA,DR

           DO STUFA

END        KILL DIC,ADEMDFN,ADEMDAT,ADEMPROD,ADEPRI,DIE,DA

 +1        QUIT 

 +2       ;

NEWVS      SET DIC="^ADEFOL("

           SET DIC(0)="LZ"

           SET X=ADEPAT

           SET DIC("DR")="1///`"_ADESUB

 +1        KILL DD,DO

           DO FILE^DICN

           SET ADEMDFN=$PIECE(Y,U)

 +2        QUIT 

STUFA      SET DA=ADEMDFN

           SET DR="2///"_ADEMDAT_";6///`"_ADEPROD_";4///"_ADEPRI_";3///"_ADEMACT

           SET DIE="^ADEFOL("

 +1        DO ^DIE

 +2       ;NOTE - HAD TO INSERT 'K %DT' IN THE INPUT XFORM OF FIELD 2 FOR THE

 +3       ;ABOVE CALL TO DIE TO WORK!