Changeset 636 for FOIAVistA/tag/r/PHARMACY_BENEFITS_MANAGEMENT-PSU/PSUCP.m
- Timestamp:
- Dec 4, 2009, 8:26:01 PM (14 years ago)
- Location:
- FOIAVistA/tag/r
- Files:
-
- 1 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
FOIAVistA/tag/r/PHARMACY_BENEFITS_MANAGEMENT-PSU/PSUCP.m
r628 r636 1 PSUCP ;BIR/TJH,PDW - PBM CONTROL POINT ; 06/08/072 ;;4.0;PHARMACY BENEFITS MANAGEMENT; **12**;MARCH, 2005;Build 191 PSUCP ;BIR/TJH,PDW - PBM CONTROL POINT ;25 AUG 1998 2 ;;4.0;PHARMACY BENEFITS MANAGEMENT;;MARCH, 2005 3 3 ; Reference to File #4 supported by DBIA 10090 4 4 ; Reference to File #4.3 supported by DBIA 10091 5 5 ; Reference to File #40.8 supported by DBIA 2438 6 6 ; Reference to File #59.7 supported by DBIA 2854 7 ; move CLEANUP^PSUHL from PSURT1, delete calls to PSUCP3 (PSU*4*12)8 7 MANUAL ; entry point for manual option 9 8 S PSUALERT=0 D MANUAL^PSUALERT … … 18 17 .S DIR("A")="Do you wish to continue" 19 18 .D ^DIR 20 D CLEANUP^PSUHL19 D ^PSUCP3 21 20 S PSUJOB=$J_"_"_$P($H,",",2) 22 21 S ^XTMP("PSUMANL")="" … … 37 36 S PSUALERT=0 D AUTO^PSUALERT 38 37 I PSUALERT K PSUALERT Q 39 I $ D(^XTMP("PSU","RUNNING")) D Q38 I $G(^XTMP("PSU","RUNNING")) D Q 40 39 .S XQA(DUZ)="",XQA("G.PSU PBM")="",XQMSG="An ERROR has occurred. Please contact IRM for assistance." 41 40 .S XQAID="PSU",XQAFLG="D" D SETUP^XQALERT 42 D CLEANUP^PSUHL41 D ^PSUCP3 ;Clear trash globals 43 42 S PSUJOB=$J_"_"_$P($H,",",2) 44 43 S ^XTMP("PSU_"_PSUJOB,"PSUFLAG1")="" ;flag for mail patient summary reports … … 67 66 D ^PSUDBQUE 68 67 K PSUALERT,XQA,XQAID,XQAFLG,XQA,ZTSK 69 AUTOQ Q ; exit from AUTO68 AUTOQ D EXIT Q ; exit from AUTO 70 69 ; 71 70 RUN ; run each selected module
Note:
See TracChangeset
for help on using the changeset viewer.