source: WorldVistAEHR/trunk/r/PHARMACY_BENEFITS_MANAGEMENT-PSU/PSUOP0.m@ 1000

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

initial load of WorldVistAEHR

File size: 1.8 KB
Line 
1PSUOP0 ;BIR/CFL,TJH;PSU PBM Outpatient Pharmacy entry routine;08/25/1998
2 ;;4.0;PHARMACY BENEFITS MANAGEMENT;;MARCH, 2005
3 ;
4 Q
5 ;
6EN ;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 ;
57PRINT ;Call print routine
58 ;
59 D ^PSUOP6
60 ;
61 Q
62 ;
63CLEAN ; 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
69CLEANQ Q
Note: See TracBrowser for help on using the repository browser.