| 1 | PSUOP0 ;BIR/CFL,TJH;PSU PBM Outpatient Pharmacy entry routine;08/25/1998
|
|---|
| 2 | ;;4.0;PHARMACY BENEFITS MANAGEMENT;;MARCH, 2005
|
|---|
| 3 | ;
|
|---|
| 4 | Q
|
|---|
| 5 | ;
|
|---|
| 6 | EN ;Entry Point
|
|---|
| 7 | S PSUOPSUB="PSUOP_"_PSUJOB
|
|---|
| 8 | K ^XTMP(PSUOPSUB)
|
|---|
| 9 | S X1=DT,X2=6 D C^%DTC
|
|---|
| 10 | S ^XTMP(PSUOPSUB,0)=X_U_DT_U_"OUTPATIENT PHARMACY DATA COLLECTION"
|
|---|
| 11 | S PSUOPVER=$$VERSION^XPDUTL("PSO") ;outpatient software version
|
|---|
| 12 | S PSUDFVER=$$VERSION^XPDUTL("PSN") ;drug file version
|
|---|
| 13 | D SECTN^PSUTL1 ;set up section:abbreviation array
|
|---|
| 14 | ;
|
|---|
| 15 | ;VERSION 6.0 software
|
|---|
| 16 | I +PSUOPVER="6" D ^PSUOP1
|
|---|
| 17 | ;
|
|---|
| 18 | ;VERSION 7.0 software
|
|---|
| 19 | I +PSUOPVER'<7 D ^PSUOP2
|
|---|
| 20 | ;
|
|---|
| 21 | ;Mail Man Call
|
|---|
| 22 | I '$D(^XTMP("PSU_"_PSUJOB,"PSUFLAG")) D
|
|---|
| 23 | .D EN^PSUOP4 ;Single dose messages
|
|---|
| 24 | .D EN^PSUOPMD ;Multidose messages
|
|---|
| 25 | ;
|
|---|
| 26 | I $G(^XTMP("PSU_"_PSUJOB,"PSUPSUMFLAG"))=1 D
|
|---|
| 27 | .S PSUOPTS="1,2,3,4,5,6,7,8,9,10,11"
|
|---|
| 28 | .S PSUAUTO=1
|
|---|
| 29 | ;
|
|---|
| 30 | D PULL^PSUCP
|
|---|
| 31 | F I=1:1:$L(PSUOPTS,",") S PSUMOD($P(PSUOPTS,",",I))=""
|
|---|
| 32 | I $D(PSUMOD(10)) D OPSSN^PSUDEM4 ;Provider extract
|
|---|
| 33 | ;
|
|---|
| 34 | ;Rx summary report
|
|---|
| 35 | I '$D(^XTMP("PSU_"_PSUJOB,"PSUFLAG")) D
|
|---|
| 36 | .I '$D(^XTMP("PSU_"_PSUJOB,"PSUMFLAG")) D EN^PSUSUM2
|
|---|
| 37 | .;
|
|---|
| 38 | .;IV/UD/RX summary report
|
|---|
| 39 | .I $D(PSUMOD(2))&$D(PSUMOD(1))&$D(PSUMOD(4)) D
|
|---|
| 40 | ..D EN^PSUSUM6
|
|---|
| 41 | .;
|
|---|
| 42 | .;IV/RX summary report
|
|---|
| 43 | .I $D(PSUMOD(1))&'$D(PSUMOD(2))&$D(PSUMOD(4)) D
|
|---|
| 44 | ..D EN^PSUSUM7
|
|---|
| 45 | .;
|
|---|
| 46 | .;UD/RX summary report
|
|---|
| 47 | .I '$D(PSUMOD(1))&$D(PSUMOD(2))&$D(PSUMOD(4)) D
|
|---|
| 48 | ..D EN^PSUSUM7
|
|---|
| 49 | ;
|
|---|
| 50 | D EN^PSUOP8 ;AMIS SUMMARY REPORT
|
|---|
| 51 | ;
|
|---|
| 52 | K ^XTMP("PSU_"_PSUJOB,"PSUFLAG1")
|
|---|
| 53 | ;
|
|---|
| 54 | D CLEAN
|
|---|
| 55 | Q
|
|---|
| 56 | ;
|
|---|
| 57 | PRINT ;Call print routine
|
|---|
| 58 | ;
|
|---|
| 59 | D ^PSUOP6
|
|---|
| 60 | ;
|
|---|
| 61 | Q
|
|---|
| 62 | ;
|
|---|
| 63 | CLEAN ; clean up local symbol table
|
|---|
| 64 | S XPSUOPTN=PSUOPTN,XPSUJOB=PSUJOB M XPSUMOD=PSUMOD
|
|---|
| 65 | D VARKILL^PSUTL ; kill all PSU namespace variables
|
|---|
| 66 | S PSUOPTN=XPSUOPTN,PSUJOB=XPSUJOB M PSUMOD=XPSUMOD K XPSUOPTN,XPSUJOB,XPSUMOD
|
|---|
| 67 | K DATA,DFN,PSUDFVER,ENDIT,EXTD,J,NODATA,NONE,PSUOPVER,PSECT,PSOPNFI,PSOPNFR,REC,REC1,REC2,X1,X2,Y,Z,AMIS
|
|---|
| 68 | D PULL^PSUCP,OPTS^PSUCP
|
|---|
| 69 | CLEANQ Q
|
|---|
