- IBY727PR ;EDE/JRA - Pre-Installation for IB patch 727 ; 10/12/17 2:12 pm
- ;;2.0;INTEGRATED BILLING;**727**;21-MAR-94;Build 34
- ;;Per VA Directive 6402, this routine should not be modified.
- ;
- ; delete all output formatter (O.F.) data elements included in build
- D DELOF
- Q
- ;
- INCLUDE(FILE,Y) ; function to determine if O.F. entry should be included in the build
- ; FILE=5,6,7 indicating file 364.x or FILE=8 indicating file 350.8 (IB ERROR)
- ; Y=ien to file
- NEW OK,LN,TAG,DATA
- S OK=0
- F LN=2:1 S TAG="ENT"_FILE_"+"_LN,DATA=$P($T(@TAG),";;",2) Q:DATA="" I $F(DATA,U_Y_U) S OK=1 Q
- Q OK
- ;
- ;Delete edited entries to insure clean install of new entries
- ;Delete obsolete entries.
- DELOF ; Delete included OF entries
- NEW FILE,DIK,LN,TAG,TAGLN,DATA,PCE,DA,Y
- F FILE=5:1:8 S DIK=$S(FILE=8:"^IBE(350.",1:"^IBA(364.")_FILE_"," D
- . F TAG="ENT"_FILE,"DEL"_FILE D
- .. F LN=2:1 S TAGLN=TAG_"+"_LN,DATA=$P($T(@TAGLN),";;",2) Q:DATA="" D
- ... F PCE=2:1 S DA=$P(DATA,U,PCE) Q:'DA D
- .... I FILE=8,$D(^IBE(350.8,DA,0)) D ^DIK
- .... Q:FILE=8
- .... I $D(^IBA("364."_FILE,DA,0)) D ^DIK
- Q
- ;
- ; Example for ENT5, ENT6, ENT7, ENT8, DEL5, DEL6, and DEL7:
- ;;^195^254^259^269^324^325^
- ; Note: Must have beginning and ending up-carat
- ;
- ;-----------------------------------------------------------------------
- ; 364.5 O.F. entries added:
- ;
- ;
- ENT5 ;O.F. entries in file 364.5 to be added
- ;
- ;;
- ;
- ;-----------------------------------------------------------------------
- ; 364.6 O.F. entries added:
- ;
- ;
- ENT6 ;O.F. entries in file 364.6 to be added
- ;
- ;;^2465^2466^
- ;
- ;2465 Procedure Modifier(3) (IB 837 TRANSMISSION)
- ;2466 Procedure Modifier(4) (IB 837 TRANSMISSION)
- ;
- ;-----------------------------------------------------------------------
- ; 364.7 O.F. entries added:
- ;
- ;
- ENT7 ; O.F. entries in file 364.7 to be added
- ;
- ;;^133^150^182^1015^
- ;
- ;133 N-GET FROM PREVIOUS EXTRACT (IB 837 TRANSMISSION)
- ;150 N-GET FROM PREVIOUS EXTRACT (IB 837 TRANSMISSION)
- ;182 N-GET FROM PREVIOUS EXTRACT (IB 837 TRANSMISSION)
- ;1015 GEN-7
- ;
- ;-----------------------------------------------------------------------
- ; 350.8 O.F. entries added:
- ;
- ;
- ENT8 ;O.F. entries in file 350.8 to be added
- ;
- ;;
- ;
- ;
- ;
- ;-----------------------------------------------------------------------
- ; 364.5 entries deleted:
- ;
- DEL5 ; remove O.F. entries in file 364.5 (not re-added)
- ;
- ;;
- ;
- ;-----------------------------------------------------------------------
- ; 364.6 entries deleted:
- ;
- DEL6 ; remove O.F. entries in file 364.6 (not re-added)
- ;
- ;;
- ;
- ;-----------------------------------------------------------------------
- ; 364.7 entries deleted:
- ;
- ;
- DEL7 ; remove O.F. entries in file 364.7 (not re-added)
- ;
- ;;
- ;
- ;-----------------------------------------------------------------------
- ; 350.8 Entries deleted:
- ;
- ;
- DEL8 ; remove entries from 350.8 (IB ERROR)
- ;
- ;;
- ;
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBY727PR 3005 printed Feb 19, 2025@00:01:42 Page 2
- IBY727PR ;EDE/JRA - Pre-Installation for IB patch 727 ; 10/12/17 2:12 pm
- +1 ;;2.0;INTEGRATED BILLING;**727**;21-MAR-94;Build 34
- +2 ;;Per VA Directive 6402, this routine should not be modified.
- +3 ;
- +4 ; delete all output formatter (O.F.) data elements included in build
- +5 DO DELOF
- +6 QUIT
- +7 ;
- INCLUDE(FILE,Y) ; function to determine if O.F. entry should be included in the build
- +1 ; FILE=5,6,7 indicating file 364.x or FILE=8 indicating file 350.8 (IB ERROR)
- +2 ; Y=ien to file
- +3 NEW OK,LN,TAG,DATA
- +4 SET OK=0
- +5 FOR LN=2:1
- SET TAG="ENT"_FILE_"+"_LN
- SET DATA=$PIECE($TEXT(@TAG),";;",2)
- if DATA=""
- QUIT
- IF $FIND(DATA,U_Y_U)
- SET OK=1
- QUIT
- +6 QUIT OK
- +7 ;
- +8 ;Delete edited entries to insure clean install of new entries
- +9 ;Delete obsolete entries.
- DELOF ; Delete included OF entries
- +1 NEW FILE,DIK,LN,TAG,TAGLN,DATA,PCE,DA,Y
- +2 FOR FILE=5:1:8
- SET DIK=$SELECT(FILE=8:"^IBE(350.",1:"^IBA(364.")_FILE_","
- Begin DoDot:1
- +3 FOR TAG="ENT"_FILE,"DEL"_FILE
- Begin DoDot:2
- +4 FOR LN=2:1
- SET TAGLN=TAG_"+"_LN
- SET DATA=$PIECE($TEXT(@TAGLN),";;",2)
- if DATA=""
- QUIT
- Begin DoDot:3
- +5 FOR PCE=2:1
- SET DA=$PIECE(DATA,U,PCE)
- if 'DA
- QUIT
- Begin DoDot:4
- +6 IF FILE=8
- IF $DATA(^IBE(350.8,DA,0))
- DO ^DIK
- +7 if FILE=8
- QUIT
- +8 IF $DATA(^IBA("364."_FILE,DA,0))
- DO ^DIK
- End DoDot:4
- End DoDot:3
- End DoDot:2
- End DoDot:1
- +9 QUIT
- +10 ;
- +11 ; Example for ENT5, ENT6, ENT7, ENT8, DEL5, DEL6, and DEL7:
- +12 ;;^195^254^259^269^324^325^
- +13 ; Note: Must have beginning and ending up-carat
- +14 ;
- +15 ;-----------------------------------------------------------------------
- +16 ; 364.5 O.F. entries added:
- +17 ;
- +18 ;
- ENT5 ;O.F. entries in file 364.5 to be added
- +1 ;
- +2 ;;
- +3 ;
- +4 ;-----------------------------------------------------------------------
- +5 ; 364.6 O.F. entries added:
- +6 ;
- +7 ;
- ENT6 ;O.F. entries in file 364.6 to be added
- +1 ;
- +2 ;;^2465^2466^
- +3 ;
- +4 ;2465 Procedure Modifier(3) (IB 837 TRANSMISSION)
- +5 ;2466 Procedure Modifier(4) (IB 837 TRANSMISSION)
- +6 ;
- +7 ;-----------------------------------------------------------------------
- +8 ; 364.7 O.F. entries added:
- +9 ;
- +10 ;
- ENT7 ; O.F. entries in file 364.7 to be added
- +1 ;
- +2 ;;^133^150^182^1015^
- +3 ;
- +4 ;133 N-GET FROM PREVIOUS EXTRACT (IB 837 TRANSMISSION)
- +5 ;150 N-GET FROM PREVIOUS EXTRACT (IB 837 TRANSMISSION)
- +6 ;182 N-GET FROM PREVIOUS EXTRACT (IB 837 TRANSMISSION)
- +7 ;1015 GEN-7
- +8 ;
- +9 ;-----------------------------------------------------------------------
- +10 ; 350.8 O.F. entries added:
- +11 ;
- +12 ;
- ENT8 ;O.F. entries in file 350.8 to be added
- +1 ;
- +2 ;;
- +3 ;
- +4 ;
- +5 ;
- +6 ;-----------------------------------------------------------------------
- +7 ; 364.5 entries deleted:
- +8 ;
- DEL5 ; remove O.F. entries in file 364.5 (not re-added)
- +1 ;
- +2 ;;
- +3 ;
- +4 ;-----------------------------------------------------------------------
- +5 ; 364.6 entries deleted:
- +6 ;
- DEL6 ; remove O.F. entries in file 364.6 (not re-added)
- +1 ;
- +2 ;;
- +3 ;
- +4 ;-----------------------------------------------------------------------
- +5 ; 364.7 entries deleted:
- +6 ;
- +7 ;
- DEL7 ; remove O.F. entries in file 364.7 (not re-added)
- +1 ;
- +2 ;;
- +3 ;
- +4 ;-----------------------------------------------------------------------
- +5 ; 350.8 Entries deleted:
- +6 ;
- +7 ;
- DEL8 ; remove entries from 350.8 (IB ERROR)
- +1 ;
- +2 ;;
- +3 ;