OOPS2P26 ;MNT/RRA FILE UPDATE TO 2263.6 ;04/24/08
;;2.0;ASISTS;**26**;Jun 03, 2002;Build 4
;
Q
ADD ;
N OOPSCODE,OOPSREG,OOPSNAME,OOPSCNT1,OOPSNEW,OOPSSTAT,OOPSVHO,OOPSDNM1,DINUM
D MES^XPDUTL(" ")
D BMES^XPDUTL("Adding new CHARGEBACK code to ASISTS OWCP CHARGEBACK CODE FILE (#2263.6)...")
D MES^XPDUTL(" ")
S OOPSDNM1=$O(^OOPS(2263.6,9999),-1)
F OOPSCNT1=1:1 S OOPSNEW=$P($T(NEW+OOPSCNT1),";;",2) Q:OOPSNEW="QUIT" D
.S OOPSNAME=$P(OOPSNEW,U,1),OOPSCODE=$P(OOPSNEW,U,2),OOPSSTAT=$P(OOPSNEW,U,3),OOPSREG=$P(OOPSNEW,U,4),OOPSVHO=$P(OOPSNEW,U,5)
.S X=OOPSCODE D FILPROC
D KILL1
Q
NEW ;
;;Texas Valley Coastal Bend^4303^740^17^VHA
;;QUIT
FILPROC ;
I $D(^OOPS(2263.6,"B",OOPSCODE)) D
.D MES^XPDUTL(" ")
.D BMES^XPDUTL(" Your site has "_OOPSCODE_" in ASISTS OWCP CHARGEBACK CODE FILE 2263.6")
I '$D(^OOPS(2263.6,"B",OOPSCODE)) D
.S OOPSDNM1=OOPSDNM1+1,DINUM=OOPSDNM1,DIC(0)="L",DLAYGO=2263.6,DIC="^OOPS(2263.6,"
.S DIC("DR")=".01////^S X=OOPSCODE;1///^S X=OOPSNAME;2///^S X=OOPSSTAT;3///^S X=OOPSREG;4///^S X=OOPSVHO"
.D FILE^DICN
.I +Y>0 D
..D MES^XPDUTL(" ")
..D BMES^XPDUTL(OOPSCODE_" ...successfully added.")
.I Y=-1 D
..D MES^XPDUTL(" ")
..D BMES^XPDUTL("ERROR when attempting to add "_OOPSCODE)
.K Y
Q
KILL1 ;
K DIC("DR"),DLAYGO,DIC,DIC(0),X
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HOOPS2P26 1317 printed Dec 13, 2024@01:38:39 Page 2
OOPS2P26 ;MNT/RRA FILE UPDATE TO 2263.6 ;04/24/08
+1 ;;2.0;ASISTS;**26**;Jun 03, 2002;Build 4
+2 ;
+3 QUIT
ADD ;
+1 NEW OOPSCODE,OOPSREG,OOPSNAME,OOPSCNT1,OOPSNEW,OOPSSTAT,OOPSVHO,OOPSDNM1,DINUM
+2 DO MES^XPDUTL(" ")
+3 DO BMES^XPDUTL("Adding new CHARGEBACK code to ASISTS OWCP CHARGEBACK CODE FILE (#2263.6)...")
+4 DO MES^XPDUTL(" ")
+5 SET OOPSDNM1=$ORDER(^OOPS(2263.6,9999),-1)
+6 FOR OOPSCNT1=1:1
SET OOPSNEW=$PIECE($TEXT(NEW+OOPSCNT1),";;",2)
if OOPSNEW="QUIT"
QUIT
Begin DoDot:1
+7 SET OOPSNAME=$PIECE(OOPSNEW,U,1)
SET OOPSCODE=$PIECE(OOPSNEW,U,2)
SET OOPSSTAT=$PIECE(OOPSNEW,U,3)
SET OOPSREG=$PIECE(OOPSNEW,U,4)
SET OOPSVHO=$PIECE(OOPSNEW,U,5)
+8 SET X=OOPSCODE
DO FILPROC
End DoDot:1
+9 DO KILL1
+10 QUIT
NEW ;
+1 ;;Texas Valley Coastal Bend^4303^740^17^VHA
+2 ;;QUIT
FILPROC ;
+1 IF $DATA(^OOPS(2263.6,"B",OOPSCODE))
Begin DoDot:1
+2 DO MES^XPDUTL(" ")
+3 DO BMES^XPDUTL(" Your site has "_OOPSCODE_" in ASISTS OWCP CHARGEBACK CODE FILE 2263.6")
End DoDot:1
+4 IF '$DATA(^OOPS(2263.6,"B",OOPSCODE))
Begin DoDot:1
+5 SET OOPSDNM1=OOPSDNM1+1
SET DINUM=OOPSDNM1
SET DIC(0)="L"
SET DLAYGO=2263.6
SET DIC="^OOPS(2263.6,"
+6 SET DIC("DR")=".01////^S X=OOPSCODE;1///^S X=OOPSNAME;2///^S X=OOPSSTAT;3///^S X=OOPSREG;4///^S X=OOPSVHO"
+7 DO FILE^DICN
+8 IF +Y>0
Begin DoDot:2
+9 DO MES^XPDUTL(" ")
+10 DO BMES^XPDUTL(OOPSCODE_" ...successfully added.")
End DoDot:2
+11 IF Y=-1
Begin DoDot:2
+12 DO MES^XPDUTL(" ")
+13 DO BMES^XPDUTL("ERROR when attempting to add "_OOPSCODE)
End DoDot:2
+14 KILL Y
End DoDot:1
+15 QUIT
KILL1 ;
+1 KILL DIC("DR"),DLAYGO,DIC,DIC(0),X
+2 QUIT
