AQAOEDTV.m

AQAOEDTV ; IHS/ORDC/LJF - VENDOR DISPLAY SUBRTNS ;

 ;;1.01;QAI MANAGEMENT;;OCT 05, 1995

 ;

 ;This routine displays various aspects of contract health visits

 ;in PCC. It is called where provider information has been expanded

 ;to include vendors. This routine added for ENHANCE #1.

 ;

PROV ;EP; -- display vendor for PCC visit

 Q:'$D(^AUPNVCHS("AD",AQAOVSIT))

 S AQAODX=0

 F  S AQAODX=$O(^AUPNVCHS("AD",AQAOVSIT,AQAODX)) Q:AQAODX=""  D

 . Q:'$D(^AUPNVCHS(AQAODX,0))  Q:$P(^(0),14)=""

 . S AQAOCNT=AQAOCNT+1 W ?23,AQAOCNT,")"

 . S AQAOA(AQAOCNT)=$$VALI^XBDIQ1(9000010.03,AQAODX,.14)_";AUTTVNDR("

 . W ?28,$E($$VAL^XBDIQ1(9999999.11,+AQAOA(AQAOCNT),.01),1,20)

 . S X=$$VALI^XBDIQ1(9999999.11,+AQAOA(AQAOCNT),1103)

 . S Y=$$VAL^XBDIQ1(9999999.11,+AQAOA(AQAOCNT),1103.01)

 . I Y]"" W ?50," (CHS ",Y Q

 . W ?50," (",$$VAL^XBDIQ1(9999999.34,X,.02),")",!

 Q

AQAOEDTV  ; IHS/ORDC/LJF - VENDOR DISPLAY SUBRTNS ;

 +1       ;;1.01;QAI MANAGEMENT;;OCT 05, 1995

 +2       ;

 +3       ;This routine displays various aspects of contract health visits

 +4       ;in PCC. It is called where provider information has been expanded

 +5       ;to include vendors. This routine added for ENHANCE #1.

 +6       ;

PROV      ;EP; -- display vendor for PCC visit

 +1        IF '$DATA(^AUPNVCHS("AD",AQAOVSIT))

               QUIT 

 +2        SET AQAODX=0

 +3        FOR 

               SET AQAODX=$ORDER(^AUPNVCHS("AD",AQAOVSIT,AQAODX))

               IF AQAODX=""

                   QUIT 

               Begin DoDot:1

 +4                IF '$DATA(^AUPNVCHS(AQAODX,0))

                       QUIT 

                   IF $PIECE(^(0),14)=""

                       QUIT 

 +5                SET AQAOCNT=AQAOCNT+1

                   WRITE ?23,AQAOCNT,")"

 +6                SET AQAOA(AQAOCNT)=$$VALI^XBDIQ1(9000010.03,AQAODX,.14)_";AUTTVNDR("

 +7                WRITE ?28,$EXTRACT($$VAL^XBDIQ1(9999999.11,+AQAOA(AQAOCNT),.01),1,20)

 +8                SET X=$$VALI^XBDIQ1(9999999.11,+AQAOA(AQAOCNT),1103)

 +9                SET Y=$$VAL^XBDIQ1(9999999.11,+AQAOA(AQAOCNT),1103.01)

 +10               IF Y]""

                       WRITE ?50," (CHS ",Y

                       QUIT 

 +11               WRITE ?50," (",$$VAL^XBDIQ1(9999999.34,X,.02),")",!

               End DoDot:1

 +12       QUIT