source: FOIAVistA/trunk/r/OUTPATIENT_PHARMACY-PSO-APSP-HUIP/PSOCST.m@ 794

Last change on this file since 794 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 532 bytes
Line 
1PSOCST ;BHAM ISC/SAB - COST STAT REQUEST ROUTINE ; 08/19/92 8:32
2 ;;7.0;OUTPATIENT PHARMACY;;DEC 1997
3 Q
41 ;PHARMACY STATISTICS
5 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
6 ;
711 ;PHARMACY STATISTICS BY DIVISION
8 S L=0,DIC="^PSCST(",BY="[PSO COST STAT]",FLDS="[PSO COST STAT]" D EN1^DIP K D,Z,ZTIO,%X,DIJ,DP Q
9 ;
1013 ;REQUEST STATISTICS
11 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
Note: See TracBrowser for help on using the repository browser.