PSOCST ;BHAM ISC/SAB - COST STAT REQUEST ROUTINE ; 08/19/92 8:32
;;7.0;OUTPATIENT PHARMACY;;DEC 1997
Q
1 ;PHARMACY STATISTICS
S L=0,DTIME=$S($D(DTIME):DTIME,1:300),DIC="^PSCST(",BY=".01",FLDS="[PSO PHARMACY STATS]" D EN1^DIP K D,Z,ZTIO,%X,DIJ,DP Q
;
11 ;PHARMACY STATISTICS BY DIVISION
S L=0,DIC="^PSCST(",BY="[PSO COST STAT]",FLDS="[PSO COST STAT]" D EN1^DIP K D,Z,ZTIO,%X,DIJ,DP Q
;
13 ;REQUEST STATISTICS
S L=0,DTIME=$S($D(DTIME):DTIME,1:300),DIC="^PSCST(",BY=".01",FLDS="[PSO REQUEST STATISTICS]" D EN1^DIP K DIJ,DP,%X Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSOCST 543 printed Dec 13, 2024@02:26:08 Page 2
PSOCST ;BHAM ISC/SAB - COST STAT REQUEST ROUTINE ; 08/19/92 8:32
+1 ;;7.0;OUTPATIENT PHARMACY;;DEC 1997
+2 QUIT
1 ;PHARMACY STATISTICS
+1 SET L=0
SET DTIME=$SELECT($DATA(DTIME):DTIME,1:300)
SET DIC="^PSCST("
SET BY=".01"
SET FLDS="[PSO PHARMACY STATS]"
DO EN1^DIP
KILL D,Z,ZTIO,%X,DIJ,DP
QUIT
+2 ;
11 ;PHARMACY STATISTICS BY DIVISION
+1 SET L=0
SET DIC="^PSCST("
SET BY="[PSO COST STAT]"
SET FLDS="[PSO COST STAT]"
DO EN1^DIP
KILL D,Z,ZTIO,%X,DIJ,DP
QUIT
+2 ;
13 ;REQUEST STATISTICS
+1 SET L=0
SET DTIME=$SELECT($DATA(DTIME):DTIME,1:300)
SET DIC="^PSCST("
SET BY=".01"
SET FLDS="[PSO REQUEST STATISTICS]"
DO EN1^DIP
KILL DIJ,DP,%X
QUIT
