- 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 Jan 18, 2025@03:27:17 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