- ADGFXDS ; cmi/flag/maw - Fix Day Surgery Visits ; [ 06/05/2002 1:14 PM ]
- ;;5.3;ADMISSION/DISCHARGE/TRANSFER;**1011**;MAR 25, 1999
- ;
- ;
- ;
- MAIN ;-- this is the main routine driver
- D LOOP
- D EOJ
- Q
- ;
- LOOP ;-- loop the day surgery file and call visit creator
- N ADGDA,ADGIEN,ADGOEN
- S ADGDA=3091019 F S ADGDA=$O(^ADGDS("AA",ADGDA)) Q:'ADGDA D
- . S ADGIEN=0 F S ADGIEN=$O(^ADGDS("AA",ADGDA,ADGIEN)) Q:'ADGIEN D
- .. S ADGOEN=0 F S ADGOEN=$O(^ADGDS("AA",ADGDA,ADGIEN,ADGOEN)) Q:'ADGOEN D
- ... S DGDFN1=ADGOEN
- ... S DFN=+$P($G(^ADGDS(ADGIEN,0)),U)
- ... D PCCVSIT^BDGDSA
- ... D DSIC
- Q
- ;
- DSIC ;***> create incomplete chart entry
- ;IHS/ITSC/WAR 12/10/03 This section copied from BDGICEVT and modified
- ;
- S (BDGICREC,X)=""
- F S X=$O(^BDGIC("B",DFN,X)) Q:X=""!(BDGICREC) D
- .;Check IC Disch date/time v.s. DaySurg Release date/time
- .Q:'$D(^ADGDS(DFN,"DS",DGDFN1,2))
- .I $P(^BDGIC(X,0),U,5)=$P($P(^ADGDS(DFN,"DS",DGDFN1,2),U,1),".") S BDGICREC=X
- I +BDGICREC=0 D
- .S VST=BDGDSVST
- .S SERV=+$P(^ADGDS(DFN,"DS",DGDFN1,0),U,5)
- .S SRDATE=DGX
- .W !!,"Adding entry in Incomplete Chart file....",! K DIC
- .; make FM call to stuff data
- .S X=DFN,DIC="^BDGIC(",DLAYGO=9009016.1,DIC(0)="L"
- .; 4 slash visit to bypass file screen
- .S DIC("DR")=".03////"_VST_";.04///`"_SERV_";.05///"_(SRDATE\1)
- .L +^BDGIC(0):3 I '$T D Q
- .. Q:$D(DGQUIET)
- .. W !,*7,"CANNOT ADD TO INCOMPLETE CHART FILE;"
- .. W "BEING UPDATED BY SOMEONE ELSE"
- .K DD,DO D FILE^DICN L -^BDGIC(0)
- K APCDALVR
- Q
- ;
- EOJ ;-- end of job
- K DGDFN1,DFN,BDGIREC,VST,SERV,SRDATE
- Q
- ;
- ADGFXDS ; cmi/flag/maw - Fix Day Surgery Visits ; [ 06/05/2002 1:14 PM ]
- +1 ;;5.3;ADMISSION/DISCHARGE/TRANSFER;**1011**;MAR 25, 1999
- +2 ;
- +3 ;
- +4 ;
- MAIN ;-- this is the main routine driver
- +1 DO LOOP
- +2 DO EOJ
- +3 QUIT
- +4 ;
- LOOP ;-- loop the day surgery file and call visit creator
- +1 NEW ADGDA,ADGIEN,ADGOEN
- +2 SET ADGDA=3091019
- FOR
- SET ADGDA=$ORDER(^ADGDS("AA",ADGDA))
- IF 'ADGDA
- QUIT
- Begin DoDot:1
- +3 SET ADGIEN=0
- FOR
- SET ADGIEN=$ORDER(^ADGDS("AA",ADGDA,ADGIEN))
- IF 'ADGIEN
- QUIT
- Begin DoDot:2
- +4 SET ADGOEN=0
- FOR
- SET ADGOEN=$ORDER(^ADGDS("AA",ADGDA,ADGIEN,ADGOEN))
- IF 'ADGOEN
- QUIT
- Begin DoDot:3
- +5 SET DGDFN1=ADGOEN
- +6 SET DFN=+$PIECE($GET(^ADGDS(ADGIEN,0)),U)
- +7 DO PCCVSIT^BDGDSA
- +8 DO DSIC
- End DoDot:3
- End DoDot:2
- End DoDot:1
- +9 QUIT
- +10 ;
- DSIC ;***> create incomplete chart entry
- +1 ;IHS/ITSC/WAR 12/10/03 This section copied from BDGICEVT and modified
- +2 ;
- +3 SET (BDGICREC,X)=""
- +4 FOR
- SET X=$ORDER(^BDGIC("B",DFN,X))
- IF X=""!(BDGICREC)
- QUIT
- Begin DoDot:1
- +5 ;Check IC Disch date/time v.s. DaySurg Release date/time
- +6 IF '$DATA(^ADGDS(DFN,"DS",DGDFN1,2))
- QUIT
- +7 IF $PIECE(^BDGIC(X,0),U,5)=$PIECE($PIECE(^ADGDS(DFN,"DS",DGDFN1,2),U,1),".")
- SET BDGICREC=X
- End DoDot:1
- +8 IF +BDGICREC=0
- Begin DoDot:1
- +9 SET VST=BDGDSVST
- +10 SET SERV=+$PIECE(^ADGDS(DFN,"DS",DGDFN1,0),U,5)
- +11 SET SRDATE=DGX
- +12 WRITE !!,"Adding entry in Incomplete Chart file....",!
- KILL DIC
- +13 ; make FM call to stuff data
- +14 SET X=DFN
- SET DIC="^BDGIC("
- SET DLAYGO=9009016.1
- SET DIC(0)="L"
- +15 ; 4 slash visit to bypass file screen
- +16 SET DIC("DR")=".03////"_VST_";.04///`"_SERV_";.05///"_(SRDATE\1)
- +17 LOCK +^BDGIC(0):3
- IF '$TEST
- Begin DoDot:2
- +18 IF $DATA(DGQUIET)
- QUIT
- +19 WRITE !,*7,"CANNOT ADD TO INCOMPLETE CHART FILE;"
- +20 WRITE "BEING UPDATED BY SOMEONE ELSE"
- End DoDot:2
- QUIT
- +21 KILL DD,DO
- DO FILE^DICN
- LOCK -^BDGIC(0)
- End DoDot:1
- +22 KILL APCDALVR
- +23 QUIT
- +24 ;
- EOJ ;-- end of job
- +1 KILL DGDFN1,DFN,BDGIREC,VST,SERV,SRDATE
- +2 QUIT
- +3 ;
