source: WorldVistAEHR/trunk/r/LAB_SERVICE-LR-LS/LRCAPAM0.m@ 1604

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

initial load of WorldVistAEHR

File size: 1.3 KB
Line 
1LRCAPAM0 ;SLC/FHS - INTRO FOR MOVE WKLD DATA FROM 64.1 TO 67.9;10/14/91 08:15
2 ;;5.2;LAB SERVICE;**81,141**;Sep 27, 1994
3 D ^LRPARAM I '$P($G(LRLABKY),U,2) W !!?10,"You do not have the proper Security Key ... Aborted ",!! G END
4 L +^LRO(67.9):1 I '$T W !!?5,"Someone else is editing this file",!! G END
5 S LINE="PHASE 1 OF LMIP DATA COLLECTION" W !?(IOM-$L(LINE))/2,LINE
6 S LINE="Extract Monthly Workload Data From ^LRO(64.1 and placing" W !?(IOM-$L(LINE))/2,LINE
7 S LINE="the Totals into ^LRO(67.9 in preparation for data" W !?(IOM-$L(LINE))/2,LINE
8 S LINE="transmission to National Data Base" W !?(IOM-$L(LINE))/2,LINE,!!
9 K DIC,LINE S (LRPRI,LRIN)="",DIC="^LRO(64.1,",DIC(0)="AQNEZ"
10IN D ^DIC G:$E(X)=U!(Y<1) END I Y>0 S LRIN=+Y
11 S LRPRI=+$P($G(^XMB(1,1,"XUS")),U,17) I LRPRI,$L($G(^DIC(4,LRPRI,0)),U) S LRPRIN=$P(^(0),U)
12 I 'LRPRI W !!?5,"Your Site is not defined in ^XMB(1,1,XUS) 17th Piece",!!,$C(7),!,"Process aborted ",! G END
13DATE K %DT S %DT("A")="Begin with what date ",%DT="APEX" D ^%DT G:Y<1 END
14 S LRDTS=Y
15EDATE K %DT S %DT("A")="End with what date ",%DT="APEX" D ^%DT G:Y<1 END
16 S LRDTE=Y S LREND=0
17 I LRDTS>LRDTE S X=LRDTE,LRDTE=LRDTS,LRDTS=X
18 S LRDTS=LRDTS-.9999,LRDTE=LRDTE+.9999
19 S LRCHK=$O(^LRO(64.1,LRIN,1,LRDTS)) S:'LRCHK!(LRCHK>LRDTE) LREND=1 I $G(LREND) W !!?5,"No data for this date range ",!! G END
20 W @IOF
21 Q
22END ;
23 D END^LRCAPAM1 S LREND=1 Q
Note: See TracBrowser for help on using the repository browser.