BTIUCD.m

BTIUCD ; IHS/ITSC/LJF - IHS CALL TO INCOM CHART EDITS ;

 ;;1.0;TEXT INTEGRATION UTILITIES;;NOV 04, 2004

 ;Only used if site is running ADT version 5.3 Incomplete Chart module                        

 ;

 ;

EDIT(TIUDA) ;EP; call from protocol to edit ic files

 ;TIUDA=ien of document

 NEW DA,DDSFILE,DR,VSTYP,VST,BDGN

 S VST=$$IVST^BTIUU1(TIUDA)    ;visit ien

 S VSTYP=$$CAT^BTIUU1(TIUDA)   ;visit service category

 ;

 I VSTYP="H" D  Q

 . I '$O(^BDGIC("AV",VST,0)) W !,"No Incomplete Chart Entry for this patient" D RETURN^BTIUU Q

 . D FULL^VALM1

 . S (DA,BDGN)=$O(^BDGIC("AV",VST,0)) Q:'DA

 . S DDSFILE=9009016.1,DR="[BDG INCOMPLETE EDIT]" D ^DDS

 ;

 I (VSTYP="S")!(VSTYP="O") D  Q

 . I '$O(^BDGIC("AV",VST,0)) W !,"No Incomplete Chart Entry for this patient" D RETURN^BTIUU Q

 . D FULL^VALM1

 . S (DA,BDGN)=$O(^BDGIC("AV",VST,0)) Q:'DA

 . S DDSFILE=9009016.1,DR="[BDG DAY SURGERY EDIT]" D ^DDS

 ;

 W !!,"Visit is not of service category tracked by Incomplete Chart module in ADT.",! D RETURN^BTIUU

 Q

 ;

BTIUCD    ; IHS/ITSC/LJF - IHS CALL TO INCOM CHART EDITS ;

 +1       ;;1.0;TEXT INTEGRATION UTILITIES;;NOV 04, 2004

 +2       ;Only used if site is running ADT version 5.3 Incomplete Chart module                        

 +3       ;

 +4       ;

EDIT(TIUDA) ;EP; call from protocol to edit ic files

 +1       ;TIUDA=ien of document

 +2        NEW DA,DDSFILE,DR,VSTYP,VST,BDGN

 +3       ;visit ien

           SET VST=$$IVST^BTIUU1(TIUDA)

 +4       ;visit service category

           SET VSTYP=$$CAT^BTIUU1(TIUDA)

 +5       ;

 +6        IF VSTYP="H"

               Begin DoDot:1

 +7                IF '$ORDER(^BDGIC("AV",VST,0))

                       WRITE !,"No Incomplete Chart Entry for this patient"

                       DO RETURN^BTIUU

                       QUIT 

 +8                DO FULL^VALM1

 +9                SET (DA,BDGN)=$ORDER(^BDGIC("AV",VST,0))

                   IF 'DA

                       QUIT 

 +10               SET DDSFILE=9009016.1

                   SET DR="[BDG INCOMPLETE EDIT]"

                   DO ^DDS

               End DoDot:1

               QUIT 

 +11      ;

 +12       IF (VSTYP="S")!(VSTYP="O")

               Begin DoDot:1

 +13               IF '$ORDER(^BDGIC("AV",VST,0))

                       WRITE !,"No Incomplete Chart Entry for this patient"

                       DO RETURN^BTIUU

                       QUIT 

 +14               DO FULL^VALM1

 +15               SET (DA,BDGN)=$ORDER(^BDGIC("AV",VST,0))

                   IF 'DA

                       QUIT 

 +16               SET DDSFILE=9009016.1

                   SET DR="[BDG DAY SURGERY EDIT]"

                   DO ^DDS

               End DoDot:1

               QUIT 

 +17      ;

 +18       WRITE !!,"Visit is not of service category tracked by Incomplete Chart module in ADT.",!

           DO RETURN^BTIUU

 +19       QUIT 

 +20      ;