IB20P157.m

IB20P157 ; ALB/MAF - IB*2*157 POST-INSTALL ; 25-JUN-01

 ;;2.0;INTEGRATED BILLING;**157**;21-MAR-94

 ;

UPFLD ;change NUMBER OF DAYS PT CHARGES HELD field (#7.04) in file #350.9

 D BMES^XPDUTL("Updating NUMBER OF DAYS PATIENT CHARGES HELD field #7.04")

 D MES^XPDUTL("in the IB SITE PARAMETERS file #350.9 from 150 days to 90 days.")

 S $P(^IBE(350.9,1,7),"^",4)=90

 D BMES^XPDUTL("Change completed successfully.")

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---IB20P157   425     printed  Apr 09, 2024@21:20:16                                                                                                                                                                                                     Page 2

IB20P157  ; ALB/MAF - IB*2*157 POST-INSTALL ; 25-JUN-01

 +1       ;;2.0;INTEGRATED BILLING;**157**;21-MAR-94

 +2       ;

UPFLD     ;change NUMBER OF DAYS PT CHARGES HELD field (#7.04) in file #350.9

 +1        DO BMES^XPDUTL("Updating NUMBER OF DAYS PATIENT CHARGES HELD field #7.04")

 +2        DO MES^XPDUTL("in the IB SITE PARAMETERS file #350.9 from 150 days to 90 days.")

 +3        SET $PIECE(^IBE(350.9,1,7),"^",4)=90

 +4        DO BMES^XPDUTL("Change completed successfully.")

 +5        QUIT