- 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 Jan 18, 2025@03:02:55 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