source: WorldVistAEHR/trunk/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSASRU1.m@ 789

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

initial load of WorldVistAEHR

File size: 1.7 KB
Line 
1YSASRU1 ;ASF/ALB- ASI NATIONAL ROLL UP UTILS ;3/19/97 16:50
2 ;;5.01;MENTAL HEALTH;**24,30,32,38**;Dec 30, 1994
3 Q
4RESENDI ;individual resend
5 N DIC,YSASIEN
6 S DIC="^YSTX(604,",DIC(0)="AEQM",DIC("A")="Select ASI Administration:" D ^DIC
7 Q:Y'>0
8 S YSASIEN=+Y
9 I $P($G(^YSTX(604,YSASIEN,.5)),U)'=1 W !,"This ASI has not been signed and cannot be transmitted!",$C(7) G RESENDI
10 S DA=YSASIEN,DIE="^YSTX(604,",DR="5.5///1"
11 L +^YSTX(604,YSASIEN):9999 Q:'$T
12 D ^DIE
13 L -^YSTX(604,YSASIEN)
14 W !,"Placed in transmission list"
15 G RESENDI
16 ;
17TIMED ;send all signed given between
18 N YSASE,YSASNB,YSASL
19 W !,"PLEASE use this option ONLY when instructed to do so by the",!,"Remote Systems Support staff!"
20 K DIR S DIR(0)="Y",DIR("A")="Have you been instructed to resend data",DIR("B")="No"
21 D ^DIR Q:Y'=1
22 K DIR S DIR(0)="D^2960101:DT",DIR("A")="Enter Earliest Date" D ^DIR
23 Q:$D(DIURT)
24 S YSASE=Y
25 K DIR S DIR(0)="D^"_YSASE_":DT",DIR("A")="Enter Latest Date" D ^DIR
26 Q:$D(DIURT)
27 S YSASL=Y
28 S YSASE=YSASE-.001,YSASNB=0
29 F I=1:1 S YSASE=$O(^YSTX(604,"AD",YSASE)) Q:YSASE>YSASL!(YSASE'>0) D
30 . S N=0 F S N=$O(^YSTX(604,"AD",YSASE,N)) Q:N'>0 D
31 .. I $P($G(^YSTX(604,N,.5)),U)=1 S ^YSTX(604,"ATR",1,N)="",$P(^YSTX(604,N,5),U,3)=1,YSASNB=YSASNB+1
32 ;
33 W !,YSASNB," ASI's added to the transmission list"
34 Q
35QUEIT ; task out resend
36 S X1=DT,X2=7 D C^%DTC
37 K DIR S DIR(0)="D^NOW:"_X_":EFXR",DIR("A")="Resend Date and Time",DIR("B")="T@11pm"
38 D ^DIR
39 Q:$D(DIRUT)
40 S ZTRTN="EN^YSASRU",ZTIO="",ZTDTH=Y,ZTDESC="ASI RESEND YSASRU1" D ^%ZTLOAD
41 W !,"Thanks........" H 2
42 Q
43AA ; print awaiting report
44 S DIC="^YSTX(604,",L=0,FLDS=".05;""DATE"",.02;L30,.04;L5,.09;L20",BY="5.5,.05,.02"
45 S FR(1)="",FR(2)="",FR(3)="",DHD="ASI Awaitng Transmission List"
46 D EN1^DIP
47 Q
Note: See TracBrowser for help on using the repository browser.