ACRFDTPE.m

ACRFDTPE ;IHS/OIRM/DSD/THL,AEF - CONTROLS ENTRY TO ACRFDTP; [ 11/01/2001   9:44 AM ]

 ;;2.1;ADMIN RESOURCE MGT SYSTEM;;NOV 05, 2001

 ;;THIS ROUTINE IS THE ENTRY POINT FOR ACCESS TO ALL FINANCIAL ACCOUNTS

 ;;AND ALL FINANCIAL DOCUMENTS.  THE ENTRY POINTS SET CONTROL VARIABLES

 ;;WHICH DETERMINE THE ENVIRONMENT WITHIN THE ACRFDTP* AND ACRFEA*

 ;;ROUTINES WHICH IN TURN DETERMINES WHAT INFORMATION IS DISPLAYED AND

 ;;RETRIEVEABLE AND WHICH TRANSACTIONS ARE BEING PROCESSED.

EN ;EP;

 S ACRX=$T(@ACRENTRY+2)

 S ACRENTRY=$P(ACRX,";;",2)

 S ACRENTR1=$P(ACRX,";;",3)

 S ACRX=$P(ACRX,";;",4)

 X:ACRX]"" ACRX

 D ENTRY^ACRFDTP

 K ACRREQST,ACRCSI,ACRREACT,ACRNEWOB,ACRREV,ACRDEL,ACRPRT,ACRCTV,ACRCONV,ACRSOF,ACRSOFX,ACRCOMP,ACRREV,ACRNODIS,ACRRR,ACRJVOD,ACRREF,ACRREFX

 Q

OBLAMT ;EP;

 S ACRENTRY="OBLAMT",ACRREQST="" G EN

 ;;OBLAMT;;LOCBAMT;;

ACRCSI ;EP;

 S ACRENTRY="OBLAMT",ACRCSI="" G EN

 ;;OBLAMT;;LOCBAMT;;

ACRCSIX ;EP;

 S ACRENTRY="ACRCSI",(ACRREV,ACRCSI)="" G EN

 ;;OBLAMT;;LOCBAMT;;

REACT ;EP;

 S ACRENTRY="OBLAMT",(ACRREACT,ACRREQST)="" G EN

 ;;OBLAMT;;LOCBAMT;;

ACRNEWOB ;EP;

 S ACRENTRY="ACRNEWOB",ACRNEWOB="" G EN

 ;;OBLAMT;;LOCBAMT;;

ALCAMT ;EP;

 S ACRFDIS="",ACRENTRY="ALCAMT" G EN

 ;;ALCAMT;;ALLAMT;;

ALLAMT ;EP;

 S ACRFDIS="",ACRENTRY="ALLAMT" G EN

 ;;ALLAMT;;APPAMT;;

APPAMT ;EP;

 S ACRFDIS="",ACRENTRY="APPAMT" G EN

 ;;APPAMT;;APPAMT;;

ACRDEL ;EP;

 S ACRENTRY="ACRDEL",ACRDEL="" G EN

 ;;OBLAMT;;LOCBAMT;;

ACRJVOD ;EP;

 S ACRENTRY="ACRDEL",(ACRDEL,ACRJVOD,ACRREACT,ACRREQST)="" G EN

 ;;OBLAMT;;LOCBAMT;;

ACRFDIS ;EP;

 S ACRFDIS="",ACRENTRY="ACRFDIS" G EN

 ;;FDIS;;LOCBAMT;;

LOCBAMT ;EP;

 S ACRENTRY="LOCBAMT" K ACRFDIS G EN

 ;;LOCBAMT;;ALCAMT;;

ACRPTX ;EP;

 S ACRENTRY="ACRPTX",ACRPTX="" G EN

 ;;OBLAMT;;LOCBAMT;;

ACRRR ;EP;

 S ACRENTRY="ACRRR",ACRRR="" G EN

 ;;OBLAMT;;LOCBAMT;;

ACRCOMP ;EP;

 S ACRENTRY="ACRCOMP",(ACRCOMP,ACRREV,ACRNODIS)="" G EN

 ;;OBLAMT;;LOCBAMT;;

ACRSOF ;EP;

 S ACRENTRY="ACRSOF",ACRSOF="" G EN

 ;;OBLAMT;;LOCBAMT;;

ACRSOFX ;EP;

 S ACRENTRY="ACRSOFX",ACRSOFX="" G EN

 ;;LOCBAMT;;ALCAMT;;

ACRCONV ;EP;

 S ACRENTRY="ACRCONV",(ACRCONV,ACRCTV)="" G EN

 ;;OBLAMT;;LOCBAMT;;

ACRPRT ;EP;

 S ACRENTRY="ACRPRT",(ACRREQST,ACRPRT)="" D PRINT^ACRFPO1 Q

 ;;OBLAMT;;LOCBAMT;;

ACRCALL ;EP;

 S ACRENTRY="ACRPRT",(ACRREQST,ACRPRT,ACRCALL)="" D PRINT^ACRFPO1 K ACRCALL Q

ACRTV ;EP;

 S ACRENTRY="ACRTV",(ACRPRT,ACRCTV)="" G EN

 ;;OBLAMT;;LOCBAMT;;

ACRTPX ;EP;

 Q

ACRFDTPE  ;IHS/OIRM/DSD/THL,AEF - CONTROLS ENTRY TO ACRFDTP; [ 11/01/2001   9:44 AM ]

 +1       ;;2.1;ADMIN RESOURCE MGT SYSTEM;;NOV 05, 2001

 +2       ;;THIS ROUTINE IS THE ENTRY POINT FOR ACCESS TO ALL FINANCIAL ACCOUNTS

 +3       ;;AND ALL FINANCIAL DOCUMENTS.  THE ENTRY POINTS SET CONTROL VARIABLES

 +4       ;;WHICH DETERMINE THE ENVIRONMENT WITHIN THE ACRFDTP* AND ACRFEA*

 +5       ;;ROUTINES WHICH IN TURN DETERMINES WHAT INFORMATION IS DISPLAYED AND

 +6       ;;RETRIEVEABLE AND WHICH TRANSACTIONS ARE BEING PROCESSED.

EN        ;EP;

 +1        SET ACRX=$TEXT(@ACRENTRY+2)

 +2        SET ACRENTRY=$PIECE(ACRX,";;",2)

 +3        SET ACRENTR1=$PIECE(ACRX,";;",3)

 +4        SET ACRX=$PIECE(ACRX,";;",4)

 +5        IF ACRX]""

               XECUTE ACRX

 +6        DO ENTRY^ACRFDTP

 +7        KILL ACRREQST,ACRCSI,ACRREACT,ACRNEWOB,ACRREV,ACRDEL,ACRPRT,ACRCTV,ACRCONV,ACRSOF,ACRSOFX,ACRCOMP,ACRREV,ACRNODIS,ACRRR,ACRJVOD,ACRREF,ACRREFX

 +8        QUIT 

OBLAMT    ;EP;

 +1        SET ACRENTRY="OBLAMT"

           SET ACRREQST=""

           GOTO EN

 +2       ;;OBLAMT;;LOCBAMT;;

ACRCSI    ;EP;

 +1        SET ACRENTRY="OBLAMT"

           SET ACRCSI=""

           GOTO EN

 +2       ;;OBLAMT;;LOCBAMT;;

ACRCSIX   ;EP;

 +1        SET ACRENTRY="ACRCSI"

           SET (ACRREV,ACRCSI)=""

           GOTO EN

 +2       ;;OBLAMT;;LOCBAMT;;

REACT     ;EP;

 +1        SET ACRENTRY="OBLAMT"

           SET (ACRREACT,ACRREQST)=""

           GOTO EN

 +2       ;;OBLAMT;;LOCBAMT;;

ACRNEWOB  ;EP;

 +1        SET ACRENTRY="ACRNEWOB"

           SET ACRNEWOB=""

           GOTO EN

 +2       ;;OBLAMT;;LOCBAMT;;

ALCAMT    ;EP;

 +1        SET ACRFDIS=""

           SET ACRENTRY="ALCAMT"

           GOTO EN

 +2       ;;ALCAMT;;ALLAMT;;

ALLAMT    ;EP;

 +1        SET ACRFDIS=""

           SET ACRENTRY="ALLAMT"

           GOTO EN

 +2       ;;ALLAMT;;APPAMT;;

APPAMT    ;EP;

 +1        SET ACRFDIS=""

           SET ACRENTRY="APPAMT"

           GOTO EN

 +2       ;;APPAMT;;APPAMT;;

ACRDEL    ;EP;

 +1        SET ACRENTRY="ACRDEL"

           SET ACRDEL=""

           GOTO EN

 +2       ;;OBLAMT;;LOCBAMT;;

ACRJVOD   ;EP;

 +1        SET ACRENTRY="ACRDEL"

           SET (ACRDEL,ACRJVOD,ACRREACT,ACRREQST)=""

           GOTO EN

 +2       ;;OBLAMT;;LOCBAMT;;

ACRFDIS   ;EP;

 +1        SET ACRFDIS=""

           SET ACRENTRY="ACRFDIS"

           GOTO EN

 +2       ;;FDIS;;LOCBAMT;;

LOCBAMT   ;EP;

 +1        SET ACRENTRY="LOCBAMT"

           KILL ACRFDIS

           GOTO EN

 +2       ;;LOCBAMT;;ALCAMT;;

ACRPTX    ;EP;

 +1        SET ACRENTRY="ACRPTX"

           SET ACRPTX=""

           GOTO EN

 +2       ;;OBLAMT;;LOCBAMT;;

ACRRR     ;EP;

 +1        SET ACRENTRY="ACRRR"

           SET ACRRR=""

           GOTO EN

 +2       ;;OBLAMT;;LOCBAMT;;

ACRCOMP   ;EP;

 +1        SET ACRENTRY="ACRCOMP"

           SET (ACRCOMP,ACRREV,ACRNODIS)=""

           GOTO EN

 +2       ;;OBLAMT;;LOCBAMT;;

ACRSOF    ;EP;

 +1        SET ACRENTRY="ACRSOF"

           SET ACRSOF=""

           GOTO EN

 +2       ;;OBLAMT;;LOCBAMT;;

ACRSOFX   ;EP;

 +1        SET ACRENTRY="ACRSOFX"

           SET ACRSOFX=""

           GOTO EN

 +2       ;;LOCBAMT;;ALCAMT;;

ACRCONV   ;EP;

 +1        SET ACRENTRY="ACRCONV"

           SET (ACRCONV,ACRCTV)=""

           GOTO EN

 +2       ;;OBLAMT;;LOCBAMT;;

ACRPRT    ;EP;

 +1        SET ACRENTRY="ACRPRT"

           SET (ACRREQST,ACRPRT)=""

           DO PRINT^ACRFPO1

           QUIT 

 +2       ;;OBLAMT;;LOCBAMT;;

ACRCALL   ;EP;

 +1        SET ACRENTRY="ACRPRT"

           SET (ACRREQST,ACRPRT,ACRCALL)=""

           DO PRINT^ACRFPO1

           KILL ACRCALL

           QUIT 

ACRTV     ;EP;

 +1        SET ACRENTRY="ACRTV"

           SET (ACRPRT,ACRCTV)=""

           GOTO EN

 +2       ;;OBLAMT;;LOCBAMT;;

ACRTPX    ;EP;

 +1        QUIT