ORDV09.m

ORDV09 ; slc/dcm - OE/RR Report Extracts ;3/15/03  08:12

 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**191,298**;Dec 17,1997;Build 14

 ;

CONSLT(ROOT,ORALPHA,OROMEGA,ORMAX,ORDBEG,ORDEND,OREXT) ;Consult Report

 I $L($T(GCPR^OMGCOAS1)) D  Q  ; Call if FHIE station 200

 . D GCPR^OMGCOAS1(DFN,"CONS",ORDBEG,ORDEND,ORMAX)

 . S ROOT=$NA(^TMP("ORDATA",$J))

 Q  ;Possible extract when VA Consult report is finalized.

CONX ;

 ;By Patient Name, Date and or Occurrence

 Q  ;Possible extract when VA Consult is finalized

 ;

FRMS(ROOT,ORALPHA,OROMEGA,ORMAX,ORDBEG,ORDEND,OREXT) ;Forms Report

 I $L($T(GCPR^OMGCOAS1)) D  Q  ; Call if FHIE station 200

 . D GCPR^OMGCOAS1(DFN,"FRMS",ORDBEG,ORDEND,ORMAX)

 . S ROOT=$NA(^TMP("ORDATA",$J))

 Q  ;

FRMX ;

 ;By Patient Name, Date and or Occurrence

 Q  ;Possible extract when VA Forms is finalized

 ;

FAMHX(ROOT,ORALPHA,OROMEGA,ORMAX,ORDBEG,ORDEND,OREXT) ;Family History Report

 I $L($T(GCPR^OMGCOAS1)) D  Q  ; Call if FHIE station 200

 . D GCPR^OMGCOAS1(DFN,"HISF",ORDBEG,ORDEND,ORMAX)

 . S ROOT=$NA(^TMP("ORDATA",$J))

 Q  ;

FAMHXX ;

 ;By Patient Name, Date and or Occurrence

 Q  ;Possible extract when VA Family History is finalized

 ;

SOCHX(ROOT,ORALPHA,OROMEGA,ORMAX,ORDBEG,ORDEND,OREXT) ;Social History Report

 I $L($T(GCPR^OMGCOAS1)) D  Q  ; Call if FHIE station 200

 . D GCPR^OMGCOAS1(DFN,"HISS",ORDBEG,ORDEND,ORMAX)

 . S ROOT=$NA(^TMP("ORDATA",$J))

 Q  ;

SOCHXX ;

 ;By Patient Name, Date and or Occurrence

 Q  ;Possible extract when VA Social History is finalized

 ;

MEDHX(ROOT,ORALPHA,OROMEGA,ORMAX,ORDBEG,ORDEND,OREXT) ;Other Past Medical History Report

 I $L($T(GCPR^OMGCOAS1)) D  Q  ; Call if FHIE station 200

 . D GCPR^OMGCOAS1(DFN,"HISO",ORDBEG,ORDEND,ORMAX)

 . S ROOT=$NA(^TMP("ORDATA",$J))

 Q  ;

MEDHXX ;

 ;By Patient Name, Date and or Occurrence

 Q  ;Possible extract when VA Other Past Medical History is finalized

 ;

QUEST(ROOT,ORALPHA,OROMEGA,ORMAX,ORDBEG,ORDEND,OREXT) ;Questionnaires Report

 I $L($T(GCPR^OMGCOAS1)) D  Q  ; Call if FHIE station 200

 . D GCPR^OMGCOAS1(DFN,"HQUE",ORDBEG,ORDEND,ORMAX)

 . S ROOT=$NA(^TMP("ORDATA",$J))

 Q  ;

QUESTX ;

 ;By Patient Name, Date and or Occurrence

 Q  ;Possible extract when VA Questionnaires is finalized

 ;

ORDV09    ; slc/dcm - OE/RR Report Extracts ;3/15/03  08:12

 +1       ;;3.0;ORDER ENTRY/RESULTS REPORTING;**191,298**;Dec 17,1997;Build 14

 +2       ;

CONSLT(ROOT,ORALPHA,OROMEGA,ORMAX,ORDBEG,ORDEND,OREXT) ;Consult Report

 +1       ; Call if FHIE station 200

           IF $LENGTH($TEXT(GCPR^OMGCOAS1))

               Begin DoDot:1

 +2                DO GCPR^OMGCOAS1(DFN,"CONS",ORDBEG,ORDEND,ORMAX)

 +3                SET ROOT=$NAME(^TMP("ORDATA",$JOB))

               End DoDot:1

               QUIT 

 +4       ;Possible extract when VA Consult report is finalized.

           QUIT 

CONX      ;

 +1       ;By Patient Name, Date and or Occurrence

 +2       ;Possible extract when VA Consult is finalized

           QUIT 

 +3       ;

FRMS(ROOT,ORALPHA,OROMEGA,ORMAX,ORDBEG,ORDEND,OREXT) ;Forms Report

 +1       ; Call if FHIE station 200

           IF $LENGTH($TEXT(GCPR^OMGCOAS1))

               Begin DoDot:1

 +2                DO GCPR^OMGCOAS1(DFN,"FRMS",ORDBEG,ORDEND,ORMAX)

 +3                SET ROOT=$NAME(^TMP("ORDATA",$JOB))

               End DoDot:1

               QUIT 

 +4       ;

           QUIT 

FRMX      ;

 +1       ;By Patient Name, Date and or Occurrence

 +2       ;Possible extract when VA Forms is finalized

           QUIT 

 +3       ;

FAMHX(ROOT,ORALPHA,OROMEGA,ORMAX,ORDBEG,ORDEND,OREXT) ;Family History Report

 +1       ; Call if FHIE station 200

           IF $LENGTH($TEXT(GCPR^OMGCOAS1))

               Begin DoDot:1

 +2                DO GCPR^OMGCOAS1(DFN,"HISF",ORDBEG,ORDEND,ORMAX)

 +3                SET ROOT=$NAME(^TMP("ORDATA",$JOB))

               End DoDot:1

               QUIT 

 +4       ;

           QUIT 

FAMHXX    ;

 +1       ;By Patient Name, Date and or Occurrence

 +2       ;Possible extract when VA Family History is finalized

           QUIT 

 +3       ;

SOCHX(ROOT,ORALPHA,OROMEGA,ORMAX,ORDBEG,ORDEND,OREXT) ;Social History Report

 +1       ; Call if FHIE station 200

           IF $LENGTH($TEXT(GCPR^OMGCOAS1))

               Begin DoDot:1

 +2                DO GCPR^OMGCOAS1(DFN,"HISS",ORDBEG,ORDEND,ORMAX)

 +3                SET ROOT=$NAME(^TMP("ORDATA",$JOB))

               End DoDot:1

               QUIT 

 +4       ;

           QUIT 

SOCHXX    ;

 +1       ;By Patient Name, Date and or Occurrence

 +2       ;Possible extract when VA Social History is finalized

           QUIT 

 +3       ;

MEDHX(ROOT,ORALPHA,OROMEGA,ORMAX,ORDBEG,ORDEND,OREXT) ;Other Past Medical History Report

 +1       ; Call if FHIE station 200

           IF $LENGTH($TEXT(GCPR^OMGCOAS1))

               Begin DoDot:1

 +2                DO GCPR^OMGCOAS1(DFN,"HISO",ORDBEG,ORDEND,ORMAX)

 +3                SET ROOT=$NAME(^TMP("ORDATA",$JOB))

               End DoDot:1

               QUIT 

 +4       ;

           QUIT 

MEDHXX    ;

 +1       ;By Patient Name, Date and or Occurrence

 +2       ;Possible extract when VA Other Past Medical History is finalized

           QUIT 

 +3       ;

QUEST(ROOT,ORALPHA,OROMEGA,ORMAX,ORDBEG,ORDEND,OREXT) ;Questionnaires Report

 +1       ; Call if FHIE station 200

           IF $LENGTH($TEXT(GCPR^OMGCOAS1))

               Begin DoDot:1

 +2                DO GCPR^OMGCOAS1(DFN,"HQUE",ORDBEG,ORDEND,ORMAX)

 +3                SET ROOT=$NAME(^TMP("ORDATA",$JOB))

               End DoDot:1

               QUIT 

 +4       ;

           QUIT 

QUESTX    ;

 +1       ;By Patient Name, Date and or Occurrence

 +2       ;Possible extract when VA Questionnaires is finalized

           QUIT 

 +3       ;