; EP
; Colposcopy Impression (No Biopsy)
; BWC0 holds the zero node of the Colposcopy procedure
; Procedure must be a Colposcopy Impression
; Return: 1 = Yes, 2 = No
CDXPAID()
;EP
MPAY()
;EP
CBEPAID()
;EP
MRESLT()
;EP
PFNDX()
;EP
PFNDXO()
; EP - FREE TEXT DIAGNOSIS OF "OTHER" FOR ASSOC'D COLP.
PSTGDX(BWFNDX,BWX)
; EP - Stage at final diagnosis. GET FROM ASSOC'D COLP.
; Call with BWFNDX = final diagnosis
; BWX = zeroth node of assoc'd colp.
MWKUP()
;EP
CDCDT(BWDT)
; EP: Convert FileMan date to CDC date format
; Call with BWDT = FileMan date
COLPBX()
;EP
; Colposcopy w/Biopsy
; BWC0 holds the zero node of the Colposcopy procedure
; Procedure must be a Colposcopy Biopsy
; Return: 1 = Yes, 2 = No