IB20P216.m

IB20P216 ;ISP/TJH - ENVIRONMENT CHECK WITH PRE-INIT CODE ;04/24/2003

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

 ;

ENV ; environment check

 ; No special environment check at this time.

PRE ; set up check points for pre-init

 N %

 S %=$$NEWCP^XPDUTL("F364P6","F364P6^IB20P216")

 Q

 ;

F364P6 ; modify LOCAL OVERRIDE ALLOWED for Admission Hour and Discharge Hour

 ; File 364.6, records 55 and 57, field .07 changed from 0 to 1

 N IBIEN,IBMSG,DA,DIE,DR

 F IBIEN=55,57 D

 . S IBMSG(1)="Updating the LOCAL OVERRIDE ALLOWED field for IEN #"_IBIEN

 . S IBMSG(2)="in the IB FORM SKELETON DEFINITION file."

 . D BMES^XPDUTL(.IBMSG)

 . S DA=IBIEN,DIE="^IBA(364.6,",DR=".07////1" D ^DIE

 D COMPLETE

 Q

 ;

COMPLETE ; display message that step has completed

 D BMES^XPDUTL("Step complete.")

 Q

 ;

END ; display message that pre-init has completed successfully

 D BMES^XPDUTL("Pre-init complete")

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---IB20P216   918     printed  Apr 09, 2024@21:11:14                                                                                                                                                                                                     Page 2

IB20P216  ;ISP/TJH - ENVIRONMENT CHECK WITH PRE-INIT CODE ;04/24/2003

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

 +2       ;

ENV       ; environment check

 +1       ; No special environment check at this time.

PRE       ; set up check points for pre-init

 +1        NEW %

 +2        SET %=$$NEWCP^XPDUTL("F364P6","F364P6^IB20P216")

 +3        QUIT 

 +4       ;

F364P6    ; modify LOCAL OVERRIDE ALLOWED for Admission Hour and Discharge Hour

 +1       ; File 364.6, records 55 and 57, field .07 changed from 0 to 1

 +2        NEW IBIEN,IBMSG,DA,DIE,DR

 +3        FOR IBIEN=55,57

               Begin DoDot:1

 +4                SET IBMSG(1)="Updating the LOCAL OVERRIDE ALLOWED field for IEN #"_IBIEN

 +5                SET IBMSG(2)="in the IB FORM SKELETON DEFINITION file."

 +6                DO BMES^XPDUTL(.IBMSG)

 +7                SET DA=IBIEN

                   SET DIE="^IBA(364.6,"

                   SET DR=".07////1"

                   DO ^DIE

               End DoDot:1

 +8        DO COMPLETE

 +9        QUIT 

 +10      ;

COMPLETE  ; display message that step has completed

 +1        DO BMES^XPDUTL("Step complete.")

 +2        QUIT 

 +3       ;

END       ; display message that pre-init has completed successfully

 +1        DO BMES^XPDUTL("Pre-init complete")

 +2        QUIT 

 +3       ;