BAREDL03.m

BAREDL03 ; IHS/SD/LSL - AR TOP LEVEL FILE STRUCTURE ;

 ;;1.8;IHS ACCOUNTS RECEIVABLE;;OCT 26, 2005

 ;;;;OCT 15, 1999

 ;

 D CLEAR^VALM1

 D MSG^AMCOUT("",2,0,0)

 ;

EN(HDR,LSTFILE) ;EP -- main entry point for DEVELOPER'S HELP EDIT MENU

 D EN^VALM(LSTFILE)

 Q

 ; *********************************************************************

 ;

HDR ;EP -- header code

 S VALMSG=$$VALMSG^AMCOUT

 S VALMHDR(1)=$P($G(^BAREDI("1T",FILE,0)),"^")

 S VALMHDR(2)=HDR

 Q

 ; *********************************************************************

 ;

INIT ;EP -- init variables and list array

 S VALMCNT=45

 Q

 ; *********************************************************************

 ;

HELP ;EP -- help code

 S X="?"

 D DISP^XQORM1,MSG^AMCOUT("",2,0,0)

 Q

 ; *********************************************************************

 ;

EXIT ;EP -- exit code

 K ^TMP($J,"LVL2")

 Q

 ; *********************************************************************

 ;

EXPND ;EP -- expand code

 Q

 ;

 ; *********************************************************************

RESET ;EP; -- rebuilds array after action

 D TERM^VALM0

 S VALMBCK="R"

 D INIT,HDR

 Q

BAREDL03  ; IHS/SD/LSL - AR TOP LEVEL FILE STRUCTURE ;

 +1       ;;1.8;IHS ACCOUNTS RECEIVABLE;;OCT 26, 2005

 +2       ;;;;OCT 15, 1999

 +3       ;

 +4        DO CLEAR^VALM1

 +5        DO MSG^AMCOUT("",2,0,0)

 +6       ;

EN(HDR,LSTFILE) ;EP -- main entry point for DEVELOPER'S HELP EDIT MENU

 +1        DO EN^VALM(LSTFILE)

 +2        QUIT 

 +3       ; *********************************************************************

 +4       ;

HDR       ;EP -- header code

 +1        SET VALMSG=$$VALMSG^AMCOUT

 +2        SET VALMHDR(1)=$PIECE($GET(^BAREDI("1T",FILE,0)),"^")

 +3        SET VALMHDR(2)=HDR

 +4        QUIT 

 +5       ; *********************************************************************

 +6       ;

INIT      ;EP -- init variables and list array

 +1        SET VALMCNT=45

 +2        QUIT 

 +3       ; *********************************************************************

 +4       ;

HELP      ;EP -- help code

 +1        SET X="?"

 +2        DO DISP^XQORM1

           DO MSG^AMCOUT("",2,0,0)

 +3        QUIT 

 +4       ; *********************************************************************

 +5       ;

EXIT      ;EP -- exit code

 +1        KILL ^TMP($JOB,"LVL2")

 +2        QUIT 

 +3       ; *********************************************************************

 +4       ;

EXPND     ;EP -- expand code

 +1        QUIT 

 +2       ;

 +3       ; *********************************************************************

RESET     ;EP; -- rebuilds array after action

 +1        DO TERM^VALM0

 +2        SET VALMBCK="R"

 +3        DO INIT

           DO HDR

 +4        QUIT