ORQQPP.m

ORQQPP ; slc/CLA - Functions which return patient postings ;12/15/97

 ;;3.0;ORDER ENTRY/RESULTS REPORTING;;Dec 17, 1997

LIST(ORY,ORPT) ;return pt's patient posting list

 Q:'$L($G(ORPT))

 K ^TMP("TIUPPCV",$J)

 D ENCOVER^TIUPP3(ORPT)

 I MSG'=0 S ORY(1)="^No patient postings found."

 N I,J,X,FMDT,MSG S I=0,J=1,X=""

 F  S I=$O(^TMP("TIUPPCV",$J,I)) Q:I<1  D

 .S X=^(I),ORY(J)=$P(X,U)_U_$P(X,U,3)_U_$P(X,U,5),J=J+1

 K ^TMP("TIUPPCV",$J)

 Q

PPIMM(ORY,ORPT) ;return pt's patient postings and immunizations

 Q:'$L($G(ORPT))

 K ^TMP("TIUPPCV",$J)

 D ENCOVER^TIUPP3(ORPT)

 I MSG'=0 S ORY(1)="^No patient postings found."

 N I,ORJ,X,FMDT,MSG,IMM,IVDT,IEN

 S I=0,ORJ=1,X=""

 F  S I=$O(^TMP("TIUPPCV",$J,I)) Q:I<1  D

 .S X=^(I),ORY(ORJ)=$P(X,U)_";P"_U_$P(X,U,3)_U_$P(X,U,5),ORJ=ORJ+1

 K ^TMP("TIUPPCV",$J),^TMP("PXI",$J)

 I $L($T(IMMUN^PXRHS03))<1 S ORY(ORJ)=";I^Immunizations not available." Q

 D IMMUN^PXRHS03(ORPT)

 S IMM="",IVDT="",IEN=0

 F  S IMM=$O(^TMP("PXI",$J,IMM)) Q:IMM=""  D

 .F  S IVDT=$O(^TMP("PXI",$J,IMM,IVDT)) Q:IVDT=""  D

 ..F  S IEN=$O(^TMP("PXI",$J,IMM,IVDT,IEN)) Q:IEN<1  D

 ...S ORJ=ORJ+1,X=$G(^TMP("PXI",$J,IMM,IVDT,IEN,0)) Q:'$L(X)

 ...S ORY(ORJ)=IEN_";I"_U_IMM_U_$P(X,U,3)

 S:'$L($G(ORY(ORJ))) ORY(ORJ)=";I^No immunizations found.^2900101"

 K ^TMP("PXI",$J)

 Q

ORQQPP    ; slc/CLA - Functions which return patient postings ;12/15/97

 +1       ;;3.0;ORDER ENTRY/RESULTS REPORTING;;Dec 17, 1997

LIST(ORY,ORPT) ;return pt's patient posting list

 +1        IF '$LENGTH($GET(ORPT))

               QUIT 

 +2        KILL ^TMP("TIUPPCV",$JOB)

 +3        DO ENCOVER^TIUPP3(ORPT)

 +4        IF MSG'=0

               SET ORY(1)="^No patient postings found."

 +5        NEW I,J,X,FMDT,MSG

           SET I=0

           SET J=1

           SET X=""

 +6        FOR 

               SET I=$ORDER(^TMP("TIUPPCV",$JOB,I))

               IF I<1

                   QUIT 

               Begin DoDot:1

 +7                SET X=^(I)

                   SET ORY(J)=$PIECE(X,U)_U_$PIECE(X,U,3)_U_$PIECE(X,U,5)

                   SET J=J+1

               End DoDot:1

 +8        KILL ^TMP("TIUPPCV",$JOB)

 +9        QUIT 

PPIMM(ORY,ORPT) ;return pt's patient postings and immunizations

 +1        IF '$LENGTH($GET(ORPT))

               QUIT 

 +2        KILL ^TMP("TIUPPCV",$JOB)

 +3        DO ENCOVER^TIUPP3(ORPT)

 +4        IF MSG'=0

               SET ORY(1)="^No patient postings found."

 +5        NEW I,ORJ,X,FMDT,MSG,IMM,IVDT,IEN

 +6        SET I=0

           SET ORJ=1

           SET X=""

 +7        FOR 

               SET I=$ORDER(^TMP("TIUPPCV",$JOB,I))

               IF I<1

                   QUIT 

               Begin DoDot:1

 +8                SET X=^(I)

                   SET ORY(ORJ)=$PIECE(X,U)_";P"_U_$PIECE(X,U,3)_U_$PIECE(X,U,5)

                   SET ORJ=ORJ+1

               End DoDot:1

 +9        KILL ^TMP("TIUPPCV",$JOB),^TMP("PXI",$JOB)

 +10       IF $LENGTH($TEXT(IMMUN^PXRHS03))<1

               SET ORY(ORJ)=";I^Immunizations not available."

               QUIT 

 +11       DO IMMUN^PXRHS03(ORPT)

 +12       SET IMM=""

           SET IVDT=""

           SET IEN=0

 +13       FOR 

               SET IMM=$ORDER(^TMP("PXI",$JOB,IMM))

               IF IMM=""

                   QUIT 

               Begin DoDot:1

 +14               FOR 

                       SET IVDT=$ORDER(^TMP("PXI",$JOB,IMM,IVDT))

                       IF IVDT=""

                           QUIT 

                       Begin DoDot:2

 +15                       FOR 

                               SET IEN=$ORDER(^TMP("PXI",$JOB,IMM,IVDT,IEN))

                               IF IEN<1

                                   QUIT 

                               Begin DoDot:3

 +16                               SET ORJ=ORJ+1

                                   SET X=$GET(^TMP("PXI",$JOB,IMM,IVDT,IEN,0))

                                   IF '$LENGTH(X)

                                       QUIT 

 +17                               SET ORY(ORJ)=IEN_";I"_U_IMM_U_$PIECE(X,U,3)

                               End DoDot:3

                       End DoDot:2

               End DoDot:1

 +18       IF '$LENGTH($GET(ORY(ORJ)))

               SET ORY(ORJ)=";I^No immunizations found.^2900101"

 +19       KILL ^TMP("PXI",$JOB)

 +20       QUIT