AWCMCPR4 ;VISN7/THM-NIGHT TIME MOVEMENT OF DATA ; 09 Jan 2004 3:43 PM
;;7.3;TOOLKIT;**84**;Jan 9, 2004
;
EN ;This should be run after midnight so it processes the previous day.
S X="T-1",%DT="" D ^%DT S AWCSDT=Y,AWCX=(AWCSDT-.000001),AWCEDT=(Y+.2359)
F AWCX=AWCX:0 S AWCX=$O(^XTMP("AWCCPRS",AWCX)) Q:AWCX>AWCEDT!(AWCX="") F AWCDA=0:0 S AWCDA=$O(^XTMP("AWCCPRS",AWCX,AWCDA)) Q:AWCDA="" DO
.S AWCD1=$G(^XTMP("AWCCPRS",AWCX,AWCDA,0))
.S AWCSTRT=$P(AWCD1,U),AWCEND=$P(AWCD1,U,2),AWCDUZ=$P(AWCD1,U,3),AWCDUZ(2)=$P(AWCD1,U,4),AWCTYPE=$P(AWCD1,U,5)
.I AWCDUZ(2)="" S AWCDUZ(2)=+$$SITE^VASITE ;for people without division assignments
.S AWCSEC=$$HDIFF^XLFDT(AWCEND,AWCSTRT,2)
.S AWCFMDT=$$HTFM^XLFDT(AWCSTRT)
.L +^AWC(177100.13,0):1 Q:'$T
.S AWCDATA=^AWC(177100.13,0)
.S $P(AWCDATA,"^",3)=$P(AWCDATA,"^",3)+1,AWCIEN(1)=$P(AWCDATA,"^",3)
.S ^AWC(177100.13,0)=AWCDATA
.L -^AWC(177100.13,0)
.K AWCDATA
.S AWCDATA(177100.13,"+1,",.01)=AWCIEN(1)
.S AWCDATA(177100.13,"+1,",1)=AWCSEC
.S AWCDATA(177100.13,"+1,",2)=AWCDUZ
.S AWCDATA(177100.13,"+1,",3)=AWCFMDT
.S AWCDATA(177100.13,"+1,",4)=AWCDUZ(2)
.S AWCDATA(177100.13,"+1,",5)=AWCTYPE
.D UPDATE^DIE("","AWCDATA","AWCIEN")
.K AWCDATA,AWCIEN
K AWCSDT,AWCX,AWCDA,AWCD1,AWCSTRT,AWCEND,AWCDUZ,AWCTYPE
K AWCFMDT,AWCDATA,AWCIEN,AWCSEC,AWCEDT,%DT,X,Y
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HAWCMCPR4 1347 printed Nov 22, 2024@17:48:43 Page 2
AWCMCPR4 ;VISN7/THM-NIGHT TIME MOVEMENT OF DATA ; 09 Jan 2004 3:43 PM
+1 ;;7.3;TOOLKIT;**84**;Jan 9, 2004
+2 ;
EN ;This should be run after midnight so it processes the previous day.
+1 SET X="T-1"
SET %DT=""
DO ^%DT
SET AWCSDT=Y
SET AWCX=(AWCSDT-.000001)
SET AWCEDT=(Y+.2359)
+2 FOR AWCX=AWCX:0
SET AWCX=$ORDER(^XTMP("AWCCPRS",AWCX))
if AWCX>AWCEDT!(AWCX="")
QUIT
FOR AWCDA=0:0
SET AWCDA=$ORDER(^XTMP("AWCCPRS",AWCX,AWCDA))
if AWCDA=""
QUIT
Begin DoDot:1
+3 SET AWCD1=$GET(^XTMP("AWCCPRS",AWCX,AWCDA,0))
+4 SET AWCSTRT=$PIECE(AWCD1,U)
SET AWCEND=$PIECE(AWCD1,U,2)
SET AWCDUZ=$PIECE(AWCD1,U,3)
SET AWCDUZ(2)=$PIECE(AWCD1,U,4)
SET AWCTYPE=$PIECE(AWCD1,U,5)
+5 ;for people without division assignments
IF AWCDUZ(2)=""
SET AWCDUZ(2)=+$$SITE^VASITE
+6 SET AWCSEC=$$HDIFF^XLFDT(AWCEND,AWCSTRT,2)
+7 SET AWCFMDT=$$HTFM^XLFDT(AWCSTRT)
+8 LOCK +^AWC(177100.13,0):1
if '$TEST
QUIT
+9 SET AWCDATA=^AWC(177100.13,0)
+10 SET $PIECE(AWCDATA,"^",3)=$PIECE(AWCDATA,"^",3)+1
SET AWCIEN(1)=$PIECE(AWCDATA,"^",3)
+11 SET ^AWC(177100.13,0)=AWCDATA
+12 LOCK -^AWC(177100.13,0)
+13 KILL AWCDATA
+14 SET AWCDATA(177100.13,"+1,",.01)=AWCIEN(1)
+15 SET AWCDATA(177100.13,"+1,",1)=AWCSEC
+16 SET AWCDATA(177100.13,"+1,",2)=AWCDUZ
+17 SET AWCDATA(177100.13,"+1,",3)=AWCFMDT
+18 SET AWCDATA(177100.13,"+1,",4)=AWCDUZ(2)
+19 SET AWCDATA(177100.13,"+1,",5)=AWCTYPE
+20 DO UPDATE^DIE("","AWCDATA","AWCIEN")
+21 KILL AWCDATA,AWCIEN
End DoDot:1
+22 KILL AWCSDT,AWCX,AWCDA,AWCD1,AWCSTRT,AWCEND,AWCDUZ,AWCTYPE
+23 KILL AWCFMDT,AWCDATA,AWCIEN,AWCSEC,AWCEDT,%DT,X,Y
+24 QUIT
