source: WorldVistAEHR/trunk/r/PHARMACY_BENEFITS_MANAGEMENT-PSU/PSUV0.m

Last change on this file was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.4 KB
Line 
1PSUV0 ;BIR/CFL - Master Routine for PBMS IV Module; 09/09/1998
2 ;;4.0;PHARMACY BENEFITS MANAGEMENT;;MARCH, 2005
3EN S PSUJOB=$G(PSUJOB,$J),PSUIVSUB="PSUIV_"_PSUJOB
4 S X1=PSUSDT,X2=-31
5 D C^%DTC K %,%H,%T
6 S PSUIVDT=X
7 K ^XTMP(PSUIVSUB)
8 S X1=DT,X2=6 D C^%DTC K %,%H,%T
9 S ^XTMP(PSUIVSUB,0)=X_U_DT_U_"PSU PBM 'IV' STATISTICAL DATA"
10 D SECTN^PSUTL1
11 D ^PSUV1
12 I '$D(^XTMP("PSU_"_PSUJOB,"PSUFLAG")) D EN^PSUV3(.PSUARM)
13 ;
14 D PULL^PSUCP
15 F I=1:1:$L(PSUOPTS,",") S PSUMOD($P(PSUOPTS,",",I))=""
16 ;
17 I $D(PSUMOD(10)) D IVSSN^PSUDEM4 ;Provider extract
18 ;
19 ;Patient demographics IV summary report
20 I '$D(^XTMP("PSU_"_PSUJOB,"PSUFLAG")) D
21 .I '$D(^XTMP("PSU_"_PSUJOB,"PSUMFLAG")) D EN^PSUSUM4
22 ;
23 K ^XTMP("PSU_"_PSUJOB,"PSUFLAG1")
24 ;
25 I '$D(^XTMP("PSU_"_PSUJOB,"PSUFLAG")) D EN^PSUV11
26 D CLEAN
27 Q
28PRINT ;Print hard copies of summary reports
29 S PSUIVSUB="PSUIV_"_PSUJOB
30 D EN^PSUV5
31 D CLEAN
32 Q
33 ;
34CLEAN ; clean up local symbol table
35 S XPSUOPTN=PSUOPTN,XPSUJOB=PSUJOB M XPSUMOD=PSUMOD
36 D VARKILL^PSUTL ; kill all PSU namespace variables
37 S PSUOPTN=XPSUOPTN,PSUJOB=XPSUJOB M PSUMOD=XPSUMOD K XPSUOPTN,XPSUJOB,XPSUMOD
38 K ADTIV,COUNT,DASH,DATA,DFN,DIC,DLM,ENDIT,EXTD,GENRIC,I,INDEX,J,LINE,LNCNT,NONE,OCC
39 K PSBAGS,PSDISP,PSECT,PSIVNFI,PSIVNFR,PSLN,PSNAME,REC,RECIND,RECTYP
40 K SOLDA,SOLDRUG,SPECPTR,TYPE,VOLUME,X,X1,X2,Y,Z
41 D PULL^PSUCP,OPTS^PSUCP
42 K PSUIVA,PSUAMIS,LVP,PB,TPN,CH,SYR,AMIS
43CLEANQ Q
Note: See TracBrowser for help on using the repository browser.