- 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 Feb 18, 2025@23:05:02 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