- DGVREL3 ;ALB/MRL - FORMAT RELEASE MESSAGE/LETTER ; 2 JUN 87
- ;;5.3;Registration;**1015**;Aug 13, 1993;Build 21
- K ^UTILITY($J) D:'$D(DT) DT^DICRW S Y=DT X ^DD("DD") S DGD=Y,DGFAC=$S($D(^DD("SITE"))#2:^("SITE"),1:"FACILITY UNKNOWN")_$S($D(^DD("SITE",1)):" ("_^(1)_")",1:""),DGS="MAS V."_DGVREL_" INSTALLATION"
- S DGC=0 I DGHOW="L" S DGT="DATE: "_DGD D S S DGT="" D S S DGT="FROM: "_DGFAC D S S DGT="" D S S DGT="SUBJ: "_DGS D S F I=1:1 S DGT=$P($T(TO+I),";;",2) Q:DGT="QUIT" D S
- S DGT="1. DPT Installation: STARTED COMPLETED HOURS MINUTES" D S,L
- S DGO="",$P(DGO," ",40)="",(DGHT,DGMT)=0,DGN=^DG(48,DGVREL,"R") F DGJ=5,6,7 S DGT="",DGI=$P(DGN,"^",DGJ),DGI1=$P(DGN,"^",DGJ+1) D TIME
- D L S DGJ=0,DGT="",$P(DGT," ",61)="",DGI=$P(DGN,"^",5),DGI1=$P(DGN,"^",8) D TIME S DGT="" D S
- S DGT="2. DG Installation: STARTED COMPLETED HOURS MINUTES" D S,L
- S DGO="",$P(DGO," ",40)="",(DGHT,DGMT)=0,DGN=^DG(48,DGVREL,"R") F DGJ=1,2,3 S DGT="",DGI=$P(DGN,"^",DGJ),DGI1=$P(DGN,"^",DGJ+1) D TIME
- D L S DGJ=0,DGT="",$P(DGT," ",61)="",DGI=$P(DGN,"^",1),DGI1=$P(DGN,"^",4) D TIME S DGT="" D S
- G FILE:'DGVRELSD S DGT="3. SD Installation: STARTED COMPLETED HOURS MINUTES" D S,L
- S DGO="",$P(DGO," ",40)="",(DGHT,DGMT)=0,DGN=^DG(48,DGVREL,"R") F DGJ=9,10,11 S DGT="",DGI=$P(DGN,"^",DGJ),DGI1=$P(DGN,"^",DGJ+1) D TIME
- D L S DGJ=0,DGT="",$P(DGT," ",61)="",DGI=$P(DGN,"^",9),DGI1=$P(DGN,"^",12) D TIME S DGT="" D S
- FILE S DGN=^DG(48,DGVREL,"S"),DGFILE=0 G ^DGVREL4:'$P(DGN,"^",1) F DGJ1="REGISTRATION","SCHEDULING" S DGJ=$O(^DIC(9.4,"B",DGJ1,0)) Q:'DGJ D GET
- D:C=1 S S DGT="" D S S C=$S(DGVRELSD:5,1:4),DGT=C_". Patient File has '"_$S($D(^DPT(0)):+$P(^(0),"^",4),1:0)_"' Entries." D S S DGFILE=1,DGT="" D S
- G ^DGVREL4
- GET S DGT="" D S S C=$S('DGVRELSD:3,DGJ1="REGISTRATION":4,1:0) I C S DGT=C_". FILE NAME #ENTRIES FILE NAME #ENTRIES" D S
- S DGT=" --------- -------- --------- --------" D S
- S C=0 F I=0:0 S I=$O(^DIC(9.4,DGJ,4,"B",I)) Q:'I S DGF=^DIC(I,0),DGF1=^DIC(I,0,"GL"),DGF2=$S($D(@(DGF1_"0)")):+$P(@(DGF1_"0)"),"^",4),1:0),C=C+1 D:C=1 F1 I C=2 D F2 S DGT=DGT_DGT1,C=0 D S
- Q
- TIME I DGJ S DGT=" "_$S(DGJ=1!(DGJ=5):"PRE-",DGJ=2!(DGJ=6!(DGJ=10)):"ACTUAL ",1:"POST-")_"INIT"_DGO,DGT=$E(DGT,1,22),Y=DGI X ^DD("DD") S DGT=DGT_$E(Y_DGO,1,19) S Y=DGI1 X ^DD("DD") S DGT=DGT_$E(Y_DGO,1,19)
- S X=DGI,DGX=$P(X,".",2),DGX=$E((DGX_"000"),1,4) D H^%DTC S DGX=%H_","_($E(DGX,1,2)*60*60+($E(DGX,3,4)*60)),X=DGI1,DGX1=$P(X,".",2),DGX1=$E((DGX1_"000"),1,4) D H^%DTC S DGX1=%H_","_($E(DGX1,1,2)*60*60+($E(DGX1,3,4)*60))
- S X=DGX1,Y=(X-DGX)*86400,X1=$P(X,",",2),X2=$P(DGX,",",2),X3=Y-X2+X1,X=X3\3600,X1=X3#3600\60 S:'X&('X1) X1=1 S DGM=X1,DGH=X
- HM S DGT=DGT_$J(DGH,5),DGT=DGT_$J(DGM,9)
- S S DGC=DGC+1,^UTILITY($J,"DGVREL",DGC,0)=DGT Q
- L S DGT=" ---------------- ---------------- ----- -------" D S Q
- F1 S DGT=" "_$E($P(DGF,"^",1),1,24)_DGO,DGT=$E(DGT,1,28)_$J(DGF2,9)_DGO,DGT=$E(DGT,1,42)
- F2 S DGT1=$E($P(DGF,"^",1),1,25)_DGO,DGT1=$E(DGT1,1,28)_$J(DGF2,8) Q
- Q
- TO ;
- ;;
- ;;TO: Director
- ;; Information Systems Center (10BA1/ADP)
- ;; Frear Building
- ;; 2 Third Street, Suite 301
- ;; Troy, New York 12180
- ;;
- ;;
- ;;QUIT
- DGVREL3 ;ALB/MRL - FORMAT RELEASE MESSAGE/LETTER ; 2 JUN 87
- +1 ;;5.3;Registration;**1015**;Aug 13, 1993;Build 21
- +2 KILL ^UTILITY($JOB)
- IF '$DATA(DT)
- DO DT^DICRW
- SET Y=DT
- XECUTE ^DD("DD")
- SET DGD=Y
- SET DGFAC=$SELECT($DATA(^DD("SITE"))#2:^("SITE"),1:"FACILITY UNKNOWN")_$SELECT($DATA(^DD("SITE",1)):" ("_^(1)_")",1:"")
- SET DGS="MAS V."_DGVREL_" INSTALLATION"
- +3 SET DGC=0
- IF DGHOW="L"
- SET DGT="DATE: "_DGD
- DO S
- SET DGT=""
- DO S
- SET DGT="FROM: "_DGFAC
- DO S
- SET DGT=""
- DO S
- SET DGT="SUBJ: "_DGS
- DO S
- FOR I=1:1
- SET DGT=$PIECE($TEXT(TO+I),";;",2)
- IF DGT="QUIT"
- QUIT
- DO S
- +4 SET DGT="1. DPT Installation: STARTED COMPLETED HOURS MINUTES"
- DO S
- DO L
- +5 SET DGO=""
- SET $PIECE(DGO," ",40)=""
- SET (DGHT,DGMT)=0
- SET DGN=^DG(48,DGVREL,"R")
- FOR DGJ=5,6,7
- SET DGT=""
- SET DGI=$PIECE(DGN,"^",DGJ)
- SET DGI1=$PIECE(DGN,"^",DGJ+1)
- DO TIME
- +6 DO L
- SET DGJ=0
- SET DGT=""
- SET $PIECE(DGT," ",61)=""
- SET DGI=$PIECE(DGN,"^",5)
- SET DGI1=$PIECE(DGN,"^",8)
- DO TIME
- SET DGT=""
- DO S
- +7 SET DGT="2. DG Installation: STARTED COMPLETED HOURS MINUTES"
- DO S
- DO L
- +8 SET DGO=""
- SET $PIECE(DGO," ",40)=""
- SET (DGHT,DGMT)=0
- SET DGN=^DG(48,DGVREL,"R")
- FOR DGJ=1,2,3
- SET DGT=""
- SET DGI=$PIECE(DGN,"^",DGJ)
- SET DGI1=$PIECE(DGN,"^",DGJ+1)
- DO TIME
- +9 DO L
- SET DGJ=0
- SET DGT=""
- SET $PIECE(DGT," ",61)=""
- SET DGI=$PIECE(DGN,"^",1)
- SET DGI1=$PIECE(DGN,"^",4)
- DO TIME
- SET DGT=""
- DO S
- +10 IF 'DGVRELSD
- GOTO FILE
- SET DGT="3. SD Installation: STARTED COMPLETED HOURS MINUTES"
- DO S
- DO L
- +11 SET DGO=""
- SET $PIECE(DGO," ",40)=""
- SET (DGHT,DGMT)=0
- SET DGN=^DG(48,DGVREL,"R")
- FOR DGJ=9,10,11
- SET DGT=""
- SET DGI=$PIECE(DGN,"^",DGJ)
- SET DGI1=$PIECE(DGN,"^",DGJ+1)
- DO TIME
- +12 DO L
- SET DGJ=0
- SET DGT=""
- SET $PIECE(DGT," ",61)=""
- SET DGI=$PIECE(DGN,"^",9)
- SET DGI1=$PIECE(DGN,"^",12)
- DO TIME
- SET DGT=""
- DO S
- FILE SET DGN=^DG(48,DGVREL,"S")
- SET DGFILE=0
- IF '$PIECE(DGN,"^",1)
- GOTO ^DGVREL4
- FOR DGJ1="REGISTRATION","SCHEDULING"
- SET DGJ=$ORDER(^DIC(9.4,"B",DGJ1,0))
- IF 'DGJ
- QUIT
- DO GET
- +1 IF C=1
- DO S
- SET DGT=""
- DO S
- SET C=$SELECT(DGVRELSD:5,1:4)
- SET DGT=C_". Patient File has '"_$SELECT($DATA(^DPT(0)):+$PIECE(^(0),"^",4),1:0)_"' Entries."
- DO S
- SET DGFILE=1
- SET DGT=""
- DO S
- +2 GOTO ^DGVREL4
- GET SET DGT=""
- DO S
- SET C=$SELECT('DGVRELSD:3,DGJ1="REGISTRATION":4,1:0)
- IF C
- SET DGT=C_". FILE NAME #ENTRIES FILE NAME #ENTRIES"
- DO S
- +1 SET DGT=" --------- -------- --------- --------"
- DO S
- +2 SET C=0
- FOR I=0:0
- SET I=$ORDER(^DIC(9.4,DGJ,4,"B",I))
- IF 'I
- QUIT
- SET DGF=^DIC(I,0)
- SET DGF1=^DIC(I,0,"GL")
- SET DGF2=$SELECT($DATA(@(DGF1_"0)")):+$PIECE(@(DGF1_"0)"),"^",4),1:0)
- SET C=C+1
- IF C=1
- DO F1
- IF C=2
- DO F2
- SET DGT=DGT_DGT1
- SET C=0
- DO S
- +3 QUIT
- TIME IF DGJ
- SET DGT=" "_$SELECT(DGJ=1!(DGJ=5):"PRE-",DGJ=2!(DGJ=6!(DGJ=10)):"ACTUAL ",1:"POST-")_"INIT"_DGO
- SET DGT=$EXTRACT(DGT,1,22)
- SET Y=DGI
- XECUTE ^DD("DD")
- SET DGT=DGT_$EXTRACT(Y_DGO,1,19)
- SET Y=DGI1
- XECUTE ^DD("DD")
- SET DGT=DGT_$EXTRACT(Y_DGO,1,19)
- +1 SET X=DGI
- SET DGX=$PIECE(X,".",2)
- SET DGX=$EXTRACT((DGX_"000"),1,4)
- DO H^%DTC
- SET DGX=%H_","_($EXTRACT(DGX,1,2)*60*60+($EXTRACT(DGX,3,4)*60))
- SET X=DGI1
- SET DGX1=$PIECE(X,".",2)
- SET DGX1=$EXTRACT((DGX1_"000"),1,4)
- DO H^%DTC
- SET DGX1=%H_","_($EXTRACT(DGX1,1,2)*60*60+($EXTRACT(DGX1,3,4)*60))
- +2 SET X=DGX1
- SET Y=(X-DGX)*86400
- SET X1=$PIECE(X,",",2)
- SET X2=$PIECE(DGX,",",2)
- SET X3=Y-X2+X1
- SET X=X3\3600
- SET X1=X3#3600\60
- IF 'X&('X1)
- SET X1=1
- SET DGM=X1
- SET DGH=X
- HM SET DGT=DGT_$JUSTIFY(DGH,5)
- SET DGT=DGT_$JUSTIFY(DGM,9)
- S SET DGC=DGC+1
- SET ^UTILITY($JOB,"DGVREL",DGC,0)=DGT
- QUIT
- L SET DGT=" ---------------- ---------------- ----- -------"
- DO S
- QUIT
- F1 SET DGT=" "_$EXTRACT($PIECE(DGF,"^",1),1,24)_DGO
- SET DGT=$EXTRACT(DGT,1,28)_$JUSTIFY(DGF2,9)_DGO
- SET DGT=$EXTRACT(DGT,1,42)
- F2 SET DGT1=$EXTRACT($PIECE(DGF,"^",1),1,25)_DGO
- SET DGT1=$EXTRACT(DGT1,1,28)_$JUSTIFY(DGF2,8)
- QUIT
- +1 QUIT
- TO ;
- +1 ;;
- +2 ;;TO: Director
- +3 ;; Information Systems Center (10BA1/ADP)
- +4 ;; Frear Building
- +5 ;; 2 Third Street, Suite 301
- +6 ;; Troy, New York 12180
- +7 ;;
- +8 ;;
- +9 ;;QUIT
