| [613] | 1 | PSUV0 ;BIR/CFL - Master Routine for PBMS IV Module; 09/09/1998
|
|---|
| 2 | ;;4.0;PHARMACY BENEFITS MANAGEMENT;;MARCH, 2005
|
|---|
| 3 | EN 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
|
|---|
| 28 | PRINT ;Print hard copies of summary reports
|
|---|
| 29 | S PSUIVSUB="PSUIV_"_PSUJOB
|
|---|
| 30 | D EN^PSUV5
|
|---|
| 31 | D CLEAN
|
|---|
| 32 | Q
|
|---|
| 33 | ;
|
|---|
| 34 | CLEAN ; 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
|
|---|
| 43 | CLEANQ Q
|
|---|
