DGA4003.m

DGA4003 ;ALB/MRL - AMIS 420 MESSAGES FROM MAILMAN ;01 JAN 1988@2300

 ;;5.3;Registration;;Aug 13, 1993

 S XMSUB=DGH,XMDUZ=.5,XMY(DUZ)="" F I=1:1 S J=$P($T(OPEN+I),";;",2) Q:J="QUIT"  S DGL=I,DGTEXT(I,0)=J

 D MORE Q

PMES ;Pending Message

 S XMSUB=DGH,XMDUZ=.5,XMY(DUZ)="" F I=1:1 S J=$P($T(PEND+I),";;",2) Q:J="QUIT"  S DGL=I,DGTEXT(I,0)=J

MORE S XMTEXT="DGTEXT(",DGL=DGL+1,DGTEXT(DGL,0)="",DGL=DGL+1,DGTEXT(DGL,0)="Number of PENDING Dispositions found:  "_+DGP,DGL=DGL+1,DGTEXT(DGL,0)="Number of OPEN Dispositions found   :  "_+DGO D ^XMD K XMSUB,XMY,DGTEXT,XMDUZ,I,J,DGL Q

OPEN ;

 ;;I've accomplished a preliminary search of your database in preparation for

 ;;generation of the AMIS 401-420 series reports for the range shown above.  In

 ;;this search there were "open" dispositions found which caused the actual gen-

 ;;eration of the report to cease.  There were, possibly, some "pending" dispos-

 ;;itions found also.  Although these do not stop the report from generating every

 ;;effort should be made to properly disposition these registrations also.  A

 ;;listing of these open/pending dispositions should have printed for your use in

 ;;properly dispositioning them.  If you can't locate this list there is an option

 ;;available to regenerate this listing without generating the report.

 ;;QUIT

PEND ;

 ;;I didn't find any "open" dispositions in preparation for generation of the AMIS

 ;;401-420 series reports but I did find some "pending" dispositions.  Although

 ;;these do not stop the report from clearing you should make every effort to

 ;;properly disposition these registrations and then regenerate the report.  A

 ;;listing of these "pending" dispositions should have printed for your use in

 ;;properly dispositioning them.  If you can't locate this listing there is an

 ;;option available to regenerate it without regenerating the report itself.

 ;;QUIT

DEL ;Delete Existing 401-420 Data from ^DG(391.1

 F DGSEG=401:1:420 F DGDIV=0:0 S DGDIV=$O(^DG(391.1,DGSEG,"D",DGDIV)) Q:'DGDIV  K ^DG(391.1,DGSEG,"D",DGDIV,"MY",DGA,"A1")

 K DGSEG,DGDIV Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DGA4003   2094     printed  Feb 19, 2025@00:07:04                                                                                                                                                                                                     Page 2

DGA4003   ;ALB/MRL - AMIS 420 MESSAGES FROM MAILMAN ;01 JAN 1988@2300

 +1       ;;5.3;Registration;;Aug 13, 1993

 +2        SET XMSUB=DGH

           SET XMDUZ=.5

           SET XMY(DUZ)=""

           FOR I=1:1

               SET J=$PIECE($TEXT(OPEN+I),";;",2)

               if J="QUIT"

                   QUIT 

               SET DGL=I

               SET DGTEXT(I,0)=J

 +3        DO MORE

           QUIT 

PMES      ;Pending Message

 +1        SET XMSUB=DGH

           SET XMDUZ=.5

           SET XMY(DUZ)=""

           FOR I=1:1

               SET J=$PIECE($TEXT(PEND+I),";;",2)

               if J="QUIT"

                   QUIT 

               SET DGL=I

               SET DGTEXT(I,0)=J

MORE       SET XMTEXT="DGTEXT("

           SET DGL=DGL+1

           SET DGTEXT(DGL,0)=""

           SET DGL=DGL+1

           SET DGTEXT(DGL,0)="Number of PENDING Dispositions found:  "_+DGP

           SET DGL=DGL+1

           SET DGTEXT(DGL,0)="Number of OPEN Dispositions found   :  "_+DGO

           DO ^XMD

           KILL XMSUB,XMY,DGTEXT,XMDUZ,I,J,DGL

           QUIT 

OPEN      ;

 +1       ;;I've accomplished a preliminary search of your database in preparation for

 +2       ;;generation of the AMIS 401-420 series reports for the range shown above.  In

 +3       ;;this search there were "open" dispositions found which caused the actual gen-

 +4       ;;eration of the report to cease.  There were, possibly, some "pending" dispos-

 +5       ;;itions found also.  Although these do not stop the report from generating every

 +6       ;;effort should be made to properly disposition these registrations also.  A

 +7       ;;listing of these open/pending dispositions should have printed for your use in

 +8       ;;properly dispositioning them.  If you can't locate this list there is an option

 +9       ;;available to regenerate this listing without generating the report.

 +10      ;;QUIT

PEND      ;

 +1       ;;I didn't find any "open" dispositions in preparation for generation of the AMIS

 +2       ;;401-420 series reports but I did find some "pending" dispositions.  Although

 +3       ;;these do not stop the report from clearing you should make every effort to

 +4       ;;properly disposition these registrations and then regenerate the report.  A

 +5       ;;listing of these "pending" dispositions should have printed for your use in

 +6       ;;properly dispositioning them.  If you can't locate this listing there is an

 +7       ;;option available to regenerate it without regenerating the report itself.

 +8       ;;QUIT

DEL       ;Delete Existing 401-420 Data from ^DG(391.1

 +1        FOR DGSEG=401:1:420

               FOR DGDIV=0:0

                   SET DGDIV=$ORDER(^DG(391.1,DGSEG,"D",DGDIV))

                   if 'DGDIV

                       QUIT 

                   KILL ^DG(391.1,DGSEG,"D",DGDIV,"MY",DGA,"A1")

 +2        KILL DGSEG,DGDIV

           QUIT