- BYIMD ;IHS/CMI/THL - IMMUNIZATION DATA EXCHANGE;
- ;;2.0;BYIM IMMUNIZATION DATA EXCHANGE;**3,4,5,6,7,8**;JUL 11, 2017;Build 310
- ;
- ;UTILITY TO CONTROL 'D' CROSS REFERENCE FOR DATA EXPORT
- ;
- Q
- EN ;EP;TO SET DATE AND SET 'D' XREF FOR ALL IMMUNIZATIONS PRIOR TO DATE
- ;SO IMM'S WON'T BE EXPORTED
- ;
- K DIR
- S DIR(0)="DO"
- S DIR("A")="Enter a reference date"
- W @IOF
- W !!?5,"Enter a reference date."
- W !!?5,"ALL immunizations given prior to the date selected will be"
- W !?5,"flagged as 'exported' so they will not be exported again"
- W !?5,"in the daily batch immunization exports."
- W !
- D ^DIR
- K DIR
- Q:'Y
- S DATE=Y
- K DIR
- S DIR(0)="YO"
- S DIR("A")="Are you sure you want to proceed"
- S DIR("B")="NO"
- S Y=DATE
- X ^DD("DD")
- W !!?5,"ALL immunizations given prior to: ",Y
- W !?5,"will now be flagged as 'exported'"
- W !
- D ^DIR
- K DIR
- Q:'Y
- N DA,X0,P,V,VD,J
- S DA=0
- F S DA=$O(^AUPNVIMM(DA)) Q:'DA S X0=$G(^(DA,0)) D
- .Q:$D(^BYIMEXP("D",DA))
- .S V=$P(X0,U,3)
- .Q:'V
- .S P=$P(X0,U,2)
- .Q:'P
- .S VD=+$G(^AUPNVSIT(V,0))
- .Q:'VD
- .Q:VD>DATE
- .;L ^BYIMEXP(0):1
- .F J=3,4 S X=$P(^BYIMEXP(0),U,J),X=X+1,$P(^BYIMEXP(0),U,J)=X
- .;L -^BYIMEXP(0)
- .;L ^BYIMEXP(X,0):1
- .S ^BYIMEXP(X,0)=P_U_DATE_U_DA_U_"E^MARKED AS EXPORTED WITHOUT EXPORT"
- .;L -^BYIMEXP(X,0)
- .S ^BYIMEXP("D",DA,X)="MARKED AS EXPORTED WITHOUT EXPORT"
- .W:'$D(ZTQUEUED) "."
- Q
- ;-----
- EN1 ;EP;TO SELECT DATES TO CLEAR 'D' XREFS FOR IMMUNIZATIONS DURING
- ;A DATE ;RANGE
- ;
- K DIR
- S DIR(0)="DO"
- S DIR("A")="Enter a beginning date to resend all immunizations"
- W @IOF
- W !!?5,"Enter a reference date."
- W !!?5,"ALL immunizations given from the date selected will"
- W !?5,"have the 'exported' flag removed so they will be exported"
- W !?5,"again in the daily batch immunization exports."
- W !
- D ^DIR
- K DIR
- Q:'Y
- S DATE=Y
- K DIR
- S DIR(0)="YO"
- S DIR("A")="Are you sure you want to proceed"
- S DIR("B")="NO"
- S Y=DATE
- X ^DD("DD")
- W !!?5,"ALL immunizations given on: ",Y," and after"
- W !?5,"will have the 'exported' flag removed"
- W !
- D ^DIR
- K DIR
- Q:'Y
- N DA,VDA,X0,P,V,VD,J
- S VD=DATE-.0001
- F S VD=$O(^AUPNVSIT("B",VD)) Q:'VD D
- .S VDA=0
- .F S VDA=$O(^AUPNVSIT("B",VD,VDA)) Q:'VDA D EN11
- Q
- ;-----
- EN11 ;CHECK VISIT RELATED IMM'S
- S DA=0
- F S DA=$O(^AUPNVIMM("AD",VDA,DA)) Q:'DA D:$D(^BYIMEXP("D",DA))
- .K ^BYIMEXP("D",DA)
- .W:'$D(ZTQUEUED) "."
- Q
- ;-----
- BYIMD ;IHS/CMI/THL - IMMUNIZATION DATA EXCHANGE;
- +1 ;;2.0;BYIM IMMUNIZATION DATA EXCHANGE;**3,4,5,6,7,8**;JUL 11, 2017;Build 310
- +2 ;
- +3 ;UTILITY TO CONTROL 'D' CROSS REFERENCE FOR DATA EXPORT
- +4 ;
- +5 QUIT
- EN ;EP;TO SET DATE AND SET 'D' XREF FOR ALL IMMUNIZATIONS PRIOR TO DATE
- +1 ;SO IMM'S WON'T BE EXPORTED
- +2 ;
- +3 KILL DIR
- +4 SET DIR(0)="DO"
- +5 SET DIR("A")="Enter a reference date"
- +6 WRITE @IOF
- +7 WRITE !!?5,"Enter a reference date."
- +8 WRITE !!?5,"ALL immunizations given prior to the date selected will be"
- +9 WRITE !?5,"flagged as 'exported' so they will not be exported again"
- +10 WRITE !?5,"in the daily batch immunization exports."
- +11 WRITE !
- +12 DO ^DIR
- +13 KILL DIR
- +14 IF 'Y
- QUIT
- +15 SET DATE=Y
- +16 KILL DIR
- +17 SET DIR(0)="YO"
- +18 SET DIR("A")="Are you sure you want to proceed"
- +19 SET DIR("B")="NO"
- +20 SET Y=DATE
- +21 XECUTE ^DD("DD")
- +22 WRITE !!?5,"ALL immunizations given prior to: ",Y
- +23 WRITE !?5,"will now be flagged as 'exported'"
- +24 WRITE !
- +25 DO ^DIR
- +26 KILL DIR
- +27 IF 'Y
- QUIT
- +28 NEW DA,X0,P,V,VD,J
- +29 SET DA=0
- +30 FOR
- SET DA=$ORDER(^AUPNVIMM(DA))
- IF 'DA
- QUIT
- SET X0=$GET(^(DA,0))
- Begin DoDot:1
- +31 IF $DATA(^BYIMEXP("D",DA))
- QUIT
- +32 SET V=$PIECE(X0,U,3)
- +33 IF 'V
- QUIT
- +34 SET P=$PIECE(X0,U,2)
- +35 IF 'P
- QUIT
- +36 SET VD=+$GET(^AUPNVSIT(V,0))
- +37 IF 'VD
- QUIT
- +38 IF VD>DATE
- QUIT
- +39 ;L ^BYIMEXP(0):1
- +40 FOR J=3,4
- SET X=$PIECE(^BYIMEXP(0),U,J)
- SET X=X+1
- SET $PIECE(^BYIMEXP(0),U,J)=X
- +41 ;L -^BYIMEXP(0)
- +42 ;L ^BYIMEXP(X,0):1
- +43 SET ^BYIMEXP(X,0)=P_U_DATE_U_DA_U_"E^MARKED AS EXPORTED WITHOUT EXPORT"
- +44 ;L -^BYIMEXP(X,0)
- +45 SET ^BYIMEXP("D",DA,X)="MARKED AS EXPORTED WITHOUT EXPORT"
- +46 IF '$DATA(ZTQUEUED)
- WRITE "."
- End DoDot:1
- +47 QUIT
- +48 ;-----
- EN1 ;EP;TO SELECT DATES TO CLEAR 'D' XREFS FOR IMMUNIZATIONS DURING
- +1 ;A DATE ;RANGE
- +2 ;
- +3 KILL DIR
- +4 SET DIR(0)="DO"
- +5 SET DIR("A")="Enter a beginning date to resend all immunizations"
- +6 WRITE @IOF
- +7 WRITE !!?5,"Enter a reference date."
- +8 WRITE !!?5,"ALL immunizations given from the date selected will"
- +9 WRITE !?5,"have the 'exported' flag removed so they will be exported"
- +10 WRITE !?5,"again in the daily batch immunization exports."
- +11 WRITE !
- +12 DO ^DIR
- +13 KILL DIR
- +14 IF 'Y
- QUIT
- +15 SET DATE=Y
- +16 KILL DIR
- +17 SET DIR(0)="YO"
- +18 SET DIR("A")="Are you sure you want to proceed"
- +19 SET DIR("B")="NO"
- +20 SET Y=DATE
- +21 XECUTE ^DD("DD")
- +22 WRITE !!?5,"ALL immunizations given on: ",Y," and after"
- +23 WRITE !?5,"will have the 'exported' flag removed"
- +24 WRITE !
- +25 DO ^DIR
- +26 KILL DIR
- +27 IF 'Y
- QUIT
- +28 NEW DA,VDA,X0,P,V,VD,J
- +29 SET VD=DATE-.0001
- +30 FOR
- SET VD=$ORDER(^AUPNVSIT("B",VD))
- IF 'VD
- QUIT
- Begin DoDot:1
- +31 SET VDA=0
- +32 FOR
- SET VDA=$ORDER(^AUPNVSIT("B",VD,VDA))
- IF 'VDA
- QUIT
- DO EN11
- End DoDot:1
- +33 QUIT
- +34 ;-----
- EN11 ;CHECK VISIT RELATED IMM'S
- +1 SET DA=0
- +2 FOR
- SET DA=$ORDER(^AUPNVIMM("AD",VDA,DA))
- IF 'DA
- QUIT
- IF $DATA(^BYIMEXP("D",DA))
- Begin DoDot:1
- +3 KILL ^BYIMEXP("D",DA)
- +4 IF '$DATA(ZTQUEUED)
- WRITE "."
- End DoDot:1
- +5 QUIT
- +6 ;-----
