Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: YSASRU1

YSASRU1.m

Go to the documentation of this file.
  1. YSASRU1 ;ASF/ALB,HIOFO/FT - ASI NATIONAL ROLL UP UTILS ;2/21/13 11:11am
  1. ;;5.01;MENTAL HEALTH;**24,30,32,38,121**;Dec 30, 1994;Build 61
  1. ;Reference to ^%ZTLOAD supported by IA #10063
  1. Q
  1. RESENDI ;individual resend
  1. ;entry point for YSAS ASI ADD INDIVIDUAL option
  1. N DIC,YSASIEN
  1. S DIC="^YSTX(604,",DIC(0)="AEQM",DIC("A")="Select ASI Administration:" D ^DIC
  1. Q:Y'>0
  1. S YSASIEN=+Y
  1. I $P($G(^YSTX(604,YSASIEN,.5)),U)'=1 W !,"This ASI has not been signed and cannot be transmitted!",$C(7) G RESENDI
  1. S DA=YSASIEN,DIE="^YSTX(604,",DR="5.5///1"
  1. L +^YSTX(604,YSASIEN):DILOCKTM Q:'$T
  1. D ^DIE
  1. L -^YSTX(604,YSASIEN)
  1. W !,"Placed in transmission list"
  1. G RESENDI
  1. ;
  1. TIMED ;send all signed given between
  1. ;entry point for YSAS ASI ADD RANGE option
  1. N YSASE,YSASNB,YSASL
  1. W !,"PLEASE use this option ONLY when instructed to do so by the",!,"Remote Systems Support staff!"
  1. K DIR S DIR(0)="Y",DIR("A")="Have you been instructed to resend data",DIR("B")="No"
  1. D ^DIR Q:Y'=1
  1. K DIR S DIR(0)="D^2960101:DT",DIR("A")="Enter Earliest Date" D ^DIR
  1. Q:$D(DIRUT)
  1. S YSASE=Y
  1. K DIR S DIR(0)="D^"_YSASE_":DT",DIR("A")="Enter Latest Date" D ^DIR
  1. Q:$D(DIRUT)
  1. S YSASL=Y
  1. S YSASE=YSASE-.001,YSASNB=0
  1. F I=1:1 S YSASE=$O(^YSTX(604,"AD",YSASE)) Q:YSASE>YSASL!(YSASE'>0) D
  1. . S N=0 F S N=$O(^YSTX(604,"AD",YSASE,N)) Q:N'>0 D
  1. .. 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
  1. ;
  1. W !,YSASNB," ASI's added to the transmission list"
  1. Q
  1. QUEIT ; task out resend
  1. ;entry point for YSAS ASI REQUE option
  1. S X1=DT,X2=7 D C^%DTC
  1. K DIR S DIR(0)="D^NOW:"_X_":EFXR",DIR("A")="Resend Date and Time",DIR("B")="T@11pm"
  1. D ^DIR
  1. Q:$D(DIRUT)
  1. S ZTRTN="EN^YSASRU",ZTIO="",ZTDTH=Y,ZTDESC="ASI RESEND YSASRU1" D ^%ZTLOAD
  1. W !,"Thanks........" H 2
  1. Q
  1. AA ; print awaiting report
  1. ;entry point for YSAS ASI AWAITING option
  1. S DIC="^YSTX(604,",L=0,FLDS=".05;""DATE"",.02;L30,.04;L5,.09;L20",BY="5.5,.05,.02"
  1. S FR(1)="",FR(2)="",FR(3)="",DHD="ASI Awaitng Transmission List"
  1. D EN1^DIP
  1. Q