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 ---[H[J[2J[HIB20P157 425 printed Dec 13, 2024@02:01:42 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
