ACRFSPL.m

ACRFSPL ;IHS/OIRM/DSD/AEF - DHR-SPLITOUT [ 11/01/2001   9:44 AM ]

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

 ;

EN(ACRCTR,ACRDTM,ACRPKG)     ;EP

 ;----- MAIN ENTRY POINT

 ;

 ;      ACRCTR  = TYPE OF TRANSACTIONS

 ;                ARM = ARMS

 ;                BCS = CHS

 ;                PCC = MANUALLY ENTERED

 ;      ACRDTNM = DATA TYPE NAME

 ;                DHRP

 ;                dhc

 ;      ACRPKG  = PACKAGE

 ;                AFSH = ARMS

 ;                ACHS = CHS

 ;

 N ACRD0,ACROUT

 ;

 ;Get which color batch to export

 D EN^ACRFSPL1(ACRCTR,ACRDTM,ACRPKG)

 Q:'$G(ACRD0)

 ;

 ;Do the export

 D EN^ACRFSPL2(ACRD0)

 ;

 ;Print report

 D EN^ACRFSPL3(ACRD0)

 Q

ACRFSPL   ;IHS/OIRM/DSD/AEF - DHR-SPLITOUT [ 11/01/2001   9:44 AM ]

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

 +2       ;

EN(ACRCTR,ACRDTM,ACRPKG) ;EP

 +1       ;----- MAIN ENTRY POINT

 +2       ;

 +3       ;      ACRCTR  = TYPE OF TRANSACTIONS

 +4       ;                ARM = ARMS

 +5       ;                BCS = CHS

 +6       ;                PCC = MANUALLY ENTERED

 +7       ;      ACRDTNM = DATA TYPE NAME

 +8       ;                DHRP

 +9       ;                dhc

 +10      ;      ACRPKG  = PACKAGE

 +11      ;                AFSH = ARMS

 +12      ;                ACHS = CHS

 +13      ;

 +14       NEW ACRD0,ACROUT

 +15      ;

 +16      ;Get which color batch to export

 +17       DO EN^ACRFSPL1(ACRCTR,ACRDTM,ACRPKG)

 +18       IF '$GET(ACRD0)

               QUIT 

 +19      ;

 +20      ;Do the export

 +21       DO EN^ACRFSPL2(ACRD0)

 +22      ;

 +23      ;Print report

 +24       DO EN^ACRFSPL3(ACRD0)

 +25       QUIT