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 ---[H[J[2J[HDGA4003 2094 printed Sep 23, 2025@20:16:52 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
