Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: IB20P129

IB20P129.m

Go to the documentation of this file.

IB20P129 ; ALB/CXW - IB*2*129 POST-INSTALL ; 24-JAN-00

 ;;2.0;INTEGRATED BILLING;**129**;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 in file (350.9)")

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

 D BMES^XPDUTL("Step Complete.")

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIB20P129   338     printed  Dec 13, 2024@02:01:37                                                                                                                                                                                                     Page 2

IB20P129  ; ALB/CXW - IB*2*129 POST-INSTALL ; 24-JAN-00

 +1       ;;2.0;INTEGRATED BILLING;**129**;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 in file (350.9)")

 +2        SET $PIECE(^IBE(350.9,1,7),"^",4)=150

 +3        DO BMES^XPDUTL("Step Complete.")

 +4        QUIT