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

SDACSCGB.m

Go to the documentation of this file.
  1. SDACSCGB ;ALBISC/TET - BATCH UPDATE COMP GEN APPT TYPES FOR C&P'S ;3/23/92 13:59
  1. ;;5.3;Scheduling;**132**;Aug 13, 1993
  1. ;
  1. BATCH ; - enter here for batch update cg appt types fm cg (possible C&P) to C&P
  1. READ ;enter here to read
  1. D ASK2^SDDIV G EXIT:Y<0
  1. ;
  1. R1 ; -- get date range
  1. S DIR(0)="D^::ET"
  1. S DIR("A")="Enter Beginning Date"
  1. S DIR("?")="^D HELP^%DTC"
  1. D ^DIR K DIR G:$D(DIRUT) EXIT
  1. S SDBEG=Y
  1. I SDBEG>DT W !," Future dates are not allowed.",*7 G R1
  1. D DD^%DT S FR=Y
  1. ;
  1. S DIR(0)="D^"_SDBEG_":NOW:TE"
  1. S DIR("A")="Enter Ending Date"
  1. S DIR("?")="^D HELP^%DTC"
  1. D ^DIR K DIR G:$D(DIRUT) EXIT
  1. S SDBEG=SDBEG-.0001,SDEND=Y_".9999"
  1. D DD^%DT S TO=Y
  1. ;
  1. ; -- display selections
  1. W !!?8,"Selected date range begins on ",FR," and ends on ",TO
  1. W !?8,"Division: ",$S(VAUTD:"ALL",1:"")
  1. IF 'VAUTD S SDDIV=0 F I=1:1 S SDDIV=$O(VAUTD(SDDIV)) Q:'SDDIV D
  1. . W:'(I#2) ?45,VAUTD(SDDIV),!
  1. . W:(I#2) ?20,VAUTD(SDDIV)
  1. W !!
  1. ;
  1. S DIR("A",1)=" This option will automatically update the Computer Generated"
  1. S DIR("A",2)=" appointment types which are possible C&P to C&P appointment"
  1. S DIR("A",3)=" type for the above parameters."
  1. S DIR("A",4)=""
  1. S DIR("A")=" Are you sure you wish to continue"
  1. S DIR("?")="Enter 'Yes' to automatically update appointment type, 'No' to exit."
  1. S DIR("?",1)="You should exercise this option after you have reviewed"
  1. S DIR("?",2)="visits which have an appointment type of 'Computer Generated'"
  1. S DIR("?",3)="AND after you have selectively edited any possible C&Ps which are not."
  1. S DIR("?",4)=" "
  1. S DIR("?",5)="This option will then update all remaining visits which have"
  1. S DIR("?",6)="a computer generated appointment type due to a possible C&P visit"
  1. S DIR("?",7)="to a Comp & Pen appointment type for the parameters selected."
  1. S DIR("?",8)=" "
  1. S DIR(0)="YO"
  1. D ^DIR K DIR G:$D(DIRUT)!('Y) EXIT
  1. ;
  1. ; -- queue job
  1. S DGVAR="SDBEG^SDEND^VAUTD#"
  1. S DGPGM="UPD^SDACSCGB"
  1. D ZIS^DGUTQ
  1. G:POP EXIT
  1. ;
  1. UPD ; -- queue entry point
  1. N SDT,SDOE,SDOE0,SDOECG,SDDIV,DFN,SDDAT,DASH,PG,CT,SDAPTYPR,Y,VA
  1. ;
  1. S (PG,CT)=0
  1. S DASH="",$P(DASH,"-",79)=""
  1. W:$E(IOST,1,2)="C-" @IOF
  1. D HDR
  1. ;
  1. S SDT=0
  1. F S SDT=$O(^SCE("ACG",SDT)) Q:'SDT D G:$D(DIRUT) EXIT
  1. . S SDOE=0
  1. . F S SDOE=$O(^SCE("ACG",SDT,SDOE)) Q:'SDOE D Q:$D(DIRUT)
  1. . . S SDOE0=$G(^SCE(SDOE,0))
  1. . . S SDOECG=$G(^SCE(SDOE,"CG"))
  1. . . S SDDAT=+SDOE0
  1. . . S SDDIV=+$P(SDOE0,U,11)
  1. . . S DFN=$P(SDOE0,U,2)
  1. . . S SDAPTYPR=+$P(SDOECG,U,2)
  1. . . IF VAUTD!($D(VAUTD(SDDIV))),SDDAT'<SDBEG,SDDAT'>SDEND D Q:$D(DIRUT)
  1. . . . S Y=SDDAT D DD^%DT S SDY=Y
  1. . . . D DEM^VADPT
  1. . . . IF SDAPTYPR=2 D DIE
  1. ;
  1. W !?10,CT," Visit"_$S(CT=1:"",1:"s")_" updated ...Batch update complete.",*7
  1. ;
  1. EXIT ; -- exit logic
  1. K %DT,CT,D,DA,DASH,DE,DFN,DFN0,DGPGM,DIC,DIE,DIRUT,DQ,DR
  1. K DTOUT,DUOUT,FR,I,J,PG,POP,SDA,SDAPTYPR,SDBEG,SDCSNODE
  1. K SDDAT,SDDIV,SDEND,SDUPDT,SDY,SDZN,SDTYPE,TO,VADM,VAEL
  1. K VAERR,VAUTD,VA,X,Y
  1. D CLOSE^DGUTQ
  1. Q
  1. ;
  1. DIE ; -- update entry
  1. N DIE,DR,DA,DE,DQ
  1. S DIE="^SCE(",DA=SDOE,DR=".1////^S X=1;202///@" D ^DIE
  1. ;
  1. S CT=CT+1
  1. D:$Y+6>IOSL CR Q:$D(DIRUT)
  1. W !,SDY,?35,$S('VAERR:$E(VADM(1),1,30),1:"UNKNOWN")
  1. Q
  1. ;
  1. CR ; -- end of page processing
  1. I $D(IOST),$E(IOST,1,2)="C-" D Q:$G(DIRUT)
  1. . S DIR(0)="E"
  1. . W ! D ^DIR K DIR
  1. . I $D(DUOUT)!($D(DTOUT)) D
  1. . . S DIRUT=1
  1. . . W !,SDY,?35,$S('VAERR:$E(VADM(1),1,30),1:"UNKNOWN"),!!,"Update incomplete!",*7
  1. W @IOF D HDR
  1. Q
  1. ;
  1. HDR ; -- header processing
  1. S PG=PG+1
  1. W !?17,"UPDATED COMPUTER GENERATED APPOINTMENT TYPES",!!,"Date/Time",?35,"Name",?68,"Page ",PG,!,DASH,!!
  1. Q
  1. ;