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
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORDV09 2250 printed Dec 13, 2024@02:30:22 Page 2
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 ;
