ASURO76D.m

ASURO76D ; IHS/ITSC/LMH -RPT 76 ANALYSIS OF ISSUES BY USER ; 

 ;;4.2T2;Supply Accounting Mgmt. System;;JUN 30, 2000

 ;This routine provides two entry points to print Report 76

 ;entering at the top deletes the related extracts and rebuilds them

 ;entering at PRINT prints the report from existing sorted extracts

 K ^XTMP("ASUR","R76")

 S ^XTMP("ASUR","R76",0)=ASUK("DT","FM")+10000_U_ASUK("DT","FM")

 D ^ASURO760

PRINT ;EP; PRINT FROM KERNEL OPTION

 D ^ASURO76P

 Q

ASURO76D  ; IHS/ITSC/LMH -RPT 76 ANALYSIS OF ISSUES BY USER ; 

 +1       ;;4.2T2;Supply Accounting Mgmt. System;;JUN 30, 2000

 +2       ;This routine provides two entry points to print Report 76

 +3       ;entering at the top deletes the related extracts and rebuilds them

 +4       ;entering at PRINT prints the report from existing sorted extracts

 +5        KILL ^XTMP("ASUR","R76")

 +6        SET ^XTMP("ASUR","R76",0)=ASUK("DT","FM")+10000_U_ASUK("DT","FM")

 +7        DO ^ASURO760

PRINT     ;EP; PRINT FROM KERNEL OPTION

 +1        DO ^ASURO76P

 +2        QUIT