source: FOIAVistA/trunk/r/REMOTE_ORDER_ENTRY_SYSTEM-RMPF-RMPJ/RMPFEV.m@ 1607

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

initial load of FOIAVistA 6/30/08 version

File size: 1.7 KB
Line 
1RMPFEV ;DDC/KAW-REMOTE ORDER/ENTRY PARAMETERS FOR ASPS; [ 06/16/95 3:06 PM ]
2 ;;2.0;REMOTE ORDER/ENTRY SYSTEM;;JUN 16, 1995
3RMPFSET S RMPFMENU=0 I '$D(RMPFMENU) W !!,$C(7),"*** A MENU SELECTION MUST BE MADE ***" Q ;;RMPFMENU must be defined
4 I '$D(RMPFSTAN)!'$D(RMPFDAT)!'$D(RMPFSYS) D ^RMPFUTL H 2
5 ;; input: RMPFMENU
6 ;;output: RMPFSYS
7 W @IOF,!,"REMOTE ORDER/ENTRY PARAMETERS FOR ASPS",!!
8 S DIC=4,DIC(0)="AEQM"
9 I $D(RMPFSTAP) S:RMPFSTAP'="" DIC("B")=$P(RMPFSTAP," - ",2)
10 D ^DIC G END:Y=-1
11 S (DA,RMPFSTAN)=+Y S RMPFSTAP=$S($D(^DIC(4,RMPFSTAN,99)):$P(^(99),U,1),1:"") S:RMPFSTAP'="" RMPFSTAP=RMPFSTAP_" - " S RMPFSTAP=RMPFSTAP_$P(Y,U,2)
12PARAM I $D(RMPFSTAN),RMPFSTAN,$D(^RMPF(791813,RMPFSTAN,0)) G SET
13A1 W !!,"Do You Wish to Add Parameters for this station? NO// "
14 D READ G END:$D(RMPFOUT)
15A11 I $D(RMPFQUT) W !!,"Enter <Y> to add parameters for this station,",!?6,"<N> or <RETURN> to exit." G A1
16 S:Y="" Y="N" S Y=$E(Y,1) I "YyNn"'[Y S RMPFQUT="" G A11
17 G END:"Nn"[Y
18 S DLAYGO=791813,DIC(0)="L",DIC="^RMPF(791813,",DINUM=RMPFSTAN
19 S X=RMPFSTAN K DD,DO D FILE^DICN S DA=+Y
20 I Y=-1 W !!,"*** UNABLE TO ADD STATION TO PARAMETER FILE ***" G END
21SET S X=$G(^RMPF(791813,DA,2)) I $P(X,U,3) D
22 .S A=$P(X,U,3) Q:'A Q:'$D(^VA(200,A,0)) S A=$P(^(0),U,1)
23 .S Y=$P(X,U,4) D DD^%DT
24 .W !!?1,"Last User to Run Purge: ",A,!,"Last Date Purge was Run: ",Y,!!
25 S DIE="^RMPF(791813,"
26 S DR=".02;.03;I X'=""S""&(X'=""A"") S Y=.05;.04;.05;.06;.07;.11;.12;.09;.13;.1;1.01;1.02;1.03;1.04;1.05;1.06;2.01;2.02"
27 D ^DIE,PARAM^RMPFUTL
28END K %,%DT,%Y,POP,D,C,I,X,D0,DA,DI,DQ,DR,DDH,DZ,DIC,DIE,DISYS,DLAYGO,Y Q
29READ K RMPFOUT,RMPFQUT
30 R Y:DTIME I '$T W $C(7) R Y:5 G READ:Y="." S:'$T Y=U
31 I Y?1"^".E S (RMPFOUT,Y)="" Q
32 S:Y?1"?".E (RMPFQUT,Y)=""
33 Q
Note: See TracBrowser for help on using the repository browser.