- 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!