APCDVLI.m

APCDVLI ; IHS/CMI/LAB - generate V Line Items ;

 ;;2.0;IHS PCC SUITE;;MAY 14, 2009

 ;

 ;

VLI(APCDFILE,APCDIEN,APCDMODE) ;EP called to update v line items

 I '$G(APCDFILE) Q 1

 I '$G(APCDIEN) Q 1

 I "AM"'[$G(APCDMODE) Q 3

 NEW G

 S G=$$DIC^XBDIQ1(APCDFILE)

 W G

 ;CHK FOR existance of entry in v file

 ;do @ of second piece of the file

 ;set 0 node of v entry in Z

 Q E

01 ;V MEASUREMENT

 Q:$$VAL^XBDIQ1(APCDFILE,APCDIEN,.011)=""  ;no cpt entry/no line item

 ;add or mode or delete

 Q

02 ;V HOSPITALIZATION

 Q

03 ;V CHS

 Q

04 ;V DENTAL

 Q

APCDVLI   ; IHS/CMI/LAB - generate V Line Items ;

 +1       ;;2.0;IHS PCC SUITE;;MAY 14, 2009

 +2       ;

 +3       ;

VLI(APCDFILE,APCDIEN,APCDMODE) ;EP called to update v line items

 +1        IF '$GET(APCDFILE)

               QUIT 1

 +2        IF '$GET(APCDIEN)

               QUIT 1

 +3        IF "AM"'[$GET(APCDMODE)

               QUIT 3

 +4        NEW G

 +5        SET G=$$DIC^XBDIQ1(APCDFILE)

 +6        WRITE G

 +7       ;CHK FOR existance of entry in v file

 +8       ;do @ of second piece of the file

 +9       ;set 0 node of v entry in Z

 +10       QUIT E

01        ;V MEASUREMENT

 +1       ;no cpt entry/no line item

           IF $$VAL^XBDIQ1(APCDFILE,APCDIEN,.011)=""

               QUIT 

 +2       ;add or mode or delete

 +3        QUIT 

02        ;V HOSPITALIZATION

 +1        QUIT 

03        ;V CHS

 +1        QUIT 

04        ;V DENTAL

 +1        QUIT