cQPATCH	;Patches ;cQPATCH;
	Q
	;
SHOW	;Show Patches    
         S $ZT="PatchErr"
         W !
         S patchvar=$Order(^%qPatch(""))
         While (patchvar'=""){
                S data=^%qPatch(patchvar)
                S patchvar2=$Order(^%qPatch(patchvar))
                W !,"Adhoc: "_$list(data)
                W !,"   Description: "_$list(data,2)
                W !,"   Created at: "_$list(data,5)
                W !,"   Created on $zv: "_$piece($list(data,6),")",1,2)_")"
                W !,"   Applied on: "_$list(data,7)
                W !,"   Applied by: "_$list(data,8)
                W !
                S patchvar=$Order(^%qPatch(patchvar))
         }
         Q
         ;
PatchErr S $zt=""
         W !,"Error: "_$ze
         q 
	;
ZZ	; 17.01.2012 - 15:58 * Cache-r6.4.9